'>>> Page 5 of QBPSEUDO.FAQ begins here.
OR = "This OR That"
XOR = "This OR That BUT NOT BOTH"
If (5 > 1) AND (6 < 10 ) then Yep
If 5 is larger than 1 and 6 is less than 10
*> "How do I seperate command line arguments?"
You can use the following routine to seperate anything in a string
variable that is seperated by spaces:
DIM SHARED arg$(20) 'Max of 20 arguments, increase/decrease for_
' your app.
'Set up string and make call:
TheString$="This is a test of the EBS system."
NumOfWords%=ArgSplit%(TheString$)
For x%=0 to NumOfWords%
Print arg$(x%)
Next x%
SUB ArgSplit%(cline$)
I = 1: arg = LBOUND(arg$): inword = -1
WHILE I <= LENGTH
ch$ = MID$(cline$, I, 1)
IF ch$ " " THEN
IF NOT inword THEN inword = -1
arg$(arg) = arg$(arg) + ch$
ELSEIF inword THEN
arg = arg + 1
inword = 0
END IF
I = I + 1
WEND
ArgSplit% = arg
END SUB
END of FAQ Document
'>>> Page 5 of QBPSEUDO.FAQ ends here. Last page.
-+- OLMS 2.53 UNREG
---
---------------
* Origin: Most Wanted BBS +44 (0)1522 887627 & 887628 * (2:2503/509)
|