Selection de lignes qui commence par le même signe

Question

J'ai ici un listing(fichier) de plus de 1500 lignes d'une chaine de production ,dans ce fichier je veut extraire tous les lignes qui commence par 
un " * " et les copier dans un autre fichiers.
QUI PEUT M'AIDER?

Merci d'avance

tecky

skrol29 · Answer

Un truc dans le genre :

************
Dim Fic1Num As Integer
Dim Lig1        As String
Dim Fic2Num As Integer
Dim Lig2        As String

'Ouverture du fichier source
Fic1Num = FreeFile()
Open "c:\...\fic1.txt" For Input As Fic1Num

'Ouverture du fichier cible
Fic2Num = FreeFile()
Open "c:\...\fic2.txt" For Output Lock Write As Fic2Num

'Boucle de lecture/écriture
Do Until EOF(Fic1Num)
  'Lecture de la ligne suivante dans Fic1
  Line Input #Fic1Num, Lig1
  If Left$(Lig1,3)=" * " Then
    'Écriture d'une nouvelle ligne dans Fic2
    Print #Fic2Num, Lig1
  End If
Loop

'Fermeture des fichiers
Close Fic1Num
Close Fic2Num

***********************
Voilà, Enjoy
-------------
Skrol 29
-------------

Selection de lignes qui commence par le même signe

1 réponse

Discussions similaires