bestimmte teile aus einem text entnehmen

[Benedikt]

Hi!
Also folgendes:
ich habe z.B den text "0|233|15|2|78|99|155"
wie kann ich es machen, das jetzt der text je bis zum | entnommen wird? also das dann zum beispiel ne msgbox "0", dann msgbox "233" dann msgbox "15" kommt?

vielen dank,
Benedikt

 

[Zorck]

Du kannst die einzelnen Textteile in ein Feld einlesen und dieses dann beliebig verwenden. Also auch mit Hilfe einer Schleife eine nach der anderen MsgBox aufrufen.

Eigentlich müsste es so funktionieren:

TextTeile() = Split(Text, "|")

 

[Benedikt]

joa, also das funktioniert schon so, also vielen dank

jedoch versteh ich split(blablabla) nicht ganz anzuwenden

also geht das dann etwar so ?:

Dim textteile()

Private Sub Command1_Click()
For i = 1 To 100
textteile(i) = Split(text.Text, "|")
Next i
End Sub

oda so?:

Private Sub Command1_Click()
dim textteile
textteile = Split(text.Text, "|")
End Sub

also hab beides getestet
das 1. scheint irrgendwie zu funktionieren, jedoch hab ich probs mit der anzeige von der var...

naja also danke nochma,
Benedikt

 

[Dario Linsky]

Dim TextTeile() As String
Dim i As Integer

TextTeile = Split("eins|zwei|drei", "|")
For i = 0 To UBound(TextTeile) - 1
    MsgBox TextTeile(i)
Next i

 

[Benedikt]

ah! jo das geht!!
vielen dank!!!!!!!!!!!!