- <%
- '--------------------------------------------------------------------------------
- ' 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)
- %>
<%
'--------------------------------------------------------------------------------
' 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)
%>