1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Const ForReading = 1, ForWriting = 8
Dim fichier_entree, fichier_sortie, lect, ecr, Texte, Extract
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
fichier_entree = "./fichier_entree.txt"
fichier_sortie = "./fichier_sortie.txt"
if oFSO.FileExists(fichier_entree) = False Then MsgBox "Erreur fichier d'entrée non-trouvé !" : wscript.quit
if oFSO.FileExists(fichier_sortie) Then oFSO.DeleteFile fichier_sortie, True
oFSO.CreateTextFile(fichier_sortie)
Set lect = oFSO.OpenTextFile(fichier_entree, ForReading)
Set ecr = oFSO.OpenTextFile(fichier_sortie, ForWriting)
While Not lect.AtEndOfStream
Extract=""
Texte = Trim(Cstr(lect.ReadLine))
if len(Texte) > 1 Then Extract = Left(Texte, 2)
if Extract = "Gi" or Extract = "Fa" Then ecr.writeline Texte
Wend
lect.close
ecr.close |
Partager