VB6: Inserire testo in un file

[cla80]

Ho bisogno di Inserire del testo in un file IN UN PUNTO PRECISO, OSSIA SU DI UNA RIGA PRECISA.

Mi spiego meglio:

Voglio inserire alla riga numero 201 un blocco di testo
Potete aiutarmi??
grazie

[Melly]

Originariamente inviato da cla80
Ho bisogno di Inserire del testo in un file IN UN PUNTO PRECISO, OSSIA SU DI UNA RIGA PRECISA.

Mi spiego meglio:

Voglio inserire alla riga numero 201 un blocco di testo
Potete aiutarmi??
grazie

se il file è un documento word puoi inserire un segnalibro e valorizzarlo poi da codice

[iguana13]

se è un file l'algoritom è questo:

-Cerco il carattere di ritorno a capo
-Se ho già contato x righe:
-Scrivo la stringa
-Se ho finito il file senza contare x righe:
-Scrivo (x-n) segni di a-capo-ritorno-carrello
-Scrivo la stringa
-Altrimenti cerca li prossimo segno a-capo.

[cla80]

non è un file di word, ma testo .txt

[iguana13]

Ora te lo traduco in codice

[cla80]

Vi prego aiutatemi con il codice.

[tas]

Eccoti una procedura ad-hoc:

Public Sub InsertRow(filename As String, before As Integer, txt As String)
   'filename = nome del file di testo comprensivo di percorso
   'before = numero di riga dove inserire il testo
   'txt = testo da inserire

   Dim buf As String
   Dim s As String
   Dim n As Integer

   'lettura del file
   Open filename For Input As #1
   Do Until EOF(1)
      n = n + 1
      'inserimento della nuova riga
      If n = before Then buf = buf & txt & vbCrLf
      Line Input #1, s
      buf = buf & s
      buf = buf & vbCrLf
   Loop
   Close #1

   'scrittura del file
   Open filename For Output As #1
   Print #1, buf;
   Close #1
End Sub

Utilizzo:

InsertRow "C:\test.txt", 10, "riga aggiunta"