[VB6] ComboItems da file di testo con interpretazione

[Adrix]

Ciao a tutti. Come posso far leggere in una combobox un file txt come lista? E inoltre come posso limitare la lettura di una parola ad una sintassi predefinita? Mi spiego meglio:

pippo,14
antonio,18

vorrei che nella combo apparisse come primo item pippo, come secondo antonio, e far leggere la parte numerica in un'altra combo.

Vi ringrazio anticipatamente e vi saluto

[Boolean]

per popolare una combo da un file di testo puoi usare tranquillamente le istruzioni per l'accesso ai file, ovvero:

Open, Input o Line Input, Close

Originariamente inviato da Adrix
vorrei che nella combo apparisse come primo item pippo, come secondo antonio, e far leggere la parte numerica in un'altra combo.

questa mi sa che me la devi spiegare meglio

Boolean

[Adrix]

ciao grazie 1000 mi hai aperto gli occhi

ho usato qst x la lettura delle righe nella combo

Dim Riga As String
Open App.Path & "\teams.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Riga
combosquadre.AddItem Riga
Loop
Close #1

quell che vorrei fare e leggere delle determinate parole...mi spiego..nell'elenco del txt io ho tante parole seguite da "," e una cifra esempio:

antonio,40
pippo,45

io vorrei che leggesse solo "antonio", "pippo" escludendo l'ultima parte anche se questa è presente nella riga...e poi in un'altra combo invece leggere solo la parte numerica..praticamente leggere in una i nomi, nell'altra il numero dallo stesso file .txt
come si fa?

[Boolean]

Originariamente inviato da Adrix

Dim Riga As String
Open App.Path & "\teams.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Riga
combosquadre.AddItem Riga
Loop
Close #1

io vorrei che leggesse solo "antonio", "pippo" escludendo l'ultima parte anche se questa è presente nella riga...e poi in un'altra combo invece leggere solo la parte numerica..praticamente leggere in una i nomi, nell'altra il numero dallo stesso file .txt

credo di aver capito...

basta dividere la stringa e caricare le due parti ottenute in combo differenti:

Dim Riga As String
Open App.Path & "\teams.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Riga
combosquadre.AddItem Mid(Riga,1, InStr(1,Riga,",")-1)
combonumeri.AddItem Mid(Riga,InStr(1,Riga,",")+1)
Loop
Close #1

Boolean

[Adrix]

perfetto! grazie 1000!!!