Este artigo apresenta principalmente o uso de redim e preserve em ASP para criar instâncias de array dinâmico. Este artigo também fornece outros exemplos de operação de array em ASP. Amigos que precisam dele podem consultá-lo.
A função do REDIM no asp é definir dinamicamente o comprimento do array
Uma instrução em uma matriz dinâmica só pode aparecer em um procedimento e pode ser usada diversas vezes. Você pode alterar o tamanho e as dimensões da matriz.
Formatar:
Nome do array REDIM [Preservar] (subscrito 1 [subscrito 2....])
Preserve retém o conteúdo do array dinâmico (se não for usado, todas as instruções atualmente armazenadas serão perdidas sempre que uma instrução REDIM for executada)
Por exemplo:
Copie o código do código da seguinte forma:Dim DynArray() 'Define o array DynArray() como um array dinâmico
REDIM Preserve DynArray(20)'Aloque um número de elementos para o array
Isso é muito importante para algumas mudanças dinâmicas em arrays na programação e muitas vezes pode ser usado e processado. Este REDIM tem um conhecimento profundo do segundo computador e considera muito útil melhorar a própria programação.
Aqui estão alguns exemplos de arrays ASP, é claro que nem todos são arrays dinâmicos.
Usando arrays na programação ASP:
Definição de matriz:
Copie o código do código da seguinte forma:DimMyArray
MinhaArray = Matriz(1‚5‚123‚12‚98)
Matriz expansível:
Copie o código do código da seguinte forma:DimMyArray()
para eu = 0 a 10
ReDim Preserve MyArray(i)
MinhaArray(i)=i
próximo
Divida uma string e retorne uma matriz de resultados de divisão:
Copie o código do código da seguinte forma:DimMyArray
MeuArray = Split(tempcnt‚chr(13)&chr(10))
Para I = Lbound(MyArray) para Ubound(MyArray)
Response.Write MyArray(I) & <br>
Próximo
Função de classificação de array:
Copie o código do código da seguinte forma:função..Classificar(ário)
KeepChecking = VERDADEIRO
Faça até KeepChecking = FALSE
KeepChecking = FALSO
Para I = 0 para UBound(ary)
Se I = UBound (ary) então saia para
Se ary(I) > ary(I+1) Então
PrimeiroValor = ary(I)
SegundoValor = ary(I+1)
ary(I) = SegundoValor
ary(I+1) = PrimeiroValor
KeepChecking = VERDADEIRO
Terminar se
Próximo
Laço
Classificar = ary
Função final
Exemplo de aplicação da função de classificação de array:
Copie o código do código da seguinte forma:DimMyArray
MinhaArray = Matriz(1‚5‚123‚12‚98)
MeuArray = Classificar(MeuArray)
Para I = Lbound(MyArray) para Ubound(MyArray)
Response.Write MyArray(I) & <br>
Próximo
Usando arrays em Aplicativo e Sessão:
Copie o código do código da seguinte forma:Aplicativo.Lock
Aplicativo (StoredArray) = MeuArray
Aplicativo.Desbloquear
LocalArray = Aplicativo (StoredArray)
Substitua a matriz no aplicativo:
Copie o código do código da seguinte forma:Aplicativo.Lock
Aplicativo(StoredArray) = LocalArray
Aplicativo.Desbloquear
O método de utilização do Session é o mesmo do Application, importando dados do banco de dados para o array:
Copie o código do código da seguinte forma:DimMyArray
'Obter todos os registros
MeuArray = RS.GetRows
'Obter os primeiros 10 registros
MeuArray = RS.GetRows(10)
Para linha = 0 Para UBound (MyArray‚ 2)
Para col = 0 Para UBound (MyArray‚ 1)
Response.Write (coluna‚ linha) & <br>
Próximo
Próximo
Através dos exemplos acima, podemos aprofundar nossa compreensão sobre arrays e usá-los de forma flexível em aplicações práticas.