;Split-Routine mit Strings
;Copyright (c) 2007 bear1

Dim split_words$(255)


;---------- BEISPIELPROGRAMM ----------

row$ = "'Hello, World!' ist 'ein String,' 'der trotzdem' nicht in mehreren 'Zeilen angezeigt' 'wird .'"
anzahl = Split(row$)
For i = 0 To anzahl
   Print split_words$(i)
Next
Input$()
End

Function Split(row$)
   For i = 0 To 255
      split_words$(i) = ""
   Next
   
   Local cut$, over$
   Local IN_STR = False, count = 0
   
   over$ = row$
   For b = 1 To Len(row$)
      If count > 255 Then RuntimeError("Wordlist too long")
      z$ = Mid$(over$, b, 1)
      If z$ = "'" And IN_STR = False Then
         IN_STR = True
      ElseIf z$ = "'" And IN_STR = True Then
         IN_STR = False
      ElseIf z$ = " " And IN_STR = False Then
         split_words$(count) = cut$
         count = count + 1
         cut$ = ""
      Else
         cut$ = cut$ + z$
      EndIf
   Next
   split_words$(count) = cut$
   count = count + 1
   cut$ = ""
   Return count
End Function