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 :
Le contenu du fichier FichierMachines_Global.txt est :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager