begin process at 2010 03 17 02:35:32
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

XML

 > FONCTION TRI TABLEAU (SIMPLE)

FONCTION TRI TABLEAU (SIMPLE)


 Information sur la source

Note :
Aucune note
Catégorie :XML Niveau :Débutant Date de création :21/10/2003 Date de mise à jour :21/10/2003 14:31:35 Vu :22 351

Auteur : chatmiaou

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

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é)

Source

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



 Sources de la même categorie

AJOUTER UN NOEUD DANS UN FICHIER XML DÉJÀ EXISTANT par pkzip
BASE DE DONNÉ BDD VERS XML : CONVERSION D'UN RECORDSET VERS ... par pifou25
Source .NET (Dotnet) GÉNÉRATION D'UN XML À PARTIR D'UNE BDD ACCESS par fabienfs
Source avec Zip LECTEUR DE FLUX RSS OBJET par Yoyo2B
Source avec Zip Source .NET (Dotnet) TRANSFORMATION XSLT POUR OBTENIR DU CODE XTML VALIDE À INTÉG... par saizonou

Commentaires et avis

Commentaire de chatmiaou le 21/10/2003 11:48:04

Cette source ne devrait pas être dans cette catégorie , surement un erreur de saisie . Désolé.

Commentaire de Bud le 21/10/2003 17:25:54

Il existe d'autres methodes bien plus efficaces pour trier des tableaux.

Commentaire de IMcode le 27/08/2007 08:57:37

Il existe un tas de fonction native de PHP comme natcasesort(), mieu vaut utiliser un seul mot plutôt qu'une cinquantaine de ligne...

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.

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,390 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales