USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Trabalhar com array
Postada em 3/10/2003 por ^HEAVY-METAL^            
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 - www.asparena.eti.br <br>"
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 - www.asparena.eti.br"&"<br>"
for i = LBound( vetor ) to UBound ( vetor )
response.write i & ") " & vetor( i ) & "<br>"
next
%>

T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página