28 lines
889 B
Plaintext
28 lines
889 B
Plaintext
If OpenConsole()
|
|
|
|
Define baseString.s, m, n
|
|
|
|
baseString = "Thequickbrownfoxjumpsoverthelazydog."
|
|
n = 12
|
|
m = 5
|
|
|
|
;Display the substring starting from n characters in and of m length.
|
|
PrintN(Mid(baseString, n, m))
|
|
|
|
;Display the substring starting from n characters in, up to the end of the string.
|
|
PrintN(Mid(baseString, n)) ;or PrintN(Right(baseString, Len(baseString) - n))
|
|
|
|
;Display the substring whole string minus last character
|
|
PrintN(Left(baseString, Len(baseString) - 1))
|
|
|
|
;Display the substring starting from a known character within the string and of m length.
|
|
PrintN(Mid(baseString, FindString(baseString, "b", 1), m))
|
|
|
|
;Display the substring starting from a known substring within the string and of m length.
|
|
PrintN(Mid(baseString, FindString(baseString, "ju", 1), m))
|
|
|
|
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
|
|
Input()
|
|
CloseConsole()
|
|
EndIf
|