It's not done
. I still have to add case sensitive parsing,find between parsing, find after parsing(for parameters), find all parameters parsing(oh yeah), and totally uber pwnage parsing.
Input "Please give a string to parse in.",parse$
Input "Please give a string to parse for.",check$
parsed = Parse(check$,parse$)
If parsed = 1
Print "We found the string in the string you gave us to parse in!"
Else
Print "We didn't find the string :(."
Endif
Wait Key
Function Parse(ParseCheckString$,ParseString$)
pcs$ = Lower$(ParseCheckString$)
ps$ = Lower$(ParseString$)
If Len(pcs$) > Len(ps$)
ExitFunction 0
Else
For i = 1 to (Len(ps$)-Len(pcs$)+1)
Checkpre$ = Left$(ps$,i+Len(pcs$)-1)
Check$ = Right$(Checkpre$,Len(pcs$))
If Check$ = pcs$
ExitFunction 1
Endif
Next i
Endif
EndFunction parseresultalus.portbb.com go there.
[quote]A book. I hate books. book is stupid. I know that I need codes but I dont know the codes.[/quote} -zenicanin14 the stupidest user in the world.
