[VB6] Lettura di una determinata riga di un file di testo

[Alexg]

Ciao ragazzi, ovviamente ho cercato ma gli esempi che ho trovato non mi funzionano così apro una discussione specifica per il mio caso.

Ho un file TXT, e voglio che il programma legga solo la riga 2, dopodichè la salvi su una variabile.
Come si fa?

Grazie

[MItaly]

Const numeroriga = 2 'eventualmente se ti serve un'altra riga modifica questa riga di conseguenza
Dim riga As String, c As Integer
Open "nomefile.ext" For Input As #1
Do
c=c+1
Line Input #1, riga
Loop Until EOF(1) Or c = numeroriga

Si possono usare anche altri metodi (tramite la funzione split, ad esempio), ma sono più dispendiosi in termini di tempo di CPU e di memoria sprecata.

[Alexg]

Mi da un errore di runtime 62, "Input past end of file", alla riga "Line Input #1, riga"...

P.S. ti sei scordato di chiudere il file

[MItaly]

Const numeroriga = 2 'eventualmente se ti serve un'altra riga modifica questa riga di conseguenza
Dim riga As String, c As Integer
Open "c:\SAUDIT.TXT" For Input As #1
Do Until EOF(1) Or c = numeroriga
c = c + 1
Line Input #1, riga
Loop
If EOF(1) Then riga = "" 'la riga richiesta non esiste nel file
Close #1

[Alexg]

Grazie mille MItaly, funziona!
Lol, sei sempre te che mi aiuti

[MItaly]

[Alexg]

Cavoli, purtroppo invece devo dire che non funziona se chiedo la riga 3!

[MItaly]

Mi pare molto strano... l'ho provato abbondantemente... che errore ti dà? Hai modificato il Const?

[Alexg]

Ho fatto come te però ripetuto 3 volte contemporaneamente... quindi 3 const eccetera...
momentaneamente ho aggirato il problema mettendo gli ultimi due sulla seconda riga perchè sto costruendo un'agenda e gli faccio verificare la somma delle scritte, comunque era meglio separato

[MItaly]

A questo punto fai prima ad incapsulare tutto in una funzione...

Public Function GetFileLine(ByVal FileName As String, ByVal RowNumber As String) As String
    Dim c As Integer, fn As Integer
    fn=FreeFile
    Open FileName For Input As #fn
    Do Until EOF(1) Or c = numeroriga
        c = c + 1
        Line Input #fn, GetFileLine
    Loop
    If EOF(fn) Then GetFileLine=""
    Close #fn
End Function

Richiamala in questa maniera:

Dim riga As String
riga=GetFileLine("c:\nomefile.ext", 3)