Erreur (Indice en dehors de la plage) Fonction SPLIT [VBS]

Bonjour,

Je n'arrive pas à comprendre pourquoi mon code me retourne une erreur.

Code:

---

1 2 3 4 5 6 7 8 9

Const ForReading = 1, ForWriting = 2, ForAppending = 8   Set fichPref=fso.OpenTextFile(PathFichParam&"\preferes.ini",ForReading) 'Ouvre preferes.ini   Do Until fichPref.AtEndOfStream strTemp = fichPref.readline If Ucase("IP") = Ucase(Split(StrTemp,"=",2,1)(0)) Then AdrIp = Ucase(Split(StrTemp,"=",2,1)(1)) End if

---

Voici le fichier :

Intitule=Bonjour comment ça va
IP=192.168.5.41
Masque=255.255.255.0
Passerelle=192.168.5.1
DNS1=...
DNS2=...


Normalement, d'après ce que j'ai compris du tutoriel de Bill, Split "éclate" une chaîne de caractère, ce qui donne :

SPLIT(IP=192.168.5.41,"=",2, 1)(0))

Cette ligne renvoie : IP
n'est ce pas ?

Donc ci dessous, elle devrait renvoyer : 192.168.5.41

SPLIT(IP=192.168.5.41,"=",2, 1)(1))


En rouge c'est le nombre de sous chaînes renvoyé par la commande de Split, donc ici deux sous chaînes.
et 1 c'est la valeur de comparaison, ici on compare de chaînes textuelles.

Je n'arrive pas à trouver mon erreur selon laquelle j'utilise des indices en dehors de la plage.

Ce que je ne comprend pas de plus, c'est que ce script là :

Code:

---

1 2 3 4 5

Dim AdrIP If Ucase("IP") = Ucase(Split("IP=192.168.5.41","=",2,1)(0)) Then AdrIp = Ucase(Split("IP=192.168.5.41","=",2,1)(1)) End if msgbox AdrIp

---

Fonctionne parfaitement et me renvoie bien l'ip

Merci pour votre aide

Aucune erreur n'a été constatée en ajoutant "Loop" juste à la fin du premier code .

Le code marche parfaitement sur ma machine.
Je ne comprends pas pourquoi cela ne marche pas sur la tienne !!!!

J'ai trouvé mon erreur, en faite, dans mon fichier preference, il y a exactement ceci :

Intitule=Bonjour comment ça va
IP=192.168.10.41
Masque=255.255.255.0
Passerelle=192.168.5.1
DNS1=...
DNS2=...

Intitule=Bonererere
IP=192.168.10.41
Masque=255.255.255.0
Passerelle=192.168.5.1
DNS1=...
DNS2=...


Soit 2 fois "IP", c'est cela qui me fait sortir de ma plage, comment est ce possible de corriger cela sachant que ce fichier est dynamique et change régulièrement (Un utilisateur peut ajouter plusieurs fois une IP)

En consultant le fichier "preferes.ini" après avoir appuyé sur le bouton "Ajouter", j'ai constaté 2 choses :
- Pas de retour à la ligne après DNS2=....
- Il y a 2 lignes vides à la fin du fichier : C'est ce qui cause l'erreur "Indice en dehors de la plage".
Il faut essayer de remédier à cela en testant si la ligne lue n'est pas vide.

Merci pour votre réponse.
J'ai corrigé et maintenant, quand j'ajoute cela retourne bien à la ligne.
Cependant je dois trouver une solution pour que je puisse comparer tout mes intitulés sans sortir de la plage.

En gros ce que je désire faire c'est :

Code:

---

If Intituled = ValidForm.listeIP.Value Then

---

Si l'intitulé que j'ai récupéré est égale à la selection de la liste, alors j'applique ses paramètres.

Malheureusement intituled sort de ma plage lorsque je compare tout les intitulés. Peut être que je pourrais ranger tout mes intitulés dans une liste dynamique et ainsi, permettre une comparaison de chaque indice avec chaque ma valeur sélectionné dans ma LISTE SELECT (liste d'intitulé) ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim Intuled() Const ForReading = 1, ForWriting = 2, ForAppending = 8 Sleep "1"   Set fichPref=fso.OpenTextFile(PathFichParam&"\preferes.ini",ForReading) 'Ouvre preferes.ini   Do Until fichPref.AtEndOfStream strTemp = fichPref.readline   If Ucase("INTITULE") = Ucase(Split(strTemp,"=",2,1)(0)) Then tamp = tamp + 1 End if Loop   ReDim Intiuled(tamp) For j = 0 to tamp If Ucase("INTITULE") = Ucase(Split(strTemp,"=",2,1)(0)) Then Intituled(j) = Ucase(Split(strTemp,"=",2,1)(1)) End if Next

---

Mon idée serait :

Je compte le nombre total d'intitulé dans mon fichier, je les ajoute dans un tableau dynamique, je les compare un par un à ma valeur (ValidForm.listIP.value)
Si l'un est egal à lui, j'applique les paramètres réseau lié à cet intitulé (là aussi je ne sais pas comment faire à partir du tableau que j'aurai...)

Merci pour votre aide !

Salut

Une autre approche

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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

Dim fso, f, fichPref, PathFichParam, strTemp Const ForReading = 1, ForWriting = 2, ForAppending = 8 PathFichParam = "C:\PersoFrancis\Teste Temp"   Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(PathFichParam & "\preferes.ini", ForReading) strTemp = f.ReadAll Set f = Nothing Set fso = Nothing   If Right(strTemp, 2) <> vbNewLine Then strTemp = strTemp & vbNewLine   Dim Qui, OuDebuter   '-------- exemple ---------------- Qui = "Bonererere" OuDebuter = Debuter(strTemp, Qui)   MsgBox "IP -->" & Trouver(OuDebuter, strTemp, "IP="), vbInformation, Qui MsgBox "Masque -->" & Trouver(OuDebuter, strTemp, "Masque="), vbInformation, Qui MsgBox "Passerelle -->" & Trouver(OuDebuter, strTemp, "Passerelle="), vbInformation, Qui MsgBox "DNS1 -->" & Trouver(OuDebuter, strTemp, "DNS1="), vbInformation, Qui MsgBox "DNS2 -->" & Trouver(OuDebuter, strTemp, "DNS2="), vbInformation, Qui   '-------- autre exemple ---------------- Qui = "UnAutre" OuDebuter = Debuter(strTemp, Qui)   MsgBox "IP -->" & Trouver(OuDebuter, strTemp, "IP="), vbInformation, Qui MsgBox "Masque -->" & Trouver(OuDebuter, strTemp, "Masque="), vbInformation, Qui MsgBox "Passerelle -->" & Trouver(OuDebuter, strTemp, "Passerelle="), vbInformation, Qui MsgBox "DNS1 -->" & Trouver(OuDebuter, strTemp, "DNS1="), vbInformation, Qui MsgBox "DNS2 -->" & Trouver(OuDebuter, strTemp, "DNS2="), vbInformation, Qui '-------- encor un autre exemple ---------------- Qui = "Bonjour comment ça va" OuDebuter = Debuter(strTemp, Qui)   MsgBox "Passerelle -->" & Trouver(OuDebuter, strTemp, "Passerelle="), vbInformation, Qui MsgBox "DNS2 -->" & Trouver(OuDebuter, strTemp, "DNS2="), vbInformation, Qui MsgBox "IP -->" & Trouver(OuDebuter, strTemp, "IP="), vbInformation, Qui MsgBox "Masque -->" & Trouver(OuDebuter, strTemp, "Masque="), vbInformation, Qui MsgBox "DNS1 -->" & Trouver(OuDebuter, strTemp, "DNS1="), vbInformation, Qui   '///////////////////// routines fonctions \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Function Debuter(StrFich, RechQui) Debuter = InStr(1, StrFich, "Intitule=" & RechQui & vbNewLine, vbTextCompare) Debuter = Debuter + Len("Intitule=" & RechQui & vbNewLine) End Function   Function Trouver(Sart, StrFich, RechQuoi) Dim Deb, Fin Deb = InStr(Sart, StrFich, RechQuoi, vbTextCompare) Deb = Deb + Len(RechQuoi) Fin = InStr(Deb, StrFich, vbNewLine, vbTextCompare) Trouver = Mid(StrFich, Deb, Fin - Deb) End Function

---

Citation:

---

Envoyé par Contenu du fichier preferes.ini

Intitule=Bonjour comment ça va
IP=192.168.22.80
Masque=255.255.255.0
Passerelle=192.168.5.0
DNS1=...
DNS2=...

Intitule=Bonererere
IP=192.168.10.41
Masque=255.255.255.1
Passerelle=192.168.10.1
DNS1=...
DNS2=...

Intitule=UnAutre
IP=192.168.29.34
Masque=255.255.255.4
Passerelle=192.168.10.4
DNS1=1.2.3.4
DNS2=5.6.7.84

---

Dans ta discussion Insérer des paramètres dans une liste [HTA + VBS] il y a sûrement la possibilité de simplifier la vérification des entrées utilisateur pour ce qui est des différentes adresses.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'remplacer les lignes 269 à 568 soit 299 Sub VerifAdrIpStationX(ObjetSrc, ObjetFocus) On Error Resume Next If ObjetSrc.Value > 255 OR IsNumeric(ObjetSrc.Value) = False Then ObjetSrc.style.backgroundcolor = "red" Sleep "1" ObjetSrc.Value = "" ObjetSrc.style.backgroundcolor = "Buttonface" End If If Len(ObjetSrc.Value) = 3 OR InStr(ObjetSrc.Value, ".") > 0 Then ObjetSrc.Value=Replace(ObjetSrc.Value,".","") ObjetFocus.Focus ObjetFocus.Select End If End Sub 'Gain de 285 lignes

---

Ce qui nécessite de modifier:

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

'ligne 98 à 101 <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpStation01,AdrIpStation02)" name="AdrIpStation01" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpStation02,AdrIpStation03)" name="AdrIpStation02" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpStation03,AdrIpStation04)" name="AdrIpStation03" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpStation04,AdrSmStation01)" name="AdrIpStation04" size="3"></td><tr>   'ligne 105 à 108 <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrSmStation01,AdrSmStation02)" name="AdrSmStation01" size="3" value="255"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrSmStation02,AdrSmStation03)" name="AdrSmStation02" size="3" value="255"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrSmStation03,AdrSmStation04)" name="AdrSmStation03" size="3" value="255"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrSmStation04,AdrRouStation01)" name="AdrSmStation04" size="3" value="0"></td><tr>   'ligne 112 à 115 <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrRouStation01,AdrRouStation02)" name="AdrRouStation01" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrRouStation02,AdrRouStation03)" name="AdrRouStation02" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrRouStation03,AdrRouStation04)" name="AdrRouStation03" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrRouStation04,AdrIpDNS101)" name="AdrRouStation04" size="3" value="1"></td><tr>   'ligne 119 à 122 <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpDNS101,AdrIpDNS102)" name="AdrIpDNS101" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpDNS102,AdrIpDNS103)" name="AdrIpDNS102" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpDNS103,AdrIpDNS104)" name="AdrIpDNS103" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpDNS104,AdrIpDNS201)" name="AdrIpDNS104" size="3"></td><tr>   'ligne 127 à 130 <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpDNS201,AdrIpDNS202)" name="AdrIpDNS201" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpDNS202,AdrIpDNS203)" name="AdrIpDNS202" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpDNS203,AdrIpDNS204)" name="AdrIpDNS203" size="3"> <input maxlength="3" type='text' class="IP" onKeyUp="VerifAdrIpStationX(AdrIpDNS204,Check)" name="AdrIpDNS204" size="3"></td><tr>

---

Par contre j'ai de gros doutes sur le focus de tes lignes 565 et 566, Check n'ai pas trouvé dans ton code 8O

La raison essentielle qu'on se trouve l'erreur c'est que l'utilisation imprudente des composants d'un tableau Split() comme si qu'il est bien défini. Pour mettre en garde le fait contraire, on peut faire ça.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'dim data Do Until fichPref.AtEndOfStream strTemp = fichPref.readline data=Split(StrTemp,"=") if ubound(data)>=1 then if Ucase("IP") = Ucase(data(0)) Then AdrIp = Ucase(data(1)) 'Faites travailler AdrIp tout de suit s'il y en a plusieurs IP=... end if end if Loop

---

Sinon une ligne vide, comme dit, ou une ligne avec "IP" tout seul serrait provoquer une erreur sur l'indice.

Bonjour,

merci pour vos réponses, je suis très préssé et mobilisé sur un autre projet pour l'instant, je promet de répondre lorsque j'aurai le temps de jeter un coup d'oeil et de reprendre ce projet.

En tout cas merci pour vos réponses.

Cristalinz.