15 lines
346 B
Text
15 lines
346 B
Text
Module StringMatch {
|
|
A$="Hello World"
|
|
Print A$ ~ "Hello*"
|
|
Print A$ ~ "*llo*"
|
|
p=Instr(A$, "llo")
|
|
Print p=3
|
|
\\ Handle multiple occurance for "o"
|
|
p=Instr(A$, "o")
|
|
While p > 0 {
|
|
Print "position:";p;{ for "o"}
|
|
p=Instr(A$, "o", p+1)
|
|
}
|
|
Print A$ ~ "*orld"
|
|
}
|
|
StringMatch
|