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.
[gelöst] "split" string oder so ähnlich
Moderator: Moderatoren
[gelöst] "split" string oder so ähnlich
Zuletzt geändert von clag am Mi, 28.05.2014 10:28, insgesamt 1-mal geändert.
LG
clag
nutzt: WinXP SP3 / AOO 4.1.10 / Firefox
clag
nutzt: WinXP SP3 / AOO 4.1.10 / Firefox
Re: "split" string oder so ähnlich
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
Hallo Stephan,
das sieht schick aus und auch noch in Rekord verdächtiger Antwortzeit
Danke
das sieht schick aus und auch noch in Rekord verdächtiger Antwortzeit
Danke
LG
clag
nutzt: WinXP SP3 / AOO 4.1.10 / Firefox
clag
nutzt: WinXP SP3 / AOO 4.1.10 / Firefox
Re: "split" string oder so ähnlich
Hallo
die Funktion sieht nun so aus
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"
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
das Trennzeichen ist zusätzlich optional abänderbar
A1="nur/ein/Test/der/Zerlegung/eines/Strings"
B1=CUTTER(A1;4) liefert zB "Zerlegung"
LG
clag
nutzt: WinXP SP3 / AOO 4.1.10 / Firefox
clag
nutzt: WinXP SP3 / AOO 4.1.10 / Firefox