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à !!!
-------------------------------
Réponse au message :
-------------------------------
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
|