perchè questo codice VB funziona male?

[nice]

Ciao a tutti....
io uso questo codice per leggere un file di testo e aggiornare una lista

Dim Riga As String
Dim Url_Riga As String
Dim NumFile As Integer
NumFile = FreeFile
camslist.Clear
Open strDest For Input As NumFile
While Not EOF(NumFile)
If Not EOF(NumFile) Then Input #NumFile, Riga
If Not EOF(NumFile) Then Input #NumFile, Url_Riga
camslist.AddItem (Riga)
Wend
Close (NumFile)

Perchè se nella riga ho una virgola il codice mi spezza la riga?
es: se la riga è :
pippo, pluto e gino
ritrovo in Riga pluto e in Url_Riga pluto e gino

cosa c'è che non va?

Grazie...ciao

[Drocchia]

prova a mettre due virgole ho uno strano sospetto!!

[nice]

purtroppo non posso manipolare il file da leggere...è così com'è...cmq ho risolto con questo codice

Dim fso As New FileSystemObject
Dim ts As TextStream
'Open file.
Set ts = fso.OpenTextFile(strDest)
'Loop while not at the end of the file.
Do While Not ts.AtEndOfStream
Riga = ts.ReadLine
Url_Riga = ts.ReadLine
Loop
'Close the file.
ts.Close

così funziona tutto...grazie lo stesso


ciao

[vipex]

Invece di "input" per prendere i dati dal file usa "LineInput" xke':
Input: legge il file come se ad ogni virgola finisse un parametro
Es. pippo, pluto , paperino
Questi li legge tutti solo se fai
Input #1, str1, str2, str3
Quindi viene ke str1="pippo"
str2="pluto"
str3="paperino"

LineInput: Legge l'intera riga senza fare a caso della punteggiatura

ecco la spiegazione .... se nn la sapevi gia'
:bubu: