Der Split Befehl        Zurück       

Dieses Programm zeigt Ihnen den Gebrauch des Splitbefehls .

Der Befehl Split unterteil einen Textstring in mehrere Teile. Die Textausgabe wird durch ein Separatorzeichen getrennt. Das Separatorzeichen ist auf ein Komma voreingestellt. Will man ein anderes Separatorzeichen muss man dies angeben. In dem angegebenen Beispiel wird als Separatorzeichen ein Leerzeichen verwendet.

Beispiel 1 im Terminalmodus: Es zerlegt einen Beispielsatz.

STATIC PUBLIC SUB Main()

DIM liste AS String[]

DIM element AS String

DIM trenn AS String

DIM text1 AS String

trenn = " "

text1 = "Dies ist ein Satz mit mehreren Worten."

liste = Split(text1, trenn)

FOR EACH element IN liste

PRINT element

NEXT

END

Ergebnis:

Dies

ist

ein

Satz

mit

mehreren

Worten.

Das hier angebene Beispiel 2 ist etwas kompliziert , da in der Ausgabe die Reihenfolge der Wort noch von hinten nach vorne vertauscht wird.

Holen Sie sich eine neue Form. Platzieren Sie darauf ein Textfeld ( = Textbox). (Holen Sie sich das Element mit F6 und Doppelclick aus der Werkzeugkiste.)

Platzieren Sie darauf ein Befehlsfeld und benennen Sie es neu, wie auf dem Bild gezeigt :

Holen Sie aus der Werkzeugkiste zwei Textlabelfelder.

Programmcode:

STATIC PUBLIC SUB Main()

hForm AS F

hForm = NEW F

hForm.show

END

PUBLIC SUB Button1_Click()

myAr AS String[]

myStr AS String

outstr AS String

x AS Integer

outstr = ""

myAr = Split(TextBox1.Text, " ")

FOR x = 1 TO myAr.length

outstr = outstr & " " & myAr[myAr.length - x]

NEXT

TextLabel2.Text = outstr

END

Orginaltext

Split

Array = Split ( String [ , Separators , Escape ] )

Splits a string into substrings delimited by Separators . Escape characters can be specified: any separator characters enclosed between two escape characters are ignored in the splitting process.

Note that Split takes only three arguments: if you want to use several separators, you should pass them as the second parameter, concatenated in a single string.

By default, the comma character is the separator, and there are no escape characters.

This function returns a string array filled with each detected substring.

Example

DIM Elt AS String[]

DIM Sb AS String

Elt = Split("Gambas Almost Means BASIC ! 'agree ?'", " ", "'")

FOR EACH Sb IN Elt

PRINT Sb

NEXT

Gambas

Almost

Means

BASIC

!

agree ?