VBScript: Probleme incrementation de variable

Version imprimable

Salut

Qu'est qui ne va pas dans mon code car le i dans "table(i)" ne veut prendre les valeurs de i ?

Code:

1
2
3
4
5
6
7
8
9
10
11
Const ForReading = 1, ForWriting = 2
  Set WshShell = WScript.CreateObject("WScript.Shell")
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\Users\pat\Desktop\ecriture.txt", ForWriting,true)
 
   i=0
   For i=0 To 20
   f.write("table(i)")
   i=i+1
Next

Merci

16/02/2015, 14h37
pc75

Bonjour,

Ca veut dire quoi ?

Citation:

... ne veut prendre les valeurs de i ...

Bonjour,

Essayez :
Code:

1 2 3 4 5 6 7 8 9 10 11 Const ForReading = 1, ForWriting = 2 Set WshShell = WScript.CreateObject("WScript.Shell") Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\Users\pat\Desktop\ecriture.txt", ForWriting,true) i=0 For i=0 To 20 f.write(table(i)) Next
Attention,

Code:

f.write("table(i)")

écrit table(i) dans les fichiers et cela 20 fois !
Si vous voulez les valeurs comprises dans le tableau table, vous devez utiliser la variable table (donc sans les doubles quotes)

PS : De plus, la boucle For incrémente toute seule la valeur de i, vous n'avez pas besoin de faire i=i+1

16/02/2015, 15h26
Fredman

Citation:

Envoyé par pc75

Bonjour,

Ca veut dire quoi ?

J'arrive pas a faire

table(0)
table(1)
table(2)
.
table(19)
table(20)
16/02/2015, 15h31
pc75
Re,

Je ne saisis pas le but mais ...
Code:

1 2 f.write("table(" & i & ")")
16/02/2015, 15h48
l_autodidacte
Je pense qu'il faut donner une valeur(numérique ou chaine) à chaque élément du tableau puis écrire le résultat dans le fichier; par exemple :
Code:

1 2 3 For i = 0 To 20 f.WriteLine "table(" & i & ") = " & CStr(2*i + 5) Next
16/02/2015, 17h31
Fredman

Merci a tous.. c'est le résultat que je voulais... :plusser:

Et comment faire le retour a la ligne?
16/02/2015, 18h26
ProgElecT

Salut

vbCr: Constante pour le caractère de retour chariot; sans changement de ligne; équivalente à Chr(13)
vbCrLf: Constante pour la combinaison retour chariot / changement de ligne; équivalente à Chr(13)+Chr(10)
vbNewLine: Constante pour NewLine (nouvelle ligne); spécifique de la plate-forme
vbLf: Constante pour le caractère de changement de ligne (sans retour chariot); équivalente à Chr(10)

Merci j'ai essayer comma ça mais ça marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
 
  Const ForReading = 1, ForWriting = 2
  Set WshShell = WScript.CreateObject("WScript.Shell")
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\Users\pat\Desktop\ecriture.txt", ForWriting,true)
 
   i=0
   For i=0 To 20
     f.write("table(" & i & ")") vbCrLf
   Next

17/02/2015, 11h20
pc75
Re,
Code:

1 2 f.write("table(" & i & ")") & vbCrLf

Il manque le caractère & avant vbCrLf.
D'autre part le fichier ne contiendra que la séquence table(0), table(1) .... table(20) sans aucune valeur.
Avec f.WriteLine tu n'as pas besoin de vbCrLf
De plus, les parenthèses ne sont pas nécessaires juste après f.Write

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
  Const ForReading = 1, ForWriting = 2
  ' Set WshShell = WScript.CreateObject("WScript.Shell") ' Pas besoin de cette affection dans le contexte en cours
                                                                    ' On ne fait que charger la mémoire
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\Users\pat\Desktop\ecriture.txt", ForWriting, True)
 
 
   For i=0 To 20
     f.Write "table(" & i & ")" & vbCrLf
   Next

17/02/2015, 14h48
Fredman

Merci a tous :resolu: