Discussion :

[scoder]

Bonjour,


je suis entrain de coder une application qui a pour but de vérifier des adresses IP. Celles ci se trouvent dans un .txt dont la taille est variable. Je sais qu'il y en a au moins une dizaine, et au maximum une cinquantaine.
J'ai donc pensé à faire un tableau (0 to 100) histoire d'être sûr mais je sais que ça n'est pas la bonne solution. Est il possible de définir de manière dynamique la taille du tableau ? sinon y a-t-il un autre outil qui serait plus efficace ?

[rv26t]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim TabIP() As String
'...
'1 ère affectation
ReDim TabIP(0 To 8) As String
TabIP(0) = "127.0.0.1"
'...
'Rajout
ReDim Preserve TabIP(0 To 14) As String
TabIP(9) = "127.0.0.10"
'...
MsgBox TabIP(0) & " - " & TabIP(9)

Il existe aussi les collections. Mais il me semble que dans ce cas un tableau suffise.

A+, Hervé

[scoder]

ok je testerai ça, merci

[avigeilpro]

Si tes IP sont séparées par un ou plusieurs caractères (exemple : retour à la ligne), voici un moyen rapide de toutes les stocker dans un tableau :

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
Dim Adr As String
Dim Contenu As String
Dim TabIP() As String
Dim Separateur As String
 
Adr = "C:\Mes IP.txt"   'adresse du fichier contenant les IP
Separateur = vbCrLf     'caractère(s) de séparation des IP dans le fichier (ici retour à la ligne)
 
Contenu = Space(FileLen(Adr))   'Dimensionne la variable à la taille du fichier
 
Open Adr For Binary As #1       'réccupère tout le contenu du fichier
Get #1, , Contenu
Close #1
 
TabIP = Split(Contenu, Separateur)  'découpe le fichier selon les séparateur et charge le tableau

Nombre d'IP trouvées dans le fichier : UBound(TabIP) + 1

[LeForestier]

bonjour,
peu être une autre solution

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 TabIP() As String
'
 
Function AddIP(IP as String) as long
   'Si 1ére itération
   On error resume next
   redim preserve TabIP(ubound(TabIP))
   if err <>0 then redim TabIP(0)
'
   TabIP(TabIP(ubound(TabIP)-1) = ID
   MsgBox TabIP(Ubound(TabIP)-1) 
   'Retourne le dernier index de TabIP
   AddIP = Ubound(TabIP)-1
END Function

A+

[avigeilpro]

As-tu testé ton code LeForestier ?
Je crois très fortement qu'il ne fonctionne pas :
- redim preserve TabIP(ubound(TabIP)) redimensionne le tableau avec les meme dimension (bref ne change rien) car UBound renvoie l'index le plus haut (et non le nombre d'entrées)
- TabIP(TabIP(ubound(TabIP)-1) = ID : la je crois qu'il va falloir m'expliquer je suppose que ID devrait etre IP, mais ce qui se trouve en gras je comprend encore moins (non je plaisante, petite erreur de frappe )

Bon voici la meme fonction, légèrement modifiée :

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
 
Dim TabIP() As String
 
Function AddIP(IP As String) As Long
    On Error GoTo ErreurDim
    ReDim Preserve TabIP(UBound(TabIP) + 1)
 
    TabIP(UBound(TabIP)) = IP
    'Retourne le dernier index de TabIP
    AddIP = UBound(TabIP)
 
Exit Function
 
ErreurDim:
    ReDim TabIP(0)
    On Error GoTo 0
    Resume Next
 
End Function

[scoder]

merci pour vos réponses. Le temps me manque aujourd'hui et je pense voir lundi ce qui me correspond au mieux

[LeForestier]

As-tu testé ton code LeForestier ?
Je crois très fortement qu'il ne fonctionne pas :
- redim preserve TabIP(ubound(TabIP)) redimensionne le tableau avec les meme dimension (bref ne change rien) car UBound renvoie l'index le plus haut (et non le nombre d'entrées)

Là tu te trompe, Ubound renvoi le nombre d'indice du tableau , voir mon poste précédant.

Croisement poste, Je vérifie