Discussion :

[Fredman]

Salut

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

Code :

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

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

[pc75]

Bonjour,

Ca veut dire quoi ?

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

[Miistik]

Bonjour,

Essayez :

Code :

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

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 :

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

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

[Fredman]

Bonjour,

Ca veut dire quoi ?

J'arrive pas a faire

table(0)
table(1)
table(2)
.
table(19)
table(20)

[pc75]

Re,

Je ne saisis pas le but mais ...

Code :

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

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

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

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

1
2
3
For i = 0 To 20
  f.WriteLine "table(" & i & ") = " & CStr(2*i + 5)
Next

[Fredman]

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

Et comment faire le retour a la ligne?