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

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

clag
********
Beiträge: 3570
Registriert: Di, 27.01.2009 15:30

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

Beitrag 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.
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
Stephan
********
Beiträge: 12368
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: "split" string oder so ähnlich

Beitrag 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
clag
********
Beiträge: 3570
Registriert: Di, 27.01.2009 15:30

Re: "split" string oder so ähnlich

Beitrag von clag »

Hallo Stephan,

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

Danke
LG
clag

nutzt: WinXP SP3 / AOO 4.1.10 / Firefox
clag
********
Beiträge: 3570
Registriert: Di, 27.01.2009 15:30

Re: "split" string oder so ähnlich

Beitrag 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"
LG
clag

nutzt: WinXP SP3 / AOO 4.1.10 / Firefox
Antworten