String verarbeiten

[PicNick]

Dim Instring As String * 63   ' eingabe
Dim Strings(5) As String * 15   ' fünf strings
Dim Char As String * 1         ' ein zeichen 
Dim Par As Byte          ' string-Nummer 1-5
Dim Idx As Byte          ' zeichen-# im string

  Instring = "eins;zwei;drei;vier"
  Par = 1
  For Idx = 1 To Len(instring)
      Char = Mid(instring , Idx , 1)
      If Char = ";" Then
         Incr Par
      Else
         Strings(par) = Strings(par) + Char
      End If
  Next