4D Doc Center : Substring

Home

4D v14.3

Substring


Substring ( Quelle ; Von {; Länge} ) -> Funktionsergebnis

Parameter	Typ	Beschreibung
Quelle	String	Anfangstext
Von	Lange Ganzzahl	Anfangstext
Länge	Lange Ganzzahl	Zahl der gewünschten Zeichen
Funktionsergebnis	String	Teilstring des Ursprungstextes

Beschreibung

Die Funktion Substring gibt eine Zeichenkette aus den Zeichen des Textes Quelle ab dem Zeichen Von mit der Länge Länge zurück.

Von zeigt das erste zurückzugebene Zeichen der Zeichenkette an, Länge definiert die Anzahl der zurückzugebenden Zeichen.

Ist Von plus Länge größer als die Anzahl Zeichen der Zeichenkette oder ist Länge nicht angegeben, gibt Substring die Zeichen ab dem Wert Von zurück. Ist Von größer als die Anzahl Zeichen der Zeichenkette, gibt Substring einen leeren String zurück.

Warnung: Bei Verwendung in Text mit Mehrfachstil müssen Sie unter Windows alle Zeichen für Zeilenende in Form von ('\r\n') in einfache Zeichen ('\r') umwandeln, damit die Bearbeitung gültig bleibt. Das ist notwendig, da 4D die Zeilenenden vereinheitlicht, um die Plattformkompatibilität für Texte sicherzustellen. Weitere Information dazu finden Sie im Abschnitt .

Beispiel 1

Dieses Beispiel zeigt die Verwendung von Substring. Die Ergebnisse werden der Variablen vsResult zugewiesen.

 vsResult:=Substring("08/04/62";4;2) ` vsResult ergibt "04"

 vsResult:=Substring("Hilfestellung";1;5) ` vsResult ergibt "Hilfe"

 vsResult:=Substring(var;2) ` vsResult ergibt alle Zeichen außer dem ersten

Beispiel 2

Folgende Projektmethode hängt die im Text gefundenen Abschnitte (als erster Parameter übergeben) in einer Tabelle vom Typ alpha oder Text an (der als zweiter Parameter übergebene Zeiger):

  ` EXTRACT PARAGRAPHS

  ` EXTRACT PARAGRAPHS (Text ; Zeiger )

  ` EXTRACT PARAGRAPHS (Zu übertragender Text; -> Array der ¶-Zeichen )

 

 C_TEXT($1)

 C_POINTER($2)

 

 $vlElem:=Size of array($2->)

 Repeat

    $vlElem:=$vlElem+1

    INSERT IN ARRAY($2->;$vlElem)

    $vlPos:=Position(Char(Carriage return);$1)

    If($vlPos>0)

       $2->{$vlElem}:=Substring($1;1;$vlPos-1)

       $1:=Substring($1;$vlPos+1)

    Else

       $2->{$vlElem}:=$1

    End if

 Until($1="")