Trabalhando com Arrays – Função Simples

 
Olá Pessoal!
Estou hoje aqui para somente publicar um código que pode ser útil para alguem.
Na verdade este código foi desenvolvido por mim, para sanar uma dúvida de um colega nosso de trabalho e achei interessante, por ser totalmete didático.
Segue abaixo.
 
  • Código feito em ASP Clássico (3.0)
Dim ArrayGloballocal()  ‘alocando array dinamico
ReDim ArrayGloballocal(0)  ‘coloca ele com zero possições
Dim numero_de_registros  ‘variavel auxiliar para verificação de tamanho do vetor
 
‘chama a sub
adicionaValor("bruno")
‘qual é valor do array atual
numero_de_registros = UBound(ArrayGloballocal)
 
‘imprime na tela
For i = 1 To numero_de_registros
    response.write "Posição(" & i & "):" & ArrayGloballocal(i) & "</br>"
Next
‘SUB que insere um valor num ARRAY dinámico.
Sub adicionaValor(valor)
 ‘aumenta mais um espaço para vc adicionar o valor
 redim ArrayGloballocal(Ubound(ArrayGloballocal)+1)
 ArrayGloballocal(Ubound(ArrayGloballocal)) = valor
end sub
 
 
Segue um link de um colega, no qual é muito interessante que fala sobre arrays, caso queiram se aprufundar mais.(lá os exemplos são em Vb)
 
Até mais.
Bruno Velaz
Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s