aus teil1; teil2; teil3;
wird
teil1
teil2
teil3

teil1$ = "Hallo,"
teil2$ = " was"
teil3$ = " gibts"

Write teil1$
Write teil2$
Write teil3$

Print

Write teil1$
Write teil3$
Write teil2$

string$="Ich*bin*ein*String"

part(1)="Ich"
part(2)="bin"
part(3)="ein"
part(4)="String"

TeileUndAusgeben("teil1; teil2; teil3; ",";")
WaitKey
Function TeileUndAusgeben(A$,Teiler$)
   Repeat
      b$ = Left(a$,Instr(A$,Teiler$)-1)
      a$ = Mid(a$,Instr(A$,Teiler$)+1)
      Print Trim(b$)
      If A$ = "" Then Return
      If Instr (A$,Teiler$) = 0 Then ; sind noch Zeichen da ohne Trenner?
         Print  Trim(a$)
         Return
      End If
   Forever
End Function

satz$ = "  Dies ist   ein komischer    Satz mit vielen Leerzeichen  .     "
trenn$ = " "

Print "*" + satz$ + "*"


Dim wort$(50)
w$ = ""
n = 0
For i = 1 To Len(satz$)
   z$ = Mid$(satz$, i, 1)
   If z$ <> trenn$ Then
      w$ = w$ + z$
   Else
      If w$ <> "" Then
         n = n + 1
         wort$(n) = w$
         w$ = ""
      End If
   End If

Next

Print "---"
For i = 1 To n
Print "wort$(" + Str$(i) + ") = " + Chr$(34) + wort$(i) + Chr$(34)
Next

End

   satz$ = "  Dies ist   ein komischer    Satz mit vielen Leerzeichen  .     "


   Print "*" + satz$ + "*"
   For i = 0 To 10
      Print "nowrt$("+i+") = " + Chr$(34) + nwort$(satz$, i) +Chr$(34)
   Next

   WaitKey()
   End





;satz$ ist der zu untersuchende String
;wort gibt an, das wievielte Wort gesucht werden soll
Function nwort$(satz$, wort)
If wort = 0 Then Return ""
trenn$ = " " ;<-- Trennzeichen
w = 0
pos = 1
   While w < wort
      While Mid$(satz$, pos, 1) = trenn$      
      pos = pos + 1
      Wend      
      x = pos
      y = Instr(satz$, trenn$, pos)
      pos = y
      w = w + 1
   Wend
Return Mid$(satz$, x, y - x)
End Function

Strin$ = "T1~~T2~~T3~~T4~~T50~~T60~~T700~~T0"
For i = 1 To 8
   Print i +". Teil =  "+ explodeString$ (Strin$,"~~",i)
Next

WaitKey

Function explodeString$ (A$,Teiler$,Num%)
    Local b$, c%=Len (Teiler$)
    Repeat
        Pos% = Instr (A$,Teiler$)
        If Pos% = 0 Then
            If Num = 1 Then
                Return a$
             Else
             Return
            End If
        End If
        b$ = Left (a$,Pos% - 1)
        a$ = Mid (a$,Pos% + c%)
        Num% = Num% - 1
        If Num% = 0 Then Return b$
    Until Len (a$) = 0
End Function

If Nummer = 1 Then ; ist falsch
If Num = 1 Then ; richtig