Discussion :

[Pymm]

Bonjour,
Je récupère d'une base une liste d'adresses IP qu'il me faut trier de façon croissante. Le problème est que dans la base elles sont sous forme de string.
Mon idée était de les mettre dans un tableau, le trier en effectuant un test ur le dernier octet de l'adresse converti en entier.
Ca parait simple ! et ben là a chaque fois que je tente une conversion il me sort type incompatible

Voici la fonction de tri tirée de chez Dypso puis adaptée à mon cas :

Code :

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

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
38
39
40
41
42
43
Sub QuickSort(byref vbArray,LB,UB)
 
  Dim i 
  Dim j 
  Dim X
  Dim Y
 
  i = LB
  j = UB
  X = vbArray((LB + UB) / 2)
  PosX=InstrRev(X,".")     
  ValX=Right(X,Len(X)-PosX)
  ValXconv=CInt(ValX)
 
  Do While (i <= j)
    Posi=InstrRev(Tab_ip(i),".")
    Vali=Right(Tab_ip(i),Len(Tab_ip(i))-Posi)
 
    Valiconv=CInt(Vali)
    Do While (Valiconv < ValXconv And i < UB)
       i = i + 1
    Loop
    Posj=InstrRev(Tab_ip(j),".")
    Valj=Right(Tab_ip(j),Len(Tab_ip(j))-Posj)
    Valjconv=CInt(Valj)
 
    Do While (ValXconv < Valjconv And j > LB)
      j = j - 1
    Loop
 
    If (i <= j) Then
      Y = vbArray(i)
      vbArray(i) = vbArray(j)
      vbArray(j) = Y
      i = i + 1
      j = j - 1
    End If
  Loop
 
  If (LB < j) Then QuickSort vbArray, LB, j
  If (i < RB) Then QuickSort vbArray, i, RB
 
End Sub

J'ai du oublier quelque chose mais là j'en suis au point de m'arracher les cheveux.D'avance merci de votre aide.

[cyrill.gremaud]

requete...

sql = Select FROM tbl_ipadresse ORDER BY ASC (ou DESC)
connect.Execute(sql)

while not eof

response.write(sql)

wend

[Pymm]

Ben ça m'aurais bien aidé. Ce sont des string
et lorsque le dernier octet de l'IPest inférieur à 100 il apparait sur 2 positions
donc le tri se fait 128.0.0.1, 128.0.0.100,128.0.0.101,...,128.0.0.2, 128.0.0.200,...
D'ailleurs je l'ai déjà, j'avais oublié

[Immobilis]

L'idée du tableau me semble pas mal. Voici comment je vois la solution

Code :

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

1
2
3
4
5
6
7
 
arr_IP = SPLIT(adresseIP,".")
FOR i=0 to 3
     While Len(ArrIP(i)) < 4
          ArrIP(i)) = "0" & ArrIP(i)) 
     End While
NEXT

Tu devrais récupérer des
128 | 000 | 000 | 001
128 | 000 | 000 | 011
128 | 000 | 000 | 101

A partir de la si tu recompose les segments, tu peux facilement classer par ordre croissant.
Non?

[Pymm]

Ben c'est curieux mais il me les resort comme si je n'avais pas fait la modification. Je vais fouiller le problème mais si tu as une autre idée, je suis preneur. Grrr je vais finir par detester les tris.

[Immobilis]

Qqs erreur corrigées ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
arr_address = "128.0.0.1, 128.0.0.100, 128.0.0.101, 128.0.0.2, 128.0.0.200"
arr_address = split(arr_address,", ")
for j = 0 to ubound(arr_address)
	arr_IP = SPLIT(arr_address(j),".") 
	FOR i = 0 to 3
		 Do While Len(arr_IP(i)) < 3 
			  arr_IP(i) = "0" & arr_IP(i)
		 loop
		response.Write(arr_IP(i))
	NEXT
	response.Write("<br>")
NEXT

Me donne :
128000000001
128000000100
128000000101
128000000002
128000000200

Si tu remets cela dans une dimension de "arr_address" tu pourras classer plus facilement.

A+

[Pymm]

Bon merci pour l'aide mais cela ne fonctionnait pas j'ai donc décidé de modifier les valeurs dans la base. ça m'oblige a modifier quelques pages du site mais je pense qu'au final j'y gagne en performance car c'est le sgbd qui me fait le tri.