INSTR problem

[KevinFord2003]

Hi all, got a strange problem with Instr$...

In the code below, the first line with Instr
works as expected. However, the next nested
instr test always fails, even when the search term is present. This is driving me nuts...Anyone know of a solution??

Thanks in advance!!
Here's the code:

DO
LINE INPUT #1, InLine$
InLine$ = LTRIM$(LCASE$(InLine$))
IF INSTR("begin polygon", InLine$) THEN
DO
LINE INPUT #1, InLine$
InLine$ = LTRIM$(LCASE$(InLine$))
' Next line ALWAYS fails
IF INSTR("vertex", InLine$) THEN
' Deal with it
END IF
LOOP WHILE done = 0
END IF
LOOP WHILE NOT EOF(1)

 

[KevinFord2003]

Oh, this happens in Qbasic and QuickBasic too...

 

[CubeE101]

flip your arguments


DO
LINE INPUT #1, InLine$
InLine$ = LTRIM$(LCASE$(InLine$))
IF INSTR( InLine$,"begin polygon&quot THEN
DO
LINE INPUT #1, InLine$
InLine$ = LTRIM$(LCASE$(InLine$))
IF INSTR( InLine$,"vertex&quot THEN
beep
END IF
LOOP until done
END IF
LOOP until EOF(1) Sometimes... the BASIC things in life are the best...

or at least the most fun ;-)
-Josh Stribling

 

[KevinFord2003]

Doh!! Well I fell stupid. Thanks!
This is what I get for messing with basic after not using it for a few years.

Of course the REAL question is why the heck am I using Qbasic to write a program to convert Unreal levels into a new format??

 

[CubeE101]

No Prob...
I know the feeling...
TRUST ME ;-)
Sometimes... the BASIC things in life are the best...

or at least the most fun ;-)
-Josh Stribling