Discussion :

[micka180]

Bonjour,

j'ai un pointeur dans un fichier qui me ramène la dernière ligne de celui-ci et vérifie la présence d'une chaine de caractères. (cela fonctionne)

Je souhaite intégrer un autre pointeur dans ce fichier qui ce place à la ligne 7 du fichier et vérifie une chaine de caractères.

Merci


Voici mon code

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
 
j = 0
i = 0
 
Do Until saveFile.AtEndOfStream
Redim Preserve arrFileLines(i) 'creation d'un tableau dans lequel la derniere ligne du fichier ouvert(saveFile) est placé
Redim Preserve supFileLines(j) 'creation d'un tableau dans lequel la septieme ligne du fichier ouvert(saveFile) est placé
 
arrFileLines(i) = saveFile.ReadLine
supFileLines(j) = saveFile.ReadLine
i = i + 1
 
 
Loop
WScript.echo i & " " & arrFileLines(i - 1)
WScript.echo j & " " & supFileLines(j + 7)
 
if instr(arrFileLines(i - 1),"reussi")Then  						
Etat = "OK DI"
WScript.Echo "C'EST BON"
End If
 
If instr(arrFileLines(i - 1),"echoue")Then
Etat = "KO DI"
WScript.Echo "C PAS TRES BON"				
End If
 
 
 
 
If InStr(supFileLines(j + 7), "Sauvegarde full") And InStr(arrFileLines(i - 1), "reussi") Then
Etat = "KO DF"
WScript.Echo "DATA FULL OK"
End If

[micka180]

voici le message d'erreur que j'obtiens

Erreur d'exécution Microsoft VBScript: Indice en dehors de la plage: '[number: 20]'

[omen999]

salut,
à première vue, ta boucle ne redimensionne pas ton tableau supFileLines puisque j est toujours égal à zéro
donc un appel du style

Code :

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

supFileLines(j + 7)

donnera nécessairement ce genre d'erreur...

[micka180]

Je viens de placer un j = j + 1 pour incrémenter mon tableau mais pas de changement

J = j + 1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Do Until saveFile.AtEndOfStream
Redim Preserve arrFileLines(i) 'creation d'un tableau dans lequel la derniere ligne du fichier ouvert(saveFile) est placé
Redim Preserve supFileLines(j) 'creation d'un tableau dans lequel la septieme ligne du fichier ouvert(saveFile) est placé
 
arrFileLines(i) = saveFile.ReadLine
supFileLines(j) = saveFile.ReadLine
i = i + 1
j = j + 1
 
Loop

[ced600]

verifie la taille de tes tableau après la boucle.

[micka180]

je ne comprends pas, voici ce que j'obtiens avec un wscript.Echo j dans ma boucle

1
2
3
4
5
6
7
8
9
10
11
12
13
13
Erreur d'exécution Microsoft VBScript: Indice en dehors de la plage: '[number: 20]'

je demande la ligne 7, cela devrai etre ok non ?

[micka180]

je viens de trouver juste une question de soustraction de lignes
merci ced 600 Pour ta pédagogie et ta patience merci beaucoup