37 lines
653 B
Plaintext
37 lines
653 B
Plaintext
// Rosetta Code problem: http://rosettacode.org/wiki/Binary_strings
|
|
// by Galileo, 07/2022
|
|
|
|
// Create string
|
|
s$ = "Hello, world"
|
|
|
|
// String destruction
|
|
s$ = ""
|
|
|
|
// String comparison
|
|
If s$ = "Hello, world" print "Equal String"
|
|
|
|
// Copying string
|
|
a$ = s$
|
|
|
|
// Check If empty
|
|
If s$ = "" print "String is MT"
|
|
|
|
// Append a byte
|
|
s$ = s$ + Chr$(65)
|
|
|
|
// Extract a substring
|
|
a$ = Mid$(s$, 1, 5) // bytes 1 -> 5
|
|
|
|
//substitute string "world" with "universe"
|
|
a$ = "Hello, world"
|
|
for i = 1 to len(a$)
|
|
if mid$(a$,i,5)="world" then
|
|
a$=left$(a$,i-1)+"universe"+mid$(a$,i+5)
|
|
end if
|
|
next
|
|
print a$
|
|
|
|
//join strings
|
|
s$ = "See " + "you " + "later."
|
|
print s$
|