Sequential files again

[bell]

Hello there

sorry for the multiple post for some reason i can not
see it, or delete it.

any way my quesion is

if a text file is stored the following way

Bert
123
Mark
456
I can access it as follows

.....

Do while sr.Peek <>-1

name = sr.Readline 'sr is the IO stream reader
phone = sr.Readline
...

Loop

How about if the file is stored as follows?

"Bert",123
"Mark",456

Thank u in advance

[pgrimes]

I didn't test this, but I think it will do what you need. It is a start at least.

Do While sr.Peek <>-1
 
info = sr.ReadLine   'Read in a line from your file
 
    tpos = info.Length
    Do Until Mid(cptFilePath, tpos, 1) = ","
           phone= Mid(info, tpos, 1) & phone
           tpos = tpos - 1
    Loop
    name = Left(info, tpos)
 
Loop

Paul