posex oder pos, fester trenner im string

[motec]

Hallo zusammen,

ich habe ein Problem und hoffe hier auf die Lösung, mit Delphi hatte ich bisher nichts am Hut, muss aber in einem Projekt eine Lösung für ein Problem finden.

Ich habe einen string indem durch @@ die für mich interessanten Werte stecken, wie komme ich hier dran? Habe schon mit posex rum experementiert, gebe es aber auf.

Vorgabe: L99522621@@99@@05652s8@@85zzs81@@r-77 1564@@20082014@@22082014@@@@@@

zwischen den doppelten affen liegen die Indizes, diese können unterschiedlich lang oder auch leer sein. Wie komme ich am besten an diese Werte?

Bin für jede Hilfe dankbar.

mfg

[himitsu]

SplitString und Co.?
z.B. http://www.delphipraxis.net/181489-s...vorhanden.html

Man kann natürlich auch gern RegEx verwenden.

[Uwe Raabe]

Wirklich Delphi 6?

[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