Dim L as String,i as long,Nb as long, Restant as String Dim NouvelleLigne as String Open "toto.txt" for input as #1 Open "Tata.txt" For Output as #2 While Not EOF(1) Line Input #1,L i = Instr(L," ") Nb = Mid$(L,2,i-2) Restant = Mid$(L,i) ' Retraiter ta ligne sachant que Nb contient la valeur numérique suivant le "N" ' Et que Restant contient le bout de la ligne : Après le "Nxx" NouvelleLigne = "N" & Cstr(i+10) & Restant ' Par exemple Print #2,NouvelleLigne Wend Close
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question