Apri il file da modificare e cicli la lettura di ogni riga appoggiandoti ad una variabile. Quindi modifichi la variabile aggiungendo all'inizio il conteggio, scrivi in un nuovo file la nuova riga cancellando al termine delle operazioni il file originale e rinonimando il nuovo.
codice:Dim FileNameOrig As String Dim FileNameCopy As String Dim Cont As Long Dim Stringa1 As String Dim Stringa2 As String FileNameOrig = "C:\Prova.txt" FileNameCopy = "C:\Prova2.txt" Cont = 1 Open FileNameOrig For Input As #1 Do Until EOF(1) Input #1, Stringa1 Stringa1 = "N" & CStr(Cont) & " " & Stringa1 Open FileNameCopy For Append As #2 Print #2, Stringa1 Close #2 Cont = Cont + 1 Loop Close #1 Kill FileNameOrig Name FileNameCopy As FileNameOrig

Rispondi quotando