String.Split Methode Delimiter mehrmals vorhanden

[SyntaxXx]

Guten Tag zusammen,
ich habe ein Problem mit der Split Methode bei Strings.

Wenn ich einen String in 2 Teile splitten möchte, der Delimiter aber mehrmals vorhanden ist, kann ich de String nicht richtig Splitten.
Hier ein Beispiel:

Delphi-Quellcode:

meinString := 'Hallo,ich,bin,ein,String';
teil1 := meinString.Split([','])[0];
teil2 := meinString.Split([','])[1];

// teil1: Hallo
// teil2: ich

Ich möchte aber, das nur der erste Delimiter beachtet wird.
Die Ausgabe sollte also so aussehen:

Delphi-Quellcode:

// teil1: Hallo
// teil2: ich,bin,ein,String

Wichtig dabei ist, dass die anderen Delimiter (also das Zeichen) bleiben, ich kann diese also nicht einfach dur ein Leerzeichen oder was anderes ersetzten.

Gibt es eine gute Möglichkeit das zu bewerkstelligen, ohne mit einer Schleife die Anzahl der Delimiter zu zählen und diese dann zu einem String zu verketten?

Am liebsten wäre es mir, wenn "meinString.Split([','])[1];" mir "ich,bin,ein,String" liefert.

[Uwe Raabe]

Zitat:

Zitat von SyntaxXx (Beitrag 1269134)

Am liebsten wäre es mir, wenn "meinString.Split([','])[1];" mir "ich,bin,ein,String" liefert.

Dann ist Split nicht die richtige Methode!

[Bernhard Geyer]

such mit Pos() die erste Position des Trenners und hol dir mit Copy() die beiden Strings

[himitsu]

Jupp, Pos und dann mit Copy den gewünschten Teil rauskopieren, wäre besser.
Split macht nunmal das, wofür es gemacht wurde. -> an allen Delimitern aufteilen.
Ansonsten bräuchte man kein dynamisches Array, als Result, sondern nur 2 Strings.

Oder erstmal mit einem StringReplace das erste Komma durch ein neues/anderes Zeichen ersetzen, welches man dann als Delimiter verwendet.

Zitat:

Zitat von Bernhard Geyer (Beitrag 1269138)

such mit Pos() die erste Position des Trenners und hol dir mit Copy() die beiden Strings

Ich würde es nur etwas anders ausdrücken, also "such mit Pos() die Position des ersten Trenners ...", aber kommt praktisch auf's Gleiche raus.



PS: GetShortHint und GetLongHint machen fast sowas, wie du es suchst, allergdings mit einem "|" (Pipe) als Delimiter.
Es gibt nur einen Unterschied beim Verhalten, wenn kein Delimiter vorhanden ist.

Und wenn es mehrere solcher Strings gibt, dann könnte man eventuell auch das Names&Values des TStrings benutzen.

[Uwe Raabe]

Also bei XE6 gibt es ein Overload für Split, dem man einen Count mitgeben kann:

Delphi-Quellcode:

meinString.Split([','], 1)[1];

Wenn XE4 das nicht hat, dann muss ich mich also korrigieren: es ist nicht die falsche Methode, sondern eine zu alte Delphi-Version.

[Sir Rufo]

Zitat:

Zitat von Uwe Raabe (Beitrag 1269150)

Also bei XE6 gibt es ein Overload für Split, dem man einen Count mitgeben kann:

Delphi-Quellcode:

meinString.Split([','], 1)[1];

Wenn XE4 das nicht hat, dann muss ich mich also korrigieren: es ist nicht die falsche Methode, sondern eine zu alte Delphi-Version.

Nein, es ist und bleibt die falsche Methode ... egal wie alt die Delphi-Version ist, denn ohne die Angabe des Parameters, wird die falsche Methode benutzt.

Wenn es in älteren Delphi-Versionen diese Überladung nicht gibt, dann wird die falsche Methode doch nicht richtiger, sondern bleibt genauso falsch, es fehlt nur die Alternative mit der richtigen Methode :)

[Dejan Vu]

Bei Ausgrabungen habe ich das hier gefunden. Ich habe mir so eine Funktion für meine ersten Gehversuche mit 15 Jahren unter Rocky Mountain Basic (HP9845) geschrieben. Es macht genau das, was u.A. himitsu vorgeschlagen hat.

Delphi-Quellcode:

Function Split(Var S: String; Del: String): String;
Var
  p: Integer;

Begin
  p := pos(Del, S);
  If p = 0 Then Begin
    Result := s;
    s := '';
  End
  Else Begin
    Result := Copy(s, 1, p - 1);
    s := Copy(s, p + length(Del), length(s));
  End;
End;

Damit kann man -allerdings ziemlich unperformant- einen String sukzessive in seine Bestandteile zerlegen:

Delphi-Quellcode:

var
  s : String;

begin
  s:='Das,ist,ein,Satz,mit,Komma';
  while s<>'' do writeln(Split(s,','));
End;

Nach dem ersten Aufruf stände in 'S' allerdings das vom TE gewünschte Ergebnis.

Und: Ja, ich werde mich mit Emba mal über den Methodennamen 'Split' ernsthaft unterhalten müssen. Ich war zuerst da, von wegen prior Art und so :stupid:

[Mikkey]

Ersetze das erste Vorkommen des Kommas durch etwas Anderes (z.B. ein Tabzeichen), darauf dann den Split aufrufen (mit dem Tabzeichen als Delimiter) und voila...

[Dejan Vu]

Beim ersten Review bekämst Du so eine Lösung zurück ;-) Lustige Idee, aber da es einfacher geht...

[Sir Rufo]

Zitat:

Zitat von Mikkey (Beitrag 1269173)

Ersetze das erste Vorkommen des Kommas durch etwas Anderes (z.B. ein Tabzeichen), darauf dann den Split aufrufen (mit dem Tabzeichen als Delimiter) und voila...

voila ... kommt in dem ersten Teil auch schon ein TAB vor

Code:

Ic<TAB>h<TAB>bin,ein,String

und dann?
Nun man könnte ja eine Liste von Trennzeichen definieren, prüfen ob diese in dem String vorkommen und dann das passende benutzen.
Und wenn alle Trennzeichen in dem String vorkommen, dann gibt man einfach ein Meldung aus "Ich kann den String nicht an dem ersten Komma trennen!".

Oder man sucht einfach nach dem ersten Vorkommen des Trennzeichens (Komma) und trennt an der Stelle den String einfach auf.

[Dejan Vu]

Zitat:

Zitat von Sir Rufo (Beitrag 1269180)

Oder man sucht einfach nach dem ersten Vorkommen des Trennzeichens (Komma) und trennt an der Stelle den String einfach auf.

Siehe den Vorschlag von himitsu und meine preisverdächtigen und zum Patent angemeldeten Code.

[Sir Rufo]

Zitat:

Zitat von Dejan Vu (Beitrag 1269181)

Zitat:

Zitat von Sir Rufo (Beitrag 1269180)

Oder man sucht einfach nach dem ersten Vorkommen des Trennzeichens (Komma) und trennt an der Stelle den String einfach auf.

Siehe den Vorschlag von himitsu und meine preisverdächtigen und zum Patent angemeldeten Code.

Habe ich doch gesehen (und ja auch so beschrieben) ...

allerdings habe ich an deinem Code etwas auszusetzen. Eine Veränderung des Übergabewertes bei dieser Funktion kommt eher überraschend und zwingt den Entwickler dazu, den String vorher zu kopieren, wenn dieser Wert noch benötigt wird oder als

Delphi-Quellcode:

const

Parameter übergeben wurde.

Generell ist es besser, diese Funktion so zu schreiben (wie auch die vorhandene String.Split Funktion), dass dort ein Array zurückgegeben wird und der Übergabewert nicht verändert wird.

Und in XE4 gibt es auch diese Überladungen System.SysUtils.TStringHelper.Split (DocWiki Delphi XE4) somit ist die Diskussion ja schon fast obsolet :)

[himitsu]

Zum Glück hatte ich Mikkey's Vorschlag noch nicht erwähnt. :angel:

@Dejan Vu: Joar, eine passende Methode ist schon gut, aber wäre es nicht besser die anders zu nennen und nicht genauso, wie die Andere?

[Dejan Vu]

Ich verstehe die Diskussion nicht. Da will jemand einen String in zwei Teile teilen:
'A,B,C' => 'A' und 'B,C'. Das macht die fossile Funktion 'Split' aus meinem Fundus. Da wird kein Array benötigt und nichts.

Natürlich habt ihr recht (blöder Name und blöder Seiteneffekt mit 'Var'). AAAAABER!!!1!!!11!!eins!!!EINS!!ELF

Ich habe diese Methode aus den 70er Jahren des letzten Jahrhunderts nur vorgestellt, um zu zeigen, was für ein toller Superprogrammierer ich bin wie alt die Notwendigkeit für das Aufteilen von Strings ist. Als ich das geschrieben habe, konnte man keine Funktionen schreiben, die Arrays liefern (BASIC, wer kennt das noch?) und seitem habe ich das. Wozu soll ich was anderes nehmen?
Zum Thema 'einen anderen Namen wählen': Wenn sich hier einer einen anderen Namen ausdenken muss, dann ja wohl die Leute von .NET und Emba und nicht ich ;-) Als ich mein 'Split' gebaut habe, gab es die Programmierer noch gar nicht (David I vielleicht, aber sonst?).... (Und wenn jetzt noch jemand drauf eingeht, werde ich anfangen, laut zu weinen)

Die Routine ist doch super zu gebrauchen (so wie sie ist). Wenn Performance nicht so die Rolle spielt, kann ich damit sehr schön einen String zerteilen und während des Zerteilens gleich prüfen, ob alles ok ist. Oder zuweisen

Delphi-Quellcode:

// Zeit|Datum|Prüfnr|
procedure Zerteile (zeile :String);
Begin
  zeit := split(zeile,'|');
  datum := split(zeile,'|');
  Prüfnr := split(zeile,'|');
end;

Mach das mal mit einem Array. (Klar, geht). Aber nun... Hups, jetzt haben die noch die Terminalnummer vorne ran gestellt. Na und?

Delphi-Quellcode:

// TerminalNr|Zeit|Datum|Prüfnr|
procedure Zerteile (zeile :String);
Begin
  terminal := split(zeile,'|');
  zeit := split(zeile,'|');
  datum := split(zeile,'|');
  Prüfnr := split(zeile,'|');
end;

Bei Verwendung eines Arrays muss ich nun die Indexe nachpflegen, die ich natürlich als Konstanten deklariert habe (was für ein Aufwand)...
Einfacher also so gehts nicht. Oh, doch. Clean Code.

Delphi-Quellcode:

procedure Zerteile (zeile :String);
  function _naechsterTeilString:String;
  begin
    result := split(zeile,'|');
  end;
Begin
  terminal := naechsterTeilString;
  zeit := naechsterTeilString;
  datum := naechsterTeilString;
  Prüfnr := naechsterTeilString;
end;

Mach das mal mit dem Split, was Arrays liefert in weniger Zeilen, leichter verständlich und leichter erweiterbar... Kriegt man nicht hin, behaupte ich mal.

Das nur mal so zur Verteidigung gegen Angriffe des sich nicht wehren könnenden Codeschnipsels aus dem 1970ern. Man Leute, der ist grenzdebil (der Code, nicht der Coder)

Allerdings: Heute mit Delphi XY würde ich vermutlich auch anfangen, meine Stringroutinen zu entstauben und diese Split-O-Mat Routine nicht mehr verwenden. Aber darum gehts ja hier nicht, sondern....


... um das Aufteilen eines Strings an einem Trennzeichen in den Teil davor und den Teil danach... Oder?

[Stevie]

Zitat:

Zitat von Sir Rufo (Beitrag 1269184)

Und in XE4 gibt es auch diese Überladungen System.SysUtils.TStringHelper.Split (DocWiki Delphi XE4) somit ist die Diskussion ja schon fast obsolet :)

Also zumindest in meinem XE6 machen die nicht, was der TE möchte, sondern Count gibt hier nur an, wie viele elemente maximal man im Result haben möchte. Also würde

Delphi-Quellcode:

Split([','], 1)

nur ein array mit einem Element zugeben, in dem 'Hallo' stünde.

Und übrigens:

Delphi-Quellcode:

meinString := 'Hallo,ich,bin,ein,String';
kommaPos := meinString.IndexOf(',');
teil1 := meinString.Substring(0, kommaPos);
teil2 := meinString.Substring(kommaPos + 1);

[Uwe Raabe]

Zitat:

Zitat von Stevie (Beitrag 1269234)

Also zumindest in meinem XE6 machen die nicht, was der TE möchte, sondern Count gibt hier nur an, wie viele elemente maximal man im Result haben möchte. Also würde

Delphi-Quellcode:

Split([','], 1)

nur ein array mit einem Element zugeben, in dem 'Hallo' stünde.

Wo du recht hast...

[himitsu]

Zitat:

Zitat von Stevie (Beitrag 1269234)

Und übrigens:

Delphi-Quellcode:

meinString := 'Hallo,ich,bin,ein,String';
kommaPos := meinString.IndexOf(',');
teil1 := meinString.Substring(0, kommaPos);
teil2 := meinString.Substring(kommaPos + 1);

Sind diese Methoden auch in Win32 0-basierend?

[Dejan Vu]

Zitat:

Zitat von Stevie (Beitrag 1269234)

Und übrigens:

Knallts, wenn kein Komma vorhanden ist :-)
Und übrigens: Die Lösung hatten wir schon hier.

Zitat:

Zitat von himitsu (Beitrag 1269141)

Jupp, Pos und dann mit Copy den gewünschten Teil rauskopieren, wäre besser.
Split macht nunmal das, wofür es gemacht wurde. -> an allen Delimitern aufteilen.
Ansonsten bräuchte man kein dynamisches Array, als Result, sondern nur 2 Strings.
...

und hier.

Zitat:

Zitat von Dejan Vu (Beitrag 1269169)

Bei Ausgrabungen habe ich das hier gefunden. ...

und hier

Zitat:

Zitat von Sir Rufo (Beitrag 1269180)

Oder man sucht einfach nach dem ersten Vorkommen des Trennzeichens (Komma) und trennt an der Stelle den String einfach auf.

Wollen wir das Thema wechseln? :stupid:

[Stevie]

Zitat:

Zitat von Dejan Vu (Beitrag 1269250)

Zitat:

Zitat von Stevie (Beitrag 1269234)

Und übrigens:

Knallts, wenn kein Komma vorhanden ist :-)

Täts auch im Code, den der TE gepostet hat.
Ich trau ihm aber zu, ein if zu schreiben, was kommaPos überprüft...

Zitat:

Zitat von Dejan Vu (Beitrag 1269250)

Und übrigens: Die Lösung hatten wir schon hier.

Das muss wohl in der ganzen Metadiskussion untergegangen sein. :roll:
Ich dachte aber, ich poste das nochmal mit Verwendung der entsprechenden TStringHelper Methoden, denn:

Zitat:

Zitat von himitsu (Beitrag 1269243)

Sind diese Methoden auch in Win32 0-basierend?

Ja

Zitat:

Zitat von Dejan Vu (Beitrag 1269250)

Wollen wir das Thema wechseln? :stupid:

Genau! back to OT :stupid:

[sx2008]

Zitat:

Zitat von Dejan Vu (Beitrag 1269181)

... und meine preisverdächtigen und zum Patent angemeldeten Code.

Das sieht aber schlecht für Dich aus weil folgende Funktion ist schon Open Source :lol:

Delphi-Quellcode:

function StrToken(var S: string; Separator: Char): string; // kopiert aus der JCL
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;

[himitsu]

Gibt es im Delphi uch, nur hat man das seit Jahrzehnten vergessen öffentlich zur Verfügung zu stellen. :freak:
z.B. siehe die Behandlung von ParamStr

Man stelle sich mal vor die würden wichtige Dinnge offenlegen, dann würden z.B. alle Programme, welche einen Pascal-Parser benötigen plötzlich endlich mal enheitlich abeiten können und würden nicht jedesmal abrauchen, wenn Emba etwas neues in die Sprache einführt.


DokuInsight raucht bei den kleinsten Problemen ab.
Und CnPack ist auch grauenhaft (vorallem in einem langsamen RDP).

[Dejan Vu]

Zitat:

Zitat von sx2008 (Beitrag 1269293)

Das sieht aber schlecht für Dich aus weil folgende Funktion ist schon Open Source :lol:

Das ist ein drittklassiges Plagiat, alleine schon wegen der dilettantischen Verwendung von 'Delete', und dann diese Codekomposition (oh Graus), und dann auch nur ein 'Char' als Trenner. Nee, also. Nee. (Wieso gibt es kein Smiley, welches sich den rechten Handrücken an die Stirn hält und den Kopf nach links oben dreht?)

Ich melde zudem prior art an. Ich kann belegen, das dieser Code im Jahr 1979 in kommerziellen Programmen Verwendung gefunden hat. Es wäre nicht das erste Mal, das sich die Opensource-Gemeinde schadlos an nicht freigegebenen Code gehalten hat. Ich sage nur: 'Schöpfungshöhe' :mrgreen: U..u..und Embarcadero wird auch in Grund und Boden geklagt.

Reich! Reich! Ich werde reich! :freak:

[DeddyH]

[OT] Man sollte sich die Zeilen

Delphi-Quellcode:

ShowMessage('Hallo Welt');

und

Delphi-Quellcode:

ShowMessage('Hello World');

schützen lassen, dann würde man schnell superreich :mrgreen: [/OT]

[mkinzler]

[EMOT]
und auch

Delphi-Quellcode:

ShowMessage('Holla die Waldfee');

;)
[/EMOT]

[himitsu]

Da wird man arm. Der Apfel hab bestimmt schon ein patent dafür und die verklagen dann jedern, dessen SchowMessage mit "Hallo" beginnt.

Wer ein Patent für ein "rechteckiges Gerät mit abgerundeten Ecken" besitzt, dem trau ich alles zu.
http://www.androidnext.de/news/apple...rundete-ecken/

Kein Wunder, wenn Handies nun quadratisch werden.
http://www.apfelpage.de/2014/07/08/b...dratisch-sein/