[VB6] lettura file riga per riga

[yyzyyz]

Salve, sto cercando di leggere un file con estension .Css contenente un 8000 righe circa, la lettura riga per riga sembra non funzionare infatti sulla variabile testo mi ritrovo non il contenuto di una riga che dovrebbe poi essere ciclata ma tutto il contenuto del file css.

ps. ho notato formattazioni del testo diverse da oggetti textbox a oggetti RichTextBox.

'legge file
Dim ffile As Integer
ffile = freefile()
nomefile = path_Ps_tema 
Open nomefile For Input As #ffile
'legge il file linea per linea
Do While Not EOF(ffile) 
Line Input #ffile, testo
Loop
close #ffile

[oregon]

Hai un link al file in questione?

[yyzyyz]

pvt inviato.

[oregon]

Come pensavo ... il file è in formato testo UNIX (proviene da un sistema Linux?) con il solo LF come terminatore ...

Quindi devi usare una funzione come questa per leggere una linea

Private Function RLine(f As Integer)
    Dim ch As String


    Do While Not EOF(f)
        ch = Input(1, f)
        If ch = vbLf Then Exit Do
        RLine = RLine & ch
    Loop
End Function

che userai così

    Dim testo As String
    Dim ffile As Integer
    ffile = FreeFile()
    nomefile = path_Ps_tema

    Open nomefile For Input As #ffile
    Do While Not EOF(ffile)
        testo = RLine(ffile)
        Debug.Print testo
    Loop

    Close #ffile
End Sub

Comunque esistono anche dei tool che trasformano il file in formato DOS/Windows in modo da non dovere usare codice particolare ...

[yyzyyz]

Grazie Oregon, mi hai sbloccato la situazione e spero di procedere bene, comunque molto probabilmente il file è stato concepito su linux io lavoro su win.
Non devo effettuare conversioni sul file ma editing.