Seite 1 von 1

[gelöst] "split" string oder so ähnlich

Verfasst: Di, 27.05.2014 11:15
von clag
Hallo zusammen,

ich möchte Links in ihre Einzellteile zerlegen, also einen String an den "/" trennen damit ich auf die Teile separat zugreifen kann
das habe ich bis jetzt mit einer FINDEN() SUCHEN() Formel gemacht die aber ziemlich monströs geraten ist

Ich würde mir jetzt gern eine Funktion basteln die die mir den Teil zwischen zwei Trennzeichenpositionen ausgibt
Ein Array scheint perfekt dafür geeignet um über Index die Teile auszulesen.

Aber wie bekomme ich den STRING an den "/" getrennt in das Array?

ich glaube hier schon einmal so etwas ähnlicher gesehen zu haben finde es aber leider nicht wieder.

Re: "split" string oder so ähnlich

Verfasst: Di, 27.05.2014 11:30
von Stephan
Aber wie bekomme ich den STRING an den "/" getrennt in das Array?

Code: Alles auswählen

DeinString = "nur/ein/Test/der/Zerlegung/eines/Strings"
Array_mit_Teiltexten = Split(DeinString, "/")

tmp = ""
For i = LBOUND(Array_mit_Teiltexten ()) To UBOUND(Array_mit_Teiltexten ())
   tmp = tmp & Array_mit_Teiltexten(i) & CHR(13)
Next i

Msgbox tmp

Gruß
Stephan

Re: "split" string oder so ähnlich

Verfasst: Di, 27.05.2014 11:49
von clag
Hallo Stephan,

das sieht schick aus und auch noch in Rekord verdächtiger Antwortzeit

Danke

Re: "split" string oder so ähnlich

Verfasst: Mi, 28.05.2014 10:27
von clag
Hallo

die Funktion sieht nun so aus

Code: Alles auswählen

FUNCTION CUTTER(LongText as string, Part as integer, optional Sign as string ) 
On Error Goto ErrorHandler
If IsMissing (Sign) Then 
Sign = "/" 
end if
TextParts = Split(LongText, sign)
CUTTER = TextParts (part)
exit Function
ErrorHandler:
CUTTER = "#NV"
End FUNCTION
und kann den Textteil zwischen zwei gleichartigen Trennzeichen "/" an einer bestimmten Position ausgeben
das Trennzeichen ist zusätzlich optional abänderbar

A1="nur/ein/Test/der/Zerlegung/eines/Strings"
B1=CUTTER(A1;4) liefert zB "Zerlegung"