|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
