Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Terça-feira - 23 de Outubro de 2018  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
Trabalhando com Array em um Session
Avaliações: 21   -   Minha nota: Média Geral: 5  

Trabalhar com array em um objeto session funciona da mesma forma com carregar variáveis ou dicionários na Session.

Alguns itens devem ser lembrados, como as funções para tratamento de arrays:

Ubound: retorna o número de elementos do vetor
LBound: retorna o índice do menor elemento do vetor

Redim: redimensiona o array.

No código abaixo há vários comentários durante a exibição do texto.

<%
"Inicializar a array
Dim vetor
vetor = array( ) "inicia sem valor

"Determinar uma valor ou redimensionar a array. Não inicie a array com um
"valor fixo de linhas, adicione Redimensione a medida que for precisando

"Ex:
ReDim preserve vetor ( UBound( vetor )+1) "Ubound vai retornar o número de elementos; some 1 para adicionar
vetor ( Ubound( vetor ) ) = "Novo Item 1"
ReDim preserve vetor ( UBound( vetor )+1)
vetor ( Ubound( vetor ) ) = "Novo Item 2"
ReDim preserve vetor ( UBound( vetor )+1)
vetor ( Ubound( vetor ) ) = "Novo Item 3"

"Para ler use o for each ou o for... a Função LBound retorna menor número do Array
Dim i
for i = LBound( vetor ) to UBound ( vetor )
response.write i & ") " & vetor( i ) & "<br>"
next

"Para retirar um elemento, digamos que seria o elemento número 2
Dim tmpvetor
tmpvetor = array()
response.write "Retirando o item 2
"
for i = LBound( vetor ) to UBound ( vetor )
if i <> 2 then
Redim preserve tmpvetor ( UBound(tmpvetor)+1 ) " adicionei um elemento
tmpvetor ( UBound ( tmpvetor ) ) = vetor( i )
end if
next
vetor = tmpvetor "salvando novamente a Array
tmpvetor = array() "liberando a var tmp

"vamos ler agora
for i = LBound( vetor ) to UBound ( vetor )
response.write i & ") " & vetor( i ) & "<br>"
next

"Entendendo como trabalhar com a array! Para salvar ela no session é simples
session("vetor") = vetor "salvei no session

"para recuperar
"Dim vetor "inicie a variavel.. linha comentada pois já declarei a var no
inicio deste exemplo.
vetor = session("vetor") "carregue a array do Session

"Para ler use o lcao for each ou o for... a Funcao LBound retorna menor
numeto da Array
response.write "Lendo variavel vetor no session
"
for i = LBound( vetor ) to UBound ( vetor )
response.write i & ") " & vetor( i ) & "<br>"
next
%>






SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados