VB 6.0 do loop error (resolved)

[Deefeketje]

Hi, i've got a DO - LOOP, but after running it once, it stops, and exits the sub (I think, 'cause he doesnt do the actions after the loop)

(the file he opens has more than 1 line, so he must run the loop more than 1 time)

here is the code:

fnum = FreeFile
Open file_name For Input As fnum

TreeView1.Nodes.Clear
Do While Not EOF(fnum)
' Get a line.
Line Input #fnum, text_line

getip = Left(text_line, 15)
getnick = Mid(text_line, 16, Len(text_line))

TreeView1.Nodes.Add , , "ip" & getip, getnick, 1

Loop

Close fnum


does anyone know why he does this?
tnx

[mendhak]

Because he's not a good guy?



Does the text file have just one line in it by any chance?

[MartinLiss]

Originally posted by Deefeketje
Hi, i've got a DO - LOOP, but after running it once, it stops, and exits the sub (I think, 'cause he doesnt do the actions after the loop)

(the file he opens has more than 1 line, so he must run the loop more than 1 time)

here is the code:

fnum = FreeFile
Open file_name For Input As fnum

TreeView1.Nodes.Clear
Do While Not EOF(fnum)
' Get a line.
Line Input #fnum, text_line

getip = Left(text_line, 15)
getnick = Mid(text_line, 16, Len(text_line))

TreeView1.Nodes.Add , , "ip" & getip, getnick, 1

Loop

Close fnum


does anyone know why he does this?
tnx

What is the value of file_name? Does it containd the path as well as the file name?

[Deefeketje]

yes, file_name is the path and filename

this is the code for filr_name

file_name = App.Path
If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
file_name = file_name & "contacts.txt"

the strange thing is..
the first time he does this loop..everything goes perfect..
but the second time..nothing is done of the actions..

[Deefeketje]

the txtfile has more lines

it is like this:

#1 ipadress, nickname
#2 ipadress, nickname
#3 ipadress, nickname
#4 ipadress, nickname
#5 ipadress, nickname
...

every line is a different user

[BuggyProgrammer]

try this

fnum = FreeFile
Open file_name For Input As #fnum


Close #fnum

[Deefeketje]

it's the same..

I add 1 person..everything is perfect..
1 restart..add another one.. still going good..

but after the next restart he does the same as before..
(with the restart of the program, it saves the treeview in the txt file, and if the program starts again, it opends the txtfile in the treeview)

so I only get the first contact..and if I shut down the program..I get an error that it cant save the treeview 'cause the txt file is still open..so you see that he doesnt finishes the loop

[Deefeketje]

ok, thank you guys, but I've found the problem myselve

he stopped the loop because he wanted to add a new contact with the same treeviewkey, so I changed the save procedure..and now everything is perfect!

but thanks for helping!

[MartinLiss]

OK, so now please add resolved to the Subject of the first post.