Discussion :

[beta15]

bonjour,

J'ai un fichier avec des lignes en .txt, j'aimerai avoir juste un petit script permettant de copier uniquement les lignes commençant par "Fa" ou "Gi". Les autres lignes sont ignorées.

Merci pour votre aide

[Cachlab]

Bonjour,

Quelque chose comme ça ?

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
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

++