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

**Cristalinz** · 15/11/2013, 12h01

Bonjour,

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

Code :

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

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 :

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

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

**l_autodidacte** · 15/11/2013, 13h48

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 !!!!

**Cristalinz** · 15/11/2013, 14h05

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)

**l_autodidacte** · 15/11/2013, 14h51

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.

**Cristalinz** · 15/11/2013, 14h59

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 :

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

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 :

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
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 !

**ProgElecT** · 15/11/2013, 17h54

Salut

Une autre approche

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

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

**ProgElecT** · 15/11/2013, 22h03

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 :

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

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
'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

**tsuji** · 17/11/2013, 10h56

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

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

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.

**Cristalinz** · 18/11/2013, 16h45

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.

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

VBScript

Discussions similaires

Partager

Partager