Selection de lignes qui commence par le même signe

cs_tecky Messages postés 20 Date d'inscription jeudi 4 avril 2002 Statut Membre Dernière intervention 8 juin 2002 - 28 mai 2002 à 22:01
Panterad69 Messages postés 20 Date d'inscription mercredi 24 avril 2002 Statut Membre Dernière intervention 19 avril 2007 - 29 mai 2002 à 16:50
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

1 réponse

Panterad69 Messages postés 20 Date d'inscription mercredi 24 avril 2002 Statut Membre Dernière intervention 19 avril 2007
29 mai 2002 à 16:50
Salut,

Tu met dans un module :

open NomFichierSortie for output as #1
Close #1
open NomFichierProduction for input as #1
open NomFichierSortie for append as #2
while not eof(1)
line input #1,val
if left(Val,1)="*" then
print #2,Val
endif
wend
Close #1
Close #2

Et voilà !!!
0
Rejoignez-nous