Définition du tableau
DimMonTableau
MonTableau = Tableau(1,5,123,12,98)
Tableau extensible
DimMonArray()
pour i = 0 à 10
ReDim Préserver MyArray(i)
MonTableau(i)=i
suivant
Divise une chaîne et renvoie un tableau de résultats fractionnés
DimMonTableau
MonTableau = Split(tempcnt,chr(13)&chr(10))
Pour I = Lbound (MyArray) à Ubound (MyArray)
Réponse.Écrire MyArray(I) & <br>
Suivant
Fonction de tri de tableau
fonction Trier(aire)
KeepChecking = VRAI
Faire jusqu'à ce que KeepChecking = FALSE
KeepChecking = FAUX
Pour I = 0 à UBound(ary)
Si I = UBound(ary), alors quittez pour
Si ary(I) > ary(I+1) Alors
PremièreValeur = ary(I)
SecondeValeur = ary(I+1)
ary(I) = SecondeValeur
ary(I+1) = PremièreValeur
KeepChecking = VRAI
Fin si
Suivant
Boucle
Trier = ary
Fin de fonction
Exemple d'application de la fonction de tri de tableaux
DimMonTableau
MonTableau = Tableau(1,5,123,12,98)
MonTableau = Trier(MonTableau)
Pour I = Lbound (MyArray) à Ubound (MyArray)
Réponse.Écrire MyArray(I) & <br>
Suivant
Utilisation de tableaux dans l'application et la session
Application.Lock
Application (StoredArray) = MonTableau
Application.Déverrouiller
LocalArray = Application (StoredArray)
Écraser le tableau dans l'application
Application.Lock
Application (StoredArray) = LocalArray
Application.Déverrouiller
L'utilisation de la session est la même que celle de l'application
Importer des données de la base de données dans un tableau
DimMonTableau
Obtenez tous les enregistrements
MonTableau = RS.GetRows
Obtenez les 10 premiers enregistrements
MonTableau = RS.GetRows(10)
Pour la ligne = 0 Vers UBound (MyArray, 2)
Pour col = 0 Vers UBound (MyArray, 1)
Response.Write (colonne, ligne) & <br>
Suivant
Suivant
'************************************
'Pour l'algorithme de bouillonnement asp
'************************************
Fonction Tri (aire)
Dim KeepChecking, I, Première valeur, Seconde valeur
KeepChecking = VRAI
Faire jusqu'à ce que KeepChecking = FALSE
KeepChecking = FAUX
Pour I = 0 à UBound(ary)
Si I = UBound(ary) alors quittez pour
Si ary(I) > ary(I+1) Alors
PremièreValeur = ary(I)
SecondeValeur = ary(I+1)
ary(I) = SecondeValeur
ary(I+1) = PremièreValeur
KeepChecking = VRAI
Fin si
Suivant
Boucle
Trier = ary
Fonction de fin
ID de dim, ID de tableau, Mon tableau, M
ID=55,48,78,10,90
ID de tableau=split(ID,,)
Mon tableau = Tri (ID tableau)
'Test de tri
Pour M = 0 à Ubound (Myarray)
Réponse.Write Myarray(M) & <br> & vbCRLF
Suivant
'Bien sûr, vous pouvez également utiliser ce qui suit,
Dim Myarray
Mon tableau = Tableau (12,10,25,78,45)
Mon tableau = Tri (ID tableau)
'Test de tri
Pour M = 0 à Ubound (Myarray)
Réponse.Write Myarray(M) & <br> & vbCRLF
Suivant
'Test de tri