[VB6] Lettura file con tabulazioni unix

[Moro_80]

Salve a tutti ragazzi ho un nuovo problemino nella lettura di un file con formato unix avete presente il famoso "a capo" mostrato come un quadratino?
io uso questo codice per aprire il file :
Private Sub Command1_Click()
Lista.Clear
Percorso_file.Caption = ""
Label4.Caption = ""
On Error GoTo fine
CommonDialog1.Filter = "File di test |*.cl*"
CommonDialog1.FilterIndex = 1
CommonDialog1.CancelError = False
CommonDialog1.ShowOpen
Nomefile = CommonDialog1.FileName
Open Nomefile For Input As #1
Do While Not EOF(1)
Line Input #1, textline
Lista.List(i) = Replace$(Lista.List(i), Chr$(13), vbCrLf)
Lista.AddItem textline
Loop
Percorso_file.Caption = CommonDialog1.FileName
Label4.Caption = Lista.ListCount
Close #1
Command3.Enabled = True
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub

ma cosi lui mi mostra sempre nella listbox tutto su una riga e gli a capo con un quadratino... :master: :master:

vi ringrazio per un'eventuale aiutino...

[oregon]

Devi eliminare i caratteri 13 10 con la Replace ...

[Moro_80]

perdonami oregon ma questo non fa quello che dici tu....

Lista.List(i) = Replace$(Lista.List(i), Chr$(13), vbCrLf)

se cosi' non è avresti un esempio da postarmi?

grazie mille

[oregon]

Originariamente inviato da Moro_80
perdonami oregon ma questo non fa quello che dici tu....

No ... cosi' sostituisci il cr con il crlf ...

Ma poi, stai usando un indice i senza che questa variabile sia mai inizializzata o cambi ... a che serve? Dovresti scrivere

Do While Not EOF(1)
   Line Input #1, textline
   Lista.AddItem Replace$(textline, Chr$(13), "")
Loop

[Moro_80]

adesso ho messo tutto come hai detto tu...:

Private Sub Command1_Click()
Lista.Clear
Percorso_file.Caption = ""
Label4.Caption = ""
On Error GoTo fine
CommonDialog1.Filter = "File di test |*.cl*"
CommonDialog1.FilterIndex = 1
CommonDialog1.CancelError = False
CommonDialog1.ShowOpen
NomeFile = CommonDialog1.FileName
Open NomeFile For Input As #1
Do While Not EOF(1)
Line Input #1, textline
Lista.AddItem Replace$(textline, Chr$(13), "")
Loop
Percorso_file.Caption = CommonDialog1.FileName
Label4.Caption = Lista.ListCount
Close #1
Command3.Enabled = True
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub

ma non va lostesso..

[oregon]

"Non va lo stesso" che vuol dire ?

Vedi ancora i quadratini ?

Dovresti controllare quali sono i codici ascii di quei caratteri ... c'e' forse qualche line feed?
Allora devi usare il Chr$(10) e non il 13 ...

[Moro_80]

forse mi sono spiegato male...
allora con :
Lista.AddItem Replace$(textline, Chr$(13), "") <-------vedo lo stesso i quadratini invece con:
Lista.AddItem Replace$(textline, Chr$(10), "") <-------vanno via i quadratini ma rimane tutto su una linea senza andare a capo.
dovrebbe al posto di ogni quadratino andare a capo.

[oregon]

Ma

Lista

che tipo di oggetto e'? E' una Listbox ?

[Moro_80]

si esatto è una listbox

[oregon]

E quindi, cosa vuoi dire con

"vanno via i quadratini ma rimane tutto su una linea senza andare a capo."

?

Dai un'occhiata al file con un editor binario e dicci esattamente quali sono i caratteri finali di ogni riga ... Se puoi, fammi scaricare il file di testo in modo che gli posso dare un'occhiata ...