Dies;ist;ein;Test

Dies
ist
ein
Test

Dim SplitString$(0) ;Initialisierung des Stringarrays das die einzelnen Elemente nach Befehlsausführung enthält
Global SplitCount% ;Enthält die Anzahl der Elemente nach Befehlsausführung


;Funktionskopf - Strng$ ist die aufzuteilende Zeichenkette, SplitChar$ das Trennzeichen (im Bsp. oben ist es das Semikolon)
Function Split(Strng$, SplitChar$)
   SplitCount = 0

   ;Diese Schleife durchläuft die Zeichenkette zeichenweise und errechnet wie viele Elemente herausgeteilt werden können
   For i = 1 To Len(Strng)
      Local CurChar$ = Mid(Strng, i, 1)
      If CurChar = SplitChar Then SplitCount=SplitCount+1
   Next

   ;Somit kann nun das Stringarray mit den Einzelelementen korrekt dimensioniert werden
   Dim SplitString$(SplitCount)
   Local CurrentSplit%

   ;Diese Schleife durchläuft die Zeichenkette nun erneut zeichenweise durch und sortiert die Einzelelemente in den Stringarray ein
   For i = 1 To Len(Strng)
      CurChar$ = Mid(Strng, i, 1)
      If CurChar <> SplitChar Then
         SplitString(CurrentSplit)=SplitString(CurrentSplit)+CurChar
      Else
         CurrentSplit=CurrentSplit+1
      End If
   Next
End Function

Split("Ich|mag|keine|ganzen|Strings.", "|")
For i = 0 To SplitCount
   Print SplitString(i)
Next

;x = X-Koordinate des ersten Zeichens der ersten Zeile
;y = Y-Koordinate der ersten Zeile
;strng$ = Zeichenkette die mehrzeilig ausgegeben werden soll (Bsp.: "Ich hasse~einzeiligen Text~ganz doll!")
;centre_x = Zentriert alle Zeilen um die X-Koordinate
;centre_y = Zentriert die Zeilen um die Y-Koordinate
;spacing = Größe des Zeilenabstands, 0 bedeutet normaler Zeilenumbruch ohne Leerraum

Function TextMultiline(x, y, strng$, centre_x = False, centre_y = False, spacing = 0)
   Split(strng, "~")
   Local CentreHeight% ;Y-Koordinaten bei zentriertem Text, hier nicht von Bedeutung
   If centre_y Then CentreHeight = (FontHeight()*(SplitCount+1)/2)+(spacing*SplitCount/2)
   For i = 0 To SplitCount
      Text x, y+i*FontHeight()+spacing*i-CentreHeight, SplitString(i), centre_x
   Next
End Function