QuickBasic Cafe Forum

I'm trying to write a function to search a file for a string, and once found, return with "yes" (for found).

Here's what I think is a finished function, but was wondering if you could check it through because I'm a QB newb.

FUNCTION SearchFile (FileName$, Name$)
NameLen = LEN(Name$)
SearchNum = 1
Found$ = "no"
OPEN FileName$ FOR INPUT AS #1
 DO UNTIL EOF(1)
  LINE INPUT #1, LineText$
  LineLen = LEN(LineText$)
  IF MID$(LineText$, SearchNum, NameLen) = Name$
   Found$ = "yes"
  ELSE
   IF SearchNum = LineLen THEN
    GOTO NextLine
   END IF
   SearchNum = SearchNum + 1
  END IF
NextLine:
 LOOP
CLOSE #1
Name$ = Found$
END FUNCTION

-Stu

Thats a pretty good way to go about doing what u wanted, and it looks like it should work, but there are a few things u should do differently.

You are missing the point of a function. a function is used much like a variable. Instead of running a sub like this:

Dostuff (foo%)

U call it like this:

Foo% = Dostuff(foo2%)

this allows the result of the function to be used in statements and to assign variables and to be used as parameters for other functions (MID$ is a function)

so heres how u should do it: (mostly a copy and paste of what u did with a few edits)
typically, -1 =TRUE and 0 = FALSE, as that is how the language sees it, so IF -1 THEN THIS IS TRUE
IF 0 THEN this is false
Ok so, heres why i made the changes:
1) Now function works properly as a function
2) Less Lines of Code, simpler design (less memory used)
3) Now, can be used to tell how many times that word appears at least once in a line. DOES NOT TELL HOW MANY TIMES IN THE FILE (for speed), can be modified to do so, however

ok, heres how to use that function:

IF SearchFile%("FileName.Ext", "Hello") THEN PRINT "FOUND!"

or:

PRINT "Hello was found"; SearchFile%("FileName.Ext", "Hello"); "Times!"

Thanks very much!

I'll be back (for more help likely)

-Stu

I had to modify the function to get it to work.
I am having a problem now compiling the program into an exe.
I'm using QB7.1, http://myweb.tiscali.co.uk/imker/PARSE.BAS
The compiler stops on the new search function call.

-Stu

Help!!

-Stu  :)