Local text:String = "hallo ich bin ein string und mache lustige sachen :-)"

Print text

Print "ich bin so lang: " + text.length

Print "das ist mein 1. Zeichen: " + text[0]

Print "ups, das ist aber ein int-wert!"

Print "also hier das zeichen als ascii: " + Chr$(text[0])

Print "und jetzt alle zeichen einzeln: "

For i:int = 0 To text.length-1
   Print Chr$(text[i]) +"  "+ text[i]
   If i = 10 Then
      Print "... usw ..."
      Exit
   endif
next

Print "und jetzt werde ich alle leerzeichen durch unterstriche ersetzten"

text = text.Replace(" ", "_")

Print text

Print "ich kann auch nur teile vom text ausgeben!"

' hier ist aber unklar, da 0..4 eigentlich nur "hall" statt "hallo" ausgibt

Print text[0..5]

Print "oder:"

Print text[text.length-3..text.length]

Print "das ist aber ganz neu. ich lese bis zum ersten unterstrich"

Print text[0..text.find("_")]

Print "also man kann ganz nützliche und komplizierte sachen machen:"

f1:Int = text.find("_") + 1
f2:Int = text.find("_", f1)

Print text[f1..f2]

Print "es geht auch schwieriger!:"

While f1<text.length

   f2 = text.find("_",f1)
   If f2<0
      f2 = text.length
   EndIf
   Print text[f1..f2]
   f1 = f2+1

wend