PDA

Visualizza la versione completa : perchè questo codice VB funziona male?


nice
01-09-2002, 18:00
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
01-09-2002, 18:21
prova a mettre due virgole ho uno strano sospetto!!

nice
01-09-2002, 18:24
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
01-09-2002, 20:41
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'
:ciauz: :ciauz: :ciauz: :bubu: :ciauz: :ciauz: :ciauz:

Loading