VBScript : Parcourir un fichier texte et recopier son contenu
Bonjour, je souhaiterais via vbscript, lire un fichier ligne par ligne et ds un premier tps recopier chaque ligne ds un autre fichier.
Voilà mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Const ForReading = 1, ForWriting = 2
Set oFso = CreateObject ("Scripting.FileSystemObject")
Set flecture = oFso.OpenTextFile ("D:\Mes documents\Projet NAS\Script_scanmachines\FichierMachines_Global.txt", ForReading)
Set fecriture = oFso.OpenTextFile ("D:\Mes documents\Projet NAS\Script_scanmachines\FichierMachines_OK.txt", ForWriting, true)
Do While Not flecture.AtEndOfStream
ligne = flecture.ReadLine
fecriture.WriteLine (ligne)
Loop
flecture.close
fecriture.close
Set oFso = nothing |
Le contenu du fichier FichierMachines_Global.txt est :
test1
test2
test3
test4
test5
test6
test7
test8
test9
test10
Mais le résultat ds le fichier FichierMachines_OK.txt est :
test1test3test5test7test9
Je ne comprends pas pourquoi ? quelqu'un peut-il m'aider svp ?
Merci
Greg