taille de tableau inconnue

Version imprimable

13/07/2007, 09h40
scoder

taille de tableau inconnue

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 ?

bonjour,

Code:

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é

13/07/2007, 10h41
scoder

ok je testerai ça, merci :)

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:

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 :D

bonjour,
peu être une autre solution

Code:

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+

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 :D )

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

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

13/07/2007, 11h54
scoder

merci pour vos réponses. Le temps me manque aujourd'hui et je pense voir lundi ce qui me correspond au mieux :)
13/07/2007, 12h26
LeForestier
Hach.. avigeilpro, pour le coup tu va vraiment me détester.
Code:

1 2 dim Tableau(100) unboud(Tableau)=101 (de 0 à 100)
Plage d'un tableau = de 0 à Ubound(tableau)-1 !!:P

Code:

redim preserve tableau(Ubound(Tableau)) = de 0 à 101 ' Ubound = 102

Si c'est pas juste, je mange mon chapeau :lol: :lol: :lol:

Et avec la modification du traitement de l'erreur tu n'aurra jamais l'indice 0 ;)
13/07/2007, 12h36
avigeilpro

Citation:

Envoyé par MSDN

UBound
Renvoie une valeur de typeLong contenant le plus grand indice disponible pour la dimension indiquée d'untableau.

Pour l'indice 0, j'ai vérifier, cela fonctionne parfaitement ;)
13/07/2007, 12h40
LeForestier

Citation:

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

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

Croisement poste, Je vérifie
13/07/2007, 12h43
ThierryAIM

Citation:

Envoyé par LeForestier

Si c'est pas juste, je mange mon chapeau :lol: :lol: :lol:

Tu le préfères comment ton chapeau ?

Parce que
Dim tableau(100)

Ubound(tableau) renvoie 100
avec Option Base 0, tu as bien 101 éléments mais l'indice max est 100 (de 0 à 100), et non pas 101
avec option base 1, tu as 100 éléments (de 1 à 100) est l'indice max est toujours 100

Bon appétit ! :aie:
13/07/2007, 12h43
avigeilpro

Ce que j'ai mis juste avant je l'ai directement copié de MSDN :?
Regarde l'exemple un peu plus bas sur cette page :
http://msdn2.microsoft.com/en-us/library/fhx59d0t.aspx
13/07/2007, 12h49
LeForestier

Bon, behhh :oops: :oops: ce serras un chapeau en.. Laitue et des cerises comme garniture (honte sur moi)
En fait j'ai confondu avec les flexgrid où le nombre de ligne est supérieure de 1
et j'avais ça dans ma tête, va savoir pourquoi.

A+