...problemino in VBA

[yabadaui]

E' un adomanda un po' banale, ma vorrei fare x lavoro un programmino che modifica la prima parola di ogni riga di un file txt inserendo un numero crescente, x ottenere un risultato tipo questo:

N10 ..(TESTO)
N15 ..(TESTO)
N20 ..(TESTO)
N25 ..(TESTO)
......

Sapreste darmi x cortesia l'indicazione di un metodo o di un comando per fare questa operazione?

vi ringrazio in anticipo, Luca

[Mabi]

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.

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

[yabadaui]

:gren: Grazie, sei mitico!

Luca