Collegare un file Txt ad una listview

[Flash]

Avrei Bisogno di sapere come faccio a collegare un file txt ad una listview.
File txt:
0
1,0,5.12,3.42,0,1
2,33,5.165833,3.250324,0,1
3,36,5.17,3.234898,0,0
4,66,5.08,3.080647,0,1
5,76,5.05,3.02923,0,0
6,99,5.10256,2.910971,0,1
7,119,5.15,2.804229,0,0
8,132,5.164531,2.741294,0,1
9,165,5.203708,2.571618,0,1
10,170.3,5.21,2.544367,0,0
11,203.3,5.03,2.37469,0,1
12,203.36,5.029673,2.374382,1.374,0
13,236.3,4.85,1.293456,0,2
14,266.3,4.666,1.220092,0,1
15,296.3,4.483031,1.146728,0,1
16,318.08,4.35,1.093466,0,0
17,326.3,4.289397,1.073364,0,1
18,356.3,4.068217,1,.5,1
19,386.3,3.847038,.3673401,0,1
20,407.6,3.69,.273139,0,0
21,416.3,3.630832,.2346625,0,1
22,444.36,3.44,.1105647,1
23,469.36,3.414,0,0,0

Ogni numero prima della virgola è un campo in cui deve essere visualizzato( quindi in tutto 6 campi.Ma come faccio a dirgli che appena scrive il primo numero ed incontra la virgola deve saltare al campo successivo?

Grazie.

[pasaran]

dopo aver messo la riga del file in una stringa, puoi usare la funzione split per mettere la riga del file in un array che poi caricherai sulla listview. Ti posto un codice di esempio

Option Explicit

Private Sub Form_Load()
Dim itmx As ListItem
Dim Info As String 'In info devi mettere la riga che leggi dal file
' imposti le colonne della ListView
listview1.ColumnHeaders.Clear
listview1.ColumnHeaders.Add , , "1", 1500
listview1.ColumnHeaders.Add , , "2", 1500
listview1.ColumnHeaders.Add , , "3", 1500
listview1.ColumnHeaders.Add , , "4", 1500
listview1.ColumnHeaders.Add , , "5", 1500

Info = "aaa,bbb,ccc,ddd,eee"
Dim stringarray() As String
'leggi file in una riga
stringarray = Split(Info, ",")
Set itmx = listview1.ListItems.Add(, , stringarray(0))
itmx.SubItems(1) = stringarray(1)
itmx.SubItems(2) = stringarray(2)
itmx.SubItems(3) = stringarray(3)
itmx.SubItems(4) = stringarray(4)

End Sub

[Flash]

Grazie pasaran ma non ho ancora capito in che modo devo farlo.

Ti dò altri dati se vuoi aiutarmi:

il file è nella cartella documenti e si chiama profilo

ho già inizializzato le colonne della tabella in modo diverse delle tue perchè ho inserito la variabile clmX di tipo ColumnHeader.

un ultima cosa:

come posizione delle righe di comando posso mettere:
private sub listview_pippo_beforelabeledit(cancel as integer)?

Grazie ancora

[pasaran]

scusa per il ritardo, ma avevo da fare, per il file devi fare cosi':

Private Sub Form_Load()
Dim itmx As ListItem
Dim iFile As Integer
Dim sBuffer As String
Dim stringarray() As String
iFile = FreeFile
Open App.Path & "\prova.txt" For Input As #iFile
Do Until EOF(iFile)
Line Input #iFile, sBuffer
stringarray = Split(sBuffer, ",")
Set itmx = listview1.ListItems.Add(, , stringarray(0))
itmx.SubItems(1) = stringarray(1)
itmx.SubItems(2) = stringarray(2)
itmx.SubItems(3) = stringarray(3)
itmx.SubItems(4) = stringarray(4)
itmx.SubItems(5) = stringarray(5)
Loop
Close #iFile

End Sub

al posto di App.Path devi mettere il percorso della cartella che contiene il tuo file.
Attenzione: la penultima riga del tuo file (quella 22,444.36,3.44,.1105647,1), contiene 5 elementi e quindi in esecuzione ti dara' errore.

l'ultima domanda, cioe' quella relativa al beforelabeledit, non l'ho capita. Mi spieghi meglio cosa vuoi intendere?