Fonction tri tableau (simple)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 29 357 fois - Téléchargée 31 fois
Contenu du snippet
Fonction de tri d'un tableau, il suffit de passer en paramètre le nom du tableau et la colonne sur laquelle on veut trier.
Ce tri marche pour les tableaux à 2 dimensions quelquesoient le nbre de lignes et de colonnes.
(pas de tri sur plusieurs colonnes, l'ordre peut être facilement ajouté)
Ce tri marche pour les tableaux à 2 dimensions quelquesoient le nbre de lignes et de colonnes.
(pas de tri sur plusieurs colonnes, l'ordre peut être facilement ajouté)
Source / Exemple :
<%
'--------------------------------------------------------------------------------
' fonction de tri d'un tableau
' Permet renvoyer un tableau Trié issu du tableau transmis en paramêtre
' (Quelquesoient le nombre de lignes et de colonnes) et avec le N° de la colonne à trier k
'--------------------------------------------------------------------------------
Function TriTableau (LeTableau,k)
Dim Ligne_Tampon
Dim Tableau_Tampon
' récupération des deux dimensions du tableau (lignes, colonnes)
MaxLig = UBound(LeTableau,1)
MaxCol = UBound(LeTableau,2)
i = 0
ReDim Ligne_Tampon(MaxCol)
ReDim Tableau_Tampon(MaxLig, MaxCol)
Do until i = MaxLig
' Chaque élément est comparé à celui qui lui est supérieur dans le classement
j=0
Do until j = MaxLig -1
If (LeTableau(j, k) > LeTableau((j + 1), k)) Then
' l'élément J est plus important que l'élément J + 1 alors on les intervertit
for l = 0 to MaxCol
Ligne_Tampon(l) = LeTableau(j,l)
Tableau_Tampon(j,l) = LeTableau((j + 1),l)
Tableau_Tampon((j + 1),l) = Ligne_Tampon(l)
next
if j < MaxLig - 2 then
j=j+1
end if
Else
for l = 0 to MaxCol
Tableau_Tampon(j,l) = LeTableau(j,l)
Tableau_Tampon((j + 1),l) = LeTableau((j+1),l)
next
End If
j=j+1
Loop
i=i+1
LeTableau = Tableau_Tampon
Loop
TriTableau = Tableau_Tampon
End Function
%>
<%
' Appel de la fonction
TableauTrie = TriTableau (tableau_A_Trier, 1)
%>
A voir également
- Tri tableau
- Tri simple - Meilleures réponses
- Code de tri - Meilleures réponses
- Fonction tri alphabétique d'un tableau de chaîne de caractères - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Php trier tableau multidimensionnel ✓ - Forum - Delphi / Pascal
- Java trier tableau ✓ - Forum - Java
- Fonction remplissage tableau c - Forum - C / C++ / C++.NET
- Visual Basic / VB.NET : Fonction recursive (plus simple) - CodeS SourceS - Guide
Commentaires
Les fonctions natives sont là pour ça, alors pourquoi se casser la tête et "allourdir" un programme avec ta fonction...
it's my opinion.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.