30 lines
848 B
Plaintext
30 lines
848 B
Plaintext
FUNCTION StringCompare$ (s1 AS STRING, s2 AS STRING, ignoreCase)
|
|
DIM s AS STRING, t AS STRING
|
|
IF ignoreCase THEN
|
|
s = LCASE$(s1)
|
|
t = LCASE$(s2)
|
|
ELSE
|
|
s = s1
|
|
t = s2
|
|
END IF
|
|
IF s < t THEN StringCompare$ = " comes before ": EXIT FUNCTION
|
|
IF s = t THEN StringCompare$ = " is equal to ": EXIT FUNCTION
|
|
StringCompare$ = " comes after "
|
|
END FUNCTION
|
|
|
|
DIM s1 AS STRING, s2 AS STRING, s3 AS STRING
|
|
|
|
s1 = "Dog": s2 = "Dog"
|
|
PRINT s1; StringCompare$(s1, s2, 0); s2
|
|
s2 = "Cat"
|
|
PRINT s1; StringCompare$(s1, s2, 0); s2
|
|
s2 = "Rat"
|
|
PRINT s1; StringCompare$(s1, s2, 0); s2
|
|
s2 = "dog"
|
|
PRINT s1; StringCompare$(s1, s2, 0); s2
|
|
PRINT s1; StringCompare$(s1, s2, 1); s2; " if case is ignored"
|
|
s1 = "Dog": s2 = "Pig"
|
|
s3 = StringCompare$(s1, s2, 0)
|
|
IF s3 <> " is equal to " THEN PRINT s1; " is not equal to "; s2
|
|
END
|