écriture dans un fichier existant
Résolu
nick_2428
Messages postés
39
Statut
Membre
-
karirovax Messages postés 3584 Statut Membre -
karirovax Messages postés 3584 Statut Membre -
Bonjour,
J,ai un code en vbs qui me créé différents fichiers avec des données que j,extrais de mon fichier source. Tout fonctionne très bien, sauf que je dois, à chaque fois avant de lancer mon code, effacer les fichiers créés auparavant sinon les informations extraites sont ajoutés aux anciennes au lieu que le fichier soit mis à jour.
J,aimerais connaître la manière de procéder pour que le fichier se mette à jour avec seulement les nouvelles données extraites avec mon code sans que j,ai à les effacer au préalable.
J,ai bien tenter de trouver réponse à ma question sur le net, mais comme je suis très débutant en la matière, je ne cherche pt pas avec le bon lexique. Merci de bien vouloir m'aider.
Mon code commence de la sorte:
strSourceFile = "C:\Users\.......txt"
strResultat = "C:\Users\.......html"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.openTextFile(strSourceFile, 1,true)
Set objResultat = objFSO.openTextFile(strResultat, 8,true)
dim Myarray (20)
.......
J,ai un code en vbs qui me créé différents fichiers avec des données que j,extrais de mon fichier source. Tout fonctionne très bien, sauf que je dois, à chaque fois avant de lancer mon code, effacer les fichiers créés auparavant sinon les informations extraites sont ajoutés aux anciennes au lieu que le fichier soit mis à jour.
J,aimerais connaître la manière de procéder pour que le fichier se mette à jour avec seulement les nouvelles données extraites avec mon code sans que j,ai à les effacer au préalable.
J,ai bien tenter de trouver réponse à ma question sur le net, mais comme je suis très débutant en la matière, je ne cherche pt pas avec le bon lexique. Merci de bien vouloir m'aider.
Mon code commence de la sorte:
strSourceFile = "C:\Users\.......txt"
strResultat = "C:\Users\.......html"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.openTextFile(strSourceFile, 1,true)
Set objResultat = objFSO.openTextFile(strResultat, 8,true)
dim Myarray (20)
.......
A voir également:
- écriture dans un fichier existant
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
1 réponse
salut
voici un exemple pour écrire dans un fichier TXT :
Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true)
f.write("Salut")
en tout cas remplacez le nombre 8 ( appending ) par 2 ( writing ) et le script va marcher
...
voici un exemple pour écrire dans un fichier TXT :
Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true)
f.write("Salut")
en tout cas remplacez le nombre 8 ( appending ) par 2 ( writing ) et le script va marcher
...