Definição de matriz
DimMyArray
MinhaArray = Matriz(1,5,123,12,98)
Matriz expansível
DimMyArray()
para eu = 0 a 10
ReDim Preserve MyArray(i)
MinhaArray(i)=i
próximo
Divide uma string e retorna uma matriz de resultados divididos
DimMyArray
MeuArray = Dividir(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
função Classificar (ary)
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 de função de classificação de array
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 aplicativos e sessões
Aplicativo.Lock
Aplicativo (StoredArray) = MeuArray
Aplicativo.Desbloquear
LocalArray = Aplicativo (StoredArray)
Substituir matriz no aplicativo
Aplicativo.Lock
Aplicativo(StoredArray) = LocalArray
Aplicativo.Desbloquear
O uso da sessão é igual ao do aplicativo
Importar dados do banco de dados para o array
DimMyArray
Obtenha todos os registros
MeuArray = RS.GetRows
Obtenha 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
'**********************************
'Para algoritmo de borbulhamento asp
'**********************************
Classificação de função (ária)
Dim KeepChecking,I,PrimeiroValor,SegundoValor
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
dim ID,ArrayID,Myarray,M
ID=55,48,78,10,90
ArrayID = divisão (ID,,)
Minha matriz = Classificar (ID da matriz)
'Teste de classificação
Para M = 0 para Ubound (Myarray)
Response.Write Myarray(M) & <br> & vbCRLF
Próximo
'Claro que você também pode usar o seguinte,
Dim Myarray
Minha matriz = Matriz (12,10,25,78,45)
Minha matriz = Classificar (ID da matriz)
'Teste de classificação
Para M = 0 para Ubound (Myarray)
Response.Write Myarray(M) & <br> & vbCRLF
Próximo
'Teste de classificação