Discussion :

[ahage4x4]

Bonjour a tous
Je trie un tableau a une seule colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim Tampon 
Dim Tableau
Tableau = tableaunumeros
For I=1 to UBound(Tableau,1)
For J=I+1 to UBound(Tableau,1)
If  Tableau(i)<Tableau(j) Then 'décroissant
Tampon=Tableau(i)
Tableau(i)=Tableau(j)
Tableau(j)=Tampon
End If
Next
Next

Ca me retourne cet ordre 260,250,10,105,100, 9,85 etC
Il parait qu'il fait la comparison sur du texte et non pas sur des Int, faut i l reconvertir mes valeurs en int ou quoi, c'est bizarre !

Des idées ? Merci

[malbaladejo]

Convertis tes valeurs en int, ca coute rien et c'est plus sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim Tampon 
Dim Tableau 
Tableau = tableaunumeros 
For I=1 to UBound(Tableau,1) 
For J=I+1 to UBound(Tableau,1) 
If  Clng(Tableau(i))<Clng(Tableau(j)) Then 'décroissant 
Tampon=Tableau(i) 
Tableau(i)=Tableau(j) 
Tableau(j)=Tampon 
End If 
Next 
Next

[ahage4x4]

Hello malba merci a toi,
J'ai un message d'erreur type incompatible sur CLNG quand je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If  Clng(Tableau(i))<Clng(Tableau(j)) Then 'décroissant

[pmboutteau]

Essaies CInt

[ahage4x4]

Essaies CInt

Ca donne pareil, c'est bizarre.

[pmboutteau]

C'est quoi tableaunumeros?

Si c'est comme en C tu peux pas faire un tableau égal à un autre il faut le remplir case par case.

[malbaladejo]

Il y a quoi dans ton tableau?

[ahage4x4]

En fait j'ai une chaine de cette facon : 231,258,685,952, que j'en voie par GET, je fait split ce qui me rempli le tableau (j'utilise la virgule comme delimtateur), jusque la pas de probleme.

Je veux juste faire par ordre decroissant ce tableau. Donc tableaunumeros est censé etre un tableau de Texte vu la facon dont il me trie. Voila

[pmboutteau]

après ton split essaies de convertir en Int à ce moment là et trie ensuite ton tableau d'entiers.

[malbaladejo]

J'ai trouvé ce qui ne va pas dans ton algo.
Il y a un probleme sur les indices de tes tableaux.
En asp les tableaux vont de 0 à Ubound.
Lorsque tu fais J=I+1 si I = UBound(Tableau,1) alors J sort du tableau.
Voici un code qui doit fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim Tampon 
Dim Tableau 
Tableau = tableaunumeros 
For I=0 to UBound(Tableau,1)-1 
    For J=I+1 to UBound(Tableau,1) 
       If  Clng(Tableau(i))<Clng(Tableau(j)) Then 'décroissant 
            Tampon=Tableau(i) 
            Tableau(i)=Tableau(j) 
            Tableau(j)=Tampon 
      End If 
  Next 
Next

[ahage4x4]

Malba merci bcp pour ton temps, mais c'est toujours la meme erreur. Type incompatible. Serai t il une virgule qui a glissé dans le tableau

[malbaladejo]

Fais afficher un par un tout les element du tableau et tu verras bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Tampon 
Dim Tableau 
Tableau = tableaunumeros 
For I=0 to UBound(Tableau,1)-1 
   For J=I+1 to UBound(Tableau,1) 
       Response.Write "Tableau(" & j & ") : " & Tableau(j) &"<br>"
       Response.Write "     typename(Tableau(" & j & ")) : " & typename(Tableau(j)) &"<br>"
       If  Clng(Tableau(i))<Clng(Tableau(j)) Then 'décroissant 
            Tampon=Tableau(i) 
            Tableau(i)=Tableau(j) 
            Tableau(j)=Tampon 
      End If 
  Next 
Next

A part ca je ne sais plus quoi te conseiller.

[ahage4x4]

Merci bcp, j'essayerai debut de la semaine prochaine, le serveur est en panne, je profiterai pour mon rapport de stage.

[ahage4x4]

C'est fait, c'est au niveu de la requete SQL qu'il fallait reconvertir en String les arguments.
A plus