![]() |
BCX Console Demonstration Program S109.bas |
' ---------------------------------------------------
' BCX's implementation of the LIKE function
' uses only the "*" and "?" wildcard characters
' Syntax i = like( Buffer$ , Pattern$ )
' Like returns 1 if True -- 0 if False
' ---------------------------------------------------
DIM
IAS
Integer
I=
LIKE
(
"abcdefg"
,"*d?f*"
)
:=
LIKE
(
"abcdefg"
,"*df?"
)
: