Definición de matriz
DimMyArray
Mimatriz = Matriz(1,5,123,12,98)
Matriz expandible
DimMyArray()
para i = 0 a 10
ReDim Preservar MyArray(i)
Mimatriz(i)=i
próximo
Divide una cadena y devuelve una serie de resultados divididos
DimMyArray
Mimatriz = Dividir(tempcnt,chr(13)&chr(10))
Para I = Lbound(MyArray) a Ubound(MyArray)
Respuesta.Escribir MyArray(I) & <br>
Próximo
Función de clasificación de matrices
función ordenar (ario)
Seguir comprobando = VERDADERO
Hacer hasta que KeepChecking = FALSO
Seguir comprobando = FALSO
Para I = 0 a UBound(ary)
Si I = UBound(ary) entonces salga por
Si ary(I) > ary(I+1) Entonces
PrimerValor = ario(I)
SegundoValor = ario(I+1)
ario(I) = SegundoValor
ario(I+1) = PrimerValor
Seguir comprobando = VERDADERO
Terminar si
Próximo
Bucle
ordenar = ario
Función final
Ejemplo de aplicación de función de clasificación de matrices
DimMyArray
Mimatriz = Matriz(1,5,123,12,98)
Mimatriz = Ordenar (Mimatriz)
Para I = Lbound(MyArray) a Ubound(MyArray)
Respuesta.Escribir MyArray(I) & <br>
Próximo
Usando matrices en Aplicación y Sesión
Bloqueo de aplicación
Aplicación (StoredArray) = MyArray
Aplicación.Desbloquear
LocalArray = Aplicación (StoredArray)
Sobrescribir matriz en la aplicación
Bloqueo de aplicación
Aplicación (StoredArray) = LocalArray
Aplicación.Desbloquear
El uso de la sesión es el mismo que el de la aplicación.
Importar datos de la base de datos a una matriz
DimMyArray
Obtener todos los registros
Mimatriz = RS.GetRows
Consigue los primeros 10 registros
Mimatriz = RS.GetRows(10)
Para fila = 0 a UBound(MyArray, 2)
Para col = 0 a UBound(MyArray, 1)
Respuesta.Escribir (col, fila) & <br>
Próximo
Próximo
'************************************
'Para el algoritmo de burbujeo asp
'************************************
Clasificación de funciones (aria)
Dim KeepChecking,I,Primer valor,Segundo valor
Seguir comprobando = VERDADERO
Hacer hasta que KeepChecking = FALSO
Seguir comprobando = FALSO
Para I = 0 a UBound(ary)
Si I = UBound(ary) entonces salga por
Si ary(I) > ary(I+1) Entonces
PrimerValor = ario(I)
SegundoValor = ario(I+1)
ario(I) = SegundoValor
ario(I+1) = PrimerValor
Seguir comprobando = VERDADERO
Terminar si
Próximo
Bucle
ordenar = ario
Función final
ID tenue, ID de matriz, Myarray, M
ID=55,48,78,10,90
ID de matriz = dividir (ID,,)
Mimatriz=Ordenar(IDmatriz)
'Prueba de clasificación
Para M=0 a Ubound (Myarray)
Respuesta.Escribir Myarray(M) & <br> & vbCRLF
Próximo
'Por supuesto, también puedes utilizar lo siguiente,
Dim Myarray
Mimatriz=Matriz(12,10,25,78,45)
Mimatriz=Ordenar(IDmatriz)
'Prueba de clasificación
Para M=0 a Ubound (Myarray)
Respuesta.Escribir Myarray(M) & <br> & vbCRLF
Próximo
'Prueba de clasificación