Copier les lignes commençant par

Bonjour,

Quelque chose comme ça ?
Code:
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