String.Split Methode Delimiter mehrmals vorhanden

[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 von 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...

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 von Sir Rufo:

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 von Dejan Vu:

Zitat von Sir Rufo:

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 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

[Stevie]

Zitat von Sir Rufo:

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 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 von Stevie:

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 Split([','], 1) nur ein array mit einem Element zugeben, in dem 'Hallo' stünde.

Wo du recht hast...

[himitsu]

Zitat von Stevie:

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 von Stevie:

Und übrigens:

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

Zitat von 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.
...

und hier.

Zitat von Dejan Vu:

Bei Ausgrabungen habe ich das hier gefunden. ...

und hier

Zitat von Sir Rufo:

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?

[sx2008]

Zitat von Dejan Vu:

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

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

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;