posex oder pos, fester trenner im string

[Jens01]

Zitat:

Habe schon mit posex rum experementiert, gebe es aber auf.

"posex" ?
Ein kleiner Perversling der Neue?

[himitsu]

Jupp, für irgendwas muß diese eine komische Erfindung ja gut sein.

Großschreibung

[pelzig]

Delphi-Quellcode:

var
  s: string;
begin
  s := 'L99522621@@99@@05652s8@@85zzs81@@r-77 1564@@20082014@@22082014@@@@@@';
  s := StringReplace(s, '@@', '|', [rfReplaceAll]);
end;

StringReplace ersetzt den doppelten Klammeraffen durch ein bel. Zeichen (hier '|'), was möglichst nicht in s vorkommen sollte. Suche dann in der DP mal nach "delimiter".

MfG

[Dejan Vu]

Wozu erst ersetzen? Einfach direkt verwenden:

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;

...
var
  s,teilString : string;

begin
  s := 'L99522621@@99@@05652s8@@85zzs81@@r-77 1564@@20082014@@22082014@@@@@@';
  while s<>'' do begin
    teilString := Split(s,'@@');
    TuWasMitDem(teilString);
  end;
end;

Und wenn es schnell gehen soll:
http://www.delphipraxis.net/82268-[optimiert]-explode-prozedur-reloaded-ersatz-fuer-codelib.html

Eine unicodefähige Variante ist weiter hinten zu finden.

[Uwe Raabe]

Zitat von Dejan Vu:

Ich weiß nur nicht, ob das unicodefähig ist, sollte aber kein Problem sein, das anzupassen.

Wenn es wirklich um Delphi 6 geht, sollte sich diese Frage gar nicht stellen.

Bei neueren Delphi-Versionen kann man auch einfach eine TStringList nehmen und mit StrictDelimiter (gibt's auch noch nicht bei D7) und DelimitedText arbeiten.

[Dejan Vu]

Ist mir auch grad aufgefallen..

[pelzig]

@Dejan Vu:
Die vielen Klammeraffen am Stringende könnten dem TE beim PoSex vllt. Schwierigkeiten machen, daher der StringReplace-Vorschlag

MfG

[Dejan Vu]

Dann steht zwischen den Delimitern nichts und die Routine liefern einen leeren String. Mit '|' wäre das genau so.

[Sir Rufo]

Zitat von pelzig:

@Dejan Vu:
Die vielen Klammeraffen am Stringende könnten dem TE beim PoSex vllt. Schwierigkeiten machen, daher der StringReplace-Vorschlag

MfG

So ein blindes StringReplace (blind in der Funktion und Anwendung) ist immer der Anfang von Problemen, die einen früher oder später einholen.

Warum schreibt man sich nicht eine Funktion, die das auch wirklich interpretieren kann?