DO - Der FoxPro-Kompatible Skriptinterpreter

alines

alines(ToArray AS Any@, InputString AS String, [Flags AS Integer, ParseChar AS String]) AS Integer

Trennt eine Zeichenkette in ihre einzelnen Zeilen auf.

Parameter ToArray

Das Array in dem die Zeilen abgelegt werden sollen. Das Array muss per Referenz übergeben werden und wird automatisch auf die notwendige Größe angepasst.

Parameter InputString

Die Zeichenkette die aufgetrennt werden soll.

Parameter Flags

Mit diesem Parameter kann das Verhalten beeinflusst werden. Die folgenden Schalter stehen zur Verfügung. Es können mehrere Schalter gleichzeitig genutzt werden.

Flag	Beschreibung
1	Entfernt Leerzeichen am Anfang und am Ende der Zeilen
2	(Noch nicht implementiert)
4	Leere Zeilen weglassen
8	Trennzeichen am Ende der Zeile soll erhalten bleiben

Parameter ParseChar

Hier kann ein alternatives Trennzeichen angegeben werden, das anstatt eines Zeilenumbruchs verwendet werden soll.

Rückgabewert

Die Anzahl der gefundenen Zeilen.

Beispiele

Auftrennen ein eines Textes in einzelne Zeilen

Das folgende Beispiel trennt einen Text, der mehrere Zeilen enthält, in seine einzelnen Zeilen auf und gibt die einzelnen Zeilen anschließend auf dem Bildschirm aus.

  1
  2
  3
  4
  5
  6
  7
  8
  9
10
11
12
13

LOCAL lines[1], anz, text, i

TEXT TO text
  Zeile 1
  Zeile 2
  Zeile 3
ENDTEXT

anz= alines(lines, text)

FOR i = 1 to anz
  ? i, " ", lines[i]
ENDFOR

  Zeile 1
  Zeile 2
  Zeile 3
1     Zeile 1
2     Zeile 2
3     Zeile 3

Auftrennen eines Textes in mehrere mehrere Teile

Das folgende Beispiel trennt einen Text, der mehrere durch ein Komma getrennte Elemente enthält, in seine einzelnen Teile auf und gibt die Teile anschließend auf dem Bildschirm aus.

  1
  2
  3
  4
  5

LOCAL parts[1], anz, i
anz = alines(parts, "a,b,c", 0, ",")
FOR i = 1 to anz
? i, " ", parts[i]
ENDFOR

1   a
2   b
3   c