Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionClose #1, #2 Text1 = "c:\input.dat" FileOutPut = "c:\output.dat" Open Text1 For Input As #1 Open FileOutPut For Append As #2 While Not EOF(1) If DemandeStop = True Then Exit Sub Line Input #1, Buffer Text2 = Buffer conversion(Text2) 'Traitement de la ligne Print #2, Conversion Wend Close #1,#2
E.B.