Manipulation fichier: ouvrir/lire/écrire/sauver

Bonjour à tous,

je fais un travail en VBS et je viens de commencer.

J'utilise WinCC flexible et j'ai besoin de créer une base de donnée en enregistrant la valeur d'une variable.

Dans mon script j'ai une boucle infinie avec une condition servant de bit de start.

J'ai besoin de pouvoir créer un fichier et de le mettre à jour en ajoutant une valeur à chaque boucle. Je l'enregistre et le ferme.

j'ai déjà un bout de code mais je ne connais pas vraiment les instructions de base et pour l'instant il s'agit plus de bout de code recopié d'autre sites.

ce que je sais pour l'instant:

- Il faut créer le FSO au début.
- écrire dans un fichier.

Mais je ne sais pas encore très bien comment on fais pour modifier le fichier. J'entends par là l'ouvrir, placer le curseur en fin de fichier pour ne pas écraser ce qu'il y a déjà. Ensuite écrire et sauver.

J'ai cru comprendre que avec un fichier txt, l'enregistrement se fait automatiquement quand on écrit et qu'on ferme le fichier, mais est-vrai?

Merci à tous

Pour l'instant j'ai ça:

Code:

---

1 2	Set fso=CreateObject("Scripting.FileSystemObject") Set feuille=fso.OpenTextFile("c:\temp\DataBase.txt", ForReading, True)

---

ensuite ma boucle infinie:

Code:

---

1 2 3 4 5 6 7 8

While True   Set feuille = fso.OpenTextFile("c:\temp\DataBase.txt",ForWriting,False) feuille.Write(MaVariable)   Wend   feuille.Close

---

Je vous épargne les déclarations de variables.:mrgreen:


Lorsque je l'utilise ensuite, le programme écrit bien mais à la boucle suivante, il y a une erreur et le debuggeur windows me dit que c'est là que 4a plante:

Code:

---

Set feuille = fso.OpenTextFile("c:\temp\DataBase.txt",ForWriting,False)

---

Si ça peut vous aider à m'aider :roll:

Merci à tous

rebonjour,

J'avance de mon côté et j'ai réussi à trouver une solution pour écrire à la suite.

Maintenant je lance l'instruction:

set feuille=.....(..., ForWriting, true)

mais juste après la déclaration du FSO donc en dehors de la boucle infinie.

Mais la seul chose, pour l'instant, qui me manque est comment faire un saut à la ligne.

Le "\n" du C mais en VBS.

Merci à vous

Code:

---

feuille.WriteLine "test d'écriture"

---

Te permet d'écrire à la nouvelle ligne

Sinon l'équivalent du

Code:

---

\n

---

c'est

Code:

---

vbCr

---

ok merci

j'ai aussi trouvé la constante pour la tabulation horizontale.

Bien utile pour un minimum de mise en page.


Merci à tous

re bonjour à tous,

est-ce que vous pouvez me fournir un canevas montrant:

- la création du fichier (txt)
- écriture
- fermeture
- ouverture
- déplacement du pointeur en fin de fichier
- écriture
- fermeture


je ne pourrai jamais assez remercier celui ou celle qui m'aura aidé dans ma situation désespérée.

Merci à tous!!

Citation:

---

Envoyé par kurtaliasdiablo

1) - la création du fichier (txt)
2) - écriture
3) - fermeture
4) - ouverture
5) - déplacement du pointeur en fin de fichier
6) - écriture
7) - fermeture

---

1)

Code:

---

1 2	Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")

---

2)

Code:

---

1 2 3 4

Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\scripts\Comments.txt", _ ForWriting, TRUE)

---

3)

Code:

---

objTextFile .Close

---

4) je te l'ai mis plus haut pour l'écriture, si tu veux l'ouvir pour le lire c'est :

Code:

---

1 2 3 4

Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("C:\Windows\Debug\Netsetup.log", _ ForReading)

---

5) Il n'y a pas de pointeurs, soit tu stockes tout dans la variable soit tu lis ligne par ligne.
6) = 2)
7) = 3)

merci pour ta réponse.

Est-ce que c'est voulu que chaque chemin de fichier soit différent?

Mon but en fait est de réaliser une base de donnée.

Au début j'écris une en-tête.

Et ensuite avec un autre événement, je viens rajouter des valeurs les unes après les autres à la suite de cette en-tête.

Bien sûr la création de l'en-tête et l'ajout des valeurs se font dans 2 scripts différents.


Pour faire simple ça doit donner un truc comme ça:

--------
en-tête
--------

Valeur1
valeur2
.
.
.

Ben pour ouvrir un fichier, et écrire à la fin utilise
la constante ForAppending (8)..


Commence par tester son existence :

Comment tester l'existence d'un fichier ?

s'il n'existe pas tu crée l'entête et tu rajoute ta première ligne de donnée..

s'il existe tu l'ouvre en mode "ForAppending" et tu rajoute ta première ligne de donnée..