Tri d'un tableau ASP (2 colonnes)

[yoyot]

Bonjour,

J'ai un bête tableau ASP à deux colonnes. J'aimerais tout simplement trier la première colonne et que la deuxième suive le mouvement (si vous voyez ce que je veux dire

J'ai trouvé un sujet similaire sur le forum, mais ça me paraissait bien compliqué. Y'a-t-il un moyen simple ?

[ryan]

Yop!

Un petit bubble sort?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
numrows = Ubound(myarray)
for i = 0 to numrows
  for j = i + 1 to numrows
    if myarray(0,i) <= myarray(0,j) then
      col0 = myarray(0,j)
      col1 = myarray(1,j)
      myarray(0,j) = myarray(0,i)
      myarray(1,j) = myarray(1,i)
      myarray(0,i) = col0 
      myarray(1,i) = col1 
    end if
  next
next

Pour changer l'order du tri, il suffit de changer le sens de l'inégalité dans le If

Ryan
Bib bubbles, no troubles

[yoyot]

Salut, déjà merci pour le code. J'ai essayé de le faire fonctionner, mais je ne suis pas sûr que c'est ce dont j'ai besoin.

Je m'explique un peu mieux :
J'ai un tableau comme tel avec deux colonnes :
ARTICLE,QUANTITÉ
54,1
90,2
9,1
14,5

J'aimerais qu'il trie la colonne article et donc que les quantités restent avec les bons articles.
Le code que tu m'as donné fonctionne pour ce genre de tri ?

[ryan]

Voui!

Ryan
Laconique..

[yoyot]

J'ai réutilisé ton code pour le mettre ici :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
'Créer un tableau pour le trier par la suite
tab_products=Split(v_products,",")
tab_qty=Split(v_qty,",")
Dim myarray()
Redim myarray(ubound(tab_products),ubound(tab_products))
FOR i=0 TO ubound(tab_products)
 myarray(0,i)=Cint(tab_products(i))
 myarray(1,i)=Cint(tab_qty(i))
NEXT
 
'Tourner dans les articles pour les trier par ordre croissant de la clé primaire pro_no
numrows = Ubound(myarray)
for i = 0 to numrows
  for j = i + 1 to numrows
	if myarray(0,i) <= myarray(0,j) then
	  col0 = myarray(0,j)
	  col1 = myarray(1,j)
	  myarray(0,j) = myarray(0,i)
	  myarray(1,j) = myarray(1,i)
	  myarray(0,i) = col0 
	  myarray(1,i) = col1 
	end if
  next
next
 
'Passer pr recréer les variables products et quantités
response.write ubound(myarray)
FOR i=0 TO ubound(myarray)
	IF i=0 THEN
		v_products=myarray(0,i)
		v_qty=myarray(1,i)
	ELSE
		v_products=v_products&","&myarray(0,i)
		v_qty=v_qty&","&myarray(1,i)
	END IF
NEXT

Je pense avoir une erreur lorsque je dimensionne mon tableau au départ :
Redim myarray(ubound(tab_products),ubound(tab_products))
J'ai essayé Redim myarray(2,ubound(tab_products))
puis
Redim myarray(ubound(tab_products),2)
Mais rien ne semble fonctionner.

Si j'ai deux colonnes et admettons 10 enregistrements, ça fait
Redim myarray(2,10) ?
ou
Redim myarray(1,10) ? (en admettant qu'il parte à zéro)
ou... ?

[pmboutteau]

pourquoi tu bosses pas avecune base de données?

[yoyot]

Et autre question :
if myarray(0,i) <= myarray(0,j) then

Si je veux que la première colonne soit dans un ordre croissant je laisse ça comme ça ?

[yoyot]

Envoyé par pmboutteau

pourquoi tu bosses pas avecune base de données?

Après je récupère ça dans une requête SQL.

En fait j'ai v_products="94,44,11,159" mais quand je fais :

Code :

SQL="SELECT * FROM t_products WHERE pro_no IN ("& v_products &")"

Ca me trie tout par ordre croissant, comme je le veux, mais ma variable v_quantites reste non triée. C'est à dire que les quantités ne correspondent plus aux bons articles.

[pmboutteau]

tu as une clé primaire dans ta base?

[yoyot]

La clé primaire de la table t_products, c'est justement pro_no.
C'est ce qui se trouve dans v_products="12,24,53,etc."