[VB6] visualizzazione stringhe in listbox

[Lugaid]

Salve, devo visualizzare in una listbox il contenuto di un file di testo a partire dalla riga 17. ho pensato di fare un type con 2 campi; il primo contiene l'indice della riga, il secondo i dati. Il problema è che nella listbox vengono visualizzati solo i primi 2 caratteri della stringa... sapete aiutarmi? Ecco qui il codice:

Private Sub menu1mostra_Click(Index As Integer)
fn = FreeFile
x.id = 0
Open cd.FileName For Input As fn

Do
Line Input #fn, x.dati
x.id = x.id + 1
If x.id >= 17 Then
List1.AddItem Val(x.dati)
End If
Loop Until EOF(fn)

End Sub

e questo è il modulo:

Public Type giorno
id As Integer
dati As Variant
End Type

Public x As giorno
Dim fn As Integer

grazie a tutti

[junx]

potresti postare una parte del file di testo?

[Lugaid]

certo eccolo

02/10/2003 00:00 0.70 0.70 0.71
00:01 0.70 0.70 0.72
00:02 0.70 0.70 0.71

e continua cosi fino alla fine del file

nella list box mi viene visualizzato
2
0
0
...

[junx]

Ok.

1. a che ti serve Type?

2. List1.AddItem Val(x.dati)

stai convertendo ciò che leggi in un valore numerico, l'interpretazione quindi avverrà in questo modo:

02/10/2003 00:00 0.70 0.70 0.71 =

2 diviso 10 diviso 2003 ec.... con risultato 0

fammi capire esattamente cosa intendi fare.

[Lugaid]

il type mi serve per associare ad ogni riga un numero... cmq era val che nn c'entrava nulla thx :metallica

[junx]

ok, ma allora non usare Type, puoi usare o un Array, o una Collection.

Dim Leggi As New Collection

Private Sub Carica()
fn = FreeFile

Open "C:\test.txt" For Input As fn

Do While Not EOF(fn)
    Line Input #fn, dati
    Leggi.Add dati
Loop

For i = 17 To Leggi.Count
    List1.AddItem Leggi(i)
Next

End Sub

[Lugaid]

in effetti un type per questo è sprecato ora provo, thx!