Elaborazione File di testo

[jury79]

Ciao a tutti, il quesito è questo:

Ho un file di testo di un numero indefinito di righe, voglio aggiungere all'inizio della prima riga un testo (TESTO1) e all'inizio di tutte le altre un'altro testo (TESTO2). Non sono molto pratico ma documentandomi un pò sono arrivato a questo:

Private Sub Command1_Click()
Dim i As Integer
Dim strlinea As String

i = 0
Open "C:\prova.txt" For Input As #1
Do Until i = 10
Line Input #1, strlinea
TOT_strlinea.Text = TOT_strlinea.Text & "TESTO2" & strlinea & vbCrLf
i = i + 1
Loop
Close #1

Open "C:\prova.log" For Append As #1
Print #1, TOT_strlinea.Text
Close #1
TOT_strlinea.Text = ""

End Sub

Il problema è che non so quante righe ha il testo perciò come definire il numero da dare ad "i" ??
E poi come sostituire la parte di testo della prima riga con "TESTO1" e non "TESTO2" ??

Spero di essere stato abbastanza chiaro.
Ciao.

[oregon]

Intanto non hai indicato il linguaggio e la versione.

In ogni caso devi usare la funzione Eof per individuare la fine del file dato che non sai quante sono le righe.

[jury79]

Sto usando Visual Basic 6.0

Comunque hai ragione con EOF funziona, grazie per la dritta.
Una parte di problema ora l'ho risolto.

Ora sto pensano di far leggere la prima riga del file di origine (file1), aggiungere il testo che mi interessa (TESTO1) e di trascriverla in un'altro file (File2). Poi di trascrivere il resto del file di testo (file1) con l'aggiunta del "TESTO2" su una textbox.
Il contenuto di questa casella di testo aggiungerlo nel file2 con la funzione APPEND.

Resta però il problema, come fare ad iniziare una lettura di un file di testo dalla seconda riga??

[gibra]

Originariamente inviato da jury79
Resta però il problema, come fare ad iniziare una lettura di un file di testo dalla seconda riga??

Ma cosa dici?
C'è l'hai già il codice: è il tuo!

[jury79]

hai ragione....