30 lines
1023 B
Plaintext
30 lines
1023 B
Plaintext
Module CheckIt {
|
|
DIM sep$()
|
|
sep$() = ("==", "!=", "=")
|
|
PRINT "String splits into:"
|
|
FNmultisplit("a!===b=!=c", sep$(), FALSE)
|
|
PRINT "For extra credit:"
|
|
FNmultisplit("a!===b=!=c", sep$(), TRUE)
|
|
END
|
|
|
|
SUB FNmultisplit(s$, d$(), info%)
|
|
LOCAL d%, i%, j%, m%, p%, o$
|
|
p% = 1
|
|
REPEAT {
|
|
m% = LEN(s$)
|
|
FOR i% = 0 TO DIMENSION(d$(),1)-1
|
|
d% = INSTR(s$, d$(i%), p%)
|
|
IF d% THEN IF d% < m% THEN m% = d% : j% = i%
|
|
NEXT I%
|
|
IF m% < LEN(s$) THEN {
|
|
o$ += """" + MID$(s$, p%, m%-p%) + """"
|
|
IF info% THEN {o$ += " (" + d$(j%) + ") "} ELSE o$ += ", "
|
|
p% = m% + LEN(d$(j%))
|
|
}
|
|
|
|
} UNTIL m% = LEN(s$)
|
|
PRINT o$ + """" + MID$(s$, p%) + """"
|
|
END SUB
|
|
}
|
|
CheckIt
|