StringHelper Methode Split fehlerhaft?

[Kostas]

Hallo Zusammen,
es kommt noch schlimmer:

ich habe in einem Feldinhalt das: (§§") also Quote ich das Feld zu "(§§")"
Split erkennt das nicht sauber wenn ich Start und Ende Quote char angebe.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var s,n:string;
    splited:TArray<String>;
    Feld1,Feld2,Feld3,Feld4:string;
begin
  Feld1 := 'F1';
  Feld2 := 'F2';
  Feld3 := '"(§§")"';
  Feld4 := 'F4';

  s := s.Join(',',[Feld1,Feld2,Feld3,Feld4]);
  splited := s.Split([','],'"','"');

  for n in splited do
  begin
    meDSBZMIVerein.Lines.Add(n);
  end;

//  ShowMessage(Length(splited).ToString());
end;

Das Ergebnis
F1
F2
"(§§")",F4

Also nur drei items!


Gruß Kostas

[Sir Rufo]

Für das was du da machen möchtest ist String.Split in keinster Weise die richtige Wahl. Damit wird ein String stumpf an den Delimitern getrennt. Das ist die Aufgabe von dieser Methode.

Was du suchst ist das, was TStringList kann, indem du den DelimitedText zuweist. Es gibt noch die ein oder andere Eigenschaft, mit der du das Verhalten beeinflussen kannst (QuoteChar, Delimiter, StrictDelimiter).

Hier wird dann auch die Struktur berücksichtigt (das was du suchst).

[Kostas]

Zitat von Sir Rufo:

Für das was du da machen möchtest ist String.Split in keinster Weise die richtige Wahl. Damit wird ein String stumpf an den Delimitern getrennt. Das ist die Aufgabe von dieser Methode....

Das ist der richtige Hinweis! Die Methode Split ist nicht dafür geeignet. Ich habe seit Delphi5 eine eigene Methode die das alles berücksichtigt. Ich dachte die kann ich vergessen wenn Delphi das jetzt integriert hat.

Dankeschön.
Gruß Kostas

[Sir Rufo]

Delphi hat etwas integriert was das alles berücksichtigt und das schon bevor es die Helper gab und nennt sich TStringList

[Kostas]

Hallo Sir Rufo,


in der Doku zu DeQuotedString eindeutig dass das übergebene Quote char am Anfang und am Ende entfernt wird.
In meinem Beispiel entfernt er alle.

Delphi-Quellcode:

Feld3 := '"(§§")"';

memo.Lines.Add(Feld3.DeQuotedString('"'));

ergibt: (§§) anstelle von (§§")

Hast du eine Idee warum?

Gruß Kostas

[Sir Rufo]

Ja, wenn ich in den QuellText der Helper-Methode schauen würde

[Uwe Raabe]

Zitat von Kostas:

ich habe in einem Feldinhalt das: (§§") also Quote ich das Feld zu "(§§")"

Sollte das nicht eher "(§§"")" sein? Andernfalls wird das zweite Anführungzeichen als Quoteende interpretiert und das dritte wieder als Quoteanfang.

Zumindest ist es das, was '(§§")'.QuotedString('"') zurückgibt.

[Uwe Raabe]

Ach ja: TStringHelper.Split produces results different from SplitString from StrUtils

[Kostas]

Hallo Uwe,

Bei SplitString kann ich leider das Quote char nicht angeben.
Somit bringt das auch nichts.

Delphi-Quellcode:

  Feld1 := '"F1"';
  Feld2 := '"F2"';
  Feld3 := '"(§§")"';
  Feld4 := '"F4, F5"';

SplitString macht daraus fünf Felder anstelle von vier. Ist schon klar warum weil eben das Anführungszeichen nicht berücksichtigt werden.

Es geht um das einlesen von CSV-Dateien Trennzeichen ist das Komma und alle Felder sind mit Anführungszeichen umschlossen.
Somit erwarte ich für den String "F1","F2","(§§")","F4, F5"[CRLF] genau vier Felder
1=F1
2=F2
3=(§§")
4=F4, F5

[Sir Rufo]

Nein, dein Ausgangs-String ist falsch.

Delphi-Quellcode:

Falsch_ := '"F1","F2","(§§")","F4, F5"';
Richtig := '"F1","F2","(§§"")","F4, F5"';