Bonjour à tous,
n'étant un expert vbs, j'aurai souhaité pouvoir ajouter un suffixe constant à chaque fin de ligne d'un fichier. Cela , j'y arrive.
Mais je voudrai aller plus loin en faisant cela pour un répertoire donnée ( qui pourra être mis en dur dans le script) ainsi que tous les fichiers qui seront de types .txt
Il faudrait que les anciens fichiers soient effacés, et que les nouveaux soient dans un répertoire donné.
Pour résumer :
1- j'ai 15 fichiers .txt dans le répertoire c:\TEMP\INPUT (défini dans le VBS qui ne changera jamais)
2- j'ajoute par le vbs ci- dessous un suffixe (défini dans le VBS qui ne changera jamais)
3- Déplacer les nouveaux fichiers dans le répertoire c:\TEMP\OUTPUT (défini dans le VBS qui ne changera jamais)
4- effacer les fichiers tous les fichiers *.txt du c:\TEMP\ÌNPUT
D'avance, merci de toute votre aide au combien précieuse
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
17
18
19
20
21
22 const ficlu = "c:\lgo\fichier_original.txt" const ficecrit = "c:\lgo\fichier_sortie.txt" const carac = "ajout test suffixe" ' caractère à mettre en bout de ligne Set oFso = CreateObject("Scripting.FileSystemObject") if not ofso.fileexists(ficlu) then _ msgbox "fichier non trouvé",, ficlu : wscript.quit Const ForReading = 1 const ForWriting = 2 Const TristateTrue = -1 ' Unicode Set fs = oFso.OpenTextFile(ficecrit,ForWriting,true) fic= oFSO.GetFile(ficlu).path Set fl = oFso.OpenTextFile(fic,ForReading, TristateTrue) while Not fl.AtEndOfStream lig = fl.readline fs.writeline (lig & carac) Wend fl.Close : fs.close![]()
Partager