Problem mit procedure Split()

[ConnorMcLeod]

Hallo,

es kommen nicht *zwei Arrays*, sondern zwei Einträge in einer TStringList. Einer gleicht 'blabla' und einer ist ein Leerstring.

Mach einen Breakpoint auf
Strings.DelimitedText := Input;
und steppe mal mit F7 durch. Dann wird Dir klar, was passiert. Kurz gesagt: #0 geht halt nicht.

Antwort1) der Delimiter darf bei dieser Vorgehensweise nicht #0 sein.
Antwort2) eine TStringList für diesen Zweck zu verwenden ist super praktisch und super Performance fressend.

Mir hat eine Funktion auf Stackoverflow ganz gut gefallen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  MYDELIMITER = #0;
var
  s   : string;
  sTok: string;
  i   : integer;

  function GetTok(const Line: string; const Delim: Char; const TokenNum: Byte): string;
  { LK Nov 8, 2009 - Reoptimized using PChars instead of calls to Pos and PosEx }
  { See; http://stackoverflow.com/questions/1694001/is-there-a-fast-gettoken-routine-for-delphi }
  var
    I, CurToken: Integer;
    PLine, PStart: PChar;
  begin
    CurToken := 1;
    PLine := PChar(Line);
    PStart := PLine;
    for I := 1 to length(Line) do begin
      if PLine^ = Delim then begin
        if CurToken = TokenNum then
          break
        else begin
          CurToken := CurToken + 1;
          inc(PLine);
          PStart := PLine;
        end;
      end
      else
        inc(PLine);
    end;
    if CurToken = TokenNum then
      SetString(Result, PStart, PLine - PStart)
    else
      Result := '';
  end;

begin
  s := 'blabla' + MYDELIMITER + 'blabla2' + MYDELIMITER + 'blabla3' + MYDELIMITER + 'blabla4' + MYDELIMITER + 'blabla5' + MYDELIMITER ;

  i := 1;
  sTok := GetTok(s, MYDELIMITER, i);
  while ('' <> sTok) do
  begin
    ShowMessage(sTok);
    inc(i);
    sTok := GetTok(s, MYDELIMITER, i);
  end;
end;

HTH

[FredlFesl]

Deine Funktion kommt nur mit kurzen Strings klar und ist vom Aufwand O(n^2), weil für jedes Token immer von Anfang an gesucht wird. Ob das Schneller ist, bezweifle ich mal ganz stark.
Im Gegensatz dazu ist die TStringList-Geschichte sehr viel mächtiger, denn sie kommt mit allen Stringtypen und mit in Gänsefüschen eingeschlossenen Texten klar, z.B. wird a,"b,c",d in drei Strings ("a", "b,c" und "d") aufgeteilt.

Der Code von TStringlist sieht auch ganz schön flott aus.

[Klaus01]

..alternativ könntest Du auch mal diese Explode-Prozedur oder diese explode Funktion testen.

Grüße
Klaus

[himitsu]

Wer eine Stringliste als Splitter nutzt, der sollte sich von #0 als Trenner verabschieden.
Alles, was intern PChar nutzt oder eine Kompatibilität zu diesem bietet, das kann nich genutzt werden.

#0 = Textende

also weiter macht die Stringliste auch nicht

[mkinzler]

Es scheint sich aber um eine C-Stringliste zu handeln. Dort wird m.W. #0 als Trenner verwendet

[himitsu]

Nur leider ist die TStringList, bzw. alle Strings-Nachfahren, beim Input, nur auf einen einzelnen String ausgelegt und keine C-Stringliste.

Delphi-Quellcode:

procedure CStringArrayToStringList(const StringArray: String; SL: TStrings);
var
  P: PChar;
begin
  SL.BeginUpdate;
  try
    SL.Clear;
    P := PChar(StringArray);
    if (P^ <> #0) or ((P + 1)^ <> #0) then
      repeat
        SL.Add(P);
        Inc(P, StrLen(P) + 1);
      until P = #0;
  finally
    SL.EndUpdate;
  end;
end;

[unnützes Wissen]
die ResourceStrings werden auch so verwaltet ... jeweils 16 in einem solchen StringArray

[blackfin]

Hast du mal versucht, deiner Liste die Eigenschaft "StrictDelimiter" auf true zu setzen, bevor zu splittest:

Delphi-Quellcode:

procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Strings.Clear;   
   Strings.Delimiter := Delimiter;
   Strings.StrictDelimiter:= True; // <--- hier
   Strings.DelimitedText := Input;
end;

Zitat:

TStrings.StrictDelimiter Eigenschaft

Legt fest, wie die Eigenschaft Delimiter verwendet wird.
Klasse
TStrings

Syntax


[Delphi] property StrictDelimiter: Boolean read GetStrictDelimiter write SetStrictDelimiter;


Beschreibung
Mit dieser Eigenschaft legen Sie fest, ob Delimiter der einzige in der Eigenschaft DelimitedText verwendete Wert ist. Bei True werden die einzelnen Strings in DelimitedText nur durch das in Delimiter angegebene Zeichen getrennt. Bei False können die einzelnen Strings in DelimitedText durch ein Leerzeichen, ein nicht druckbares Zeichen oder dem in Delimiter angegebenen Zeichen getrennt werden.

[uragan]

Zitat von himitsu:

Nur leider ist die TStringList, bzw. alle Strings-Nachfahren, beim Input, nur auf einen einzelnen String ausgelegt und keine C-Stringliste.

Delphi-Quellcode:

procedure CStringArrayToStringList(const StringArray: String; SL: TStrings);
var
  P: PChar;
begin
  SL.BeginUpdate;
  try
    SL.Clear;
    P := PChar(StringArray);
    if (P^ <> #0) or ((P + 1)^ <> #0) then
      repeat
        SL.Add(P);
        Inc(P, StrLen(P) + 1);
      until P = #0;
  finally
    SL.EndUpdate;
  end;
end;

[unnützes Wissen]
die ResourceStrings werden auch so verwaltet ... jeweils 16 in einem solchen StringArray

komisch, bekomme ERROR: Unknown type: 'PChar'
Also wie ich sehe geht es nicht auf diese weise.
Hab versucht mit Pos() gibt auch 0 aus


Ist es möglich alle #0 im string zu löschen? oder auf was anderes zu verändern?

[ConnorMcLeod]

Zitat von FredlFesl:

Deine Funktion kommt nur mit kurzen Strings klar und ist vom Aufwand O(n^2), weil für jedes Token immer von Anfang an gesucht wird. Ob das Schneller ist, bezweifle ich mal ganz stark.

War auch nur mal als Anfangs-Denkanstoss gedacht. Ich habe auch schon meine eigene Version daraus gemacht, die z.B. nicht immer beim Beginn beginnt, und die macht den Job sehr gut.

Zitat von FredlFesl:

Im Gegensatz dazu ist die TStringList-Geschichte sehr viel mächtiger, denn sie kommt mit allen Stringtypen und mit in Gänsefüschen eingeschlossenen Texten klar, z.B. wird a,"b,c",d in drei Strings ("a", "b,c" und "d") aufgeteilt.

Wenn man das will bzw braucht ... klar. Kann man aber auch in die Parserfunktion hineinprogrammieren, oder?

Zitat von FredlFesl:

Der Code von TStringlist sieht auch ganz schön flott aus.

Stimmt, aber es hängt eben ein komplettes Objekt hinten dran und das ist für meinen Geschmack *zu* mächtig (mächtig viel Verwaltungsaufwand nämlich). Was das erste Codebeispiel auch verschweigt: einen try-finally-Block brauchen wir korrekterweise noch zusätzlich.

Aber es ist im Endeffekt alles Geschmacksache und der beste Code ist der, der den Job erledigt und vom Kunden bezahlt wird