In string suchen und dann löschen

[bonanza]

Hi,
ich habe einen String z.b.

Zitat:

Name: Herber Meyer, Uhrzeit: 12:46:43, Datum: 2.3.2001

Jetzt würde ich gerne aus diesem String z.b. das Wort "Uhrzeit" und "Datum" rauslöschen, wie geht das?

Danke für eure Hilfe schonmal im voraus !
Mfg
bonanza

[Matze]

Hi,

suche mit Pos danach und lösche es mittels Delete.

[Der_Unwissende]

Hi,
einfacher geht das ganze mit StringReplace:

Delphi-Quellcode:

var s : String;
begin
 s := StringReplace(s, 'Datum', '', [rfReplaceAll]);
 s := StringReplace(s, 'Uhrzeit', '', [rfReplaceAll]);
end;

Für Genaueres, schau einfach in die OH

Gruß Der Unwissende

[Matze]

Zitat von Der_Unwissende:

einfacher geht das ganze mit StringReplace

Hm, da ist was dran. Meins sähe so aus, falls es bonanza interessiert:

Delphi-Quellcode:

function DeleteStuff(const S, Del: string): string;
begin
  Delete(S, Pos(Del, S), Length(Del));
  result := S;
end;

// Aufruf:
MyString := DeleteStuff(MyString, 'Uhrzeit: ');
MyString := DeleteStuff(MyString, 'Datum: ');

[alzaimar]

@Matze: Sonderlich robust ist dann aber nicht, und auch nicht allgemeingültig, und auch nur für diesen speziellen Fall (Suchstring tritt jeweils genau 1x auf).

[Matze]

Zitat von alzaimar:

@Matze: Sonderlich robust ist dann aber nicht, und auch nicht allgemeingültig, und auch nur für diesen speziellen Fall (Suchstring tritt jeweils genau 1x auf).

Stimmt, das kann man ja auch anders lösen, indem man den Namen als Parameter übergibt. Habe das nur schnell zusammengefriemelt.

Nachtrag: Aber ich editiere es, auch wenn es eine seltsame Lösung ist, sonst merkt sich das noch jemand so, danke. ...

[himitsu]

Statt Matze's Funktion könnte er es ja auch direkt machen,

Delphi-Quellcode:

Delete(MyString, Pos('Uhrzeit: ', MyString), 9);
Delete(MyString, Pos('Datum: ', MyString), 7);

oder als Prozedur?

Delphi-Quellcode:

procedure DeleteStuff(var S, Del: string);
begin
  Delete(S, Pos(Del, S), Length(Del));
end;

// Aufruf: 
DeleteStuff(MyString, 'Uhrzeit: '); 
DeleteStuff(MyString, 'Datum: ');

[Matze]

Zitat von himitsu:

Statt Matze's Funktion könnte er es ja auch direkt machen

So hatte ich's zuerst, nur musste dann jemand rummeckern Ne, war ja berechtigt.

[himitsu]

Zitat von Matze:

So hatte ich's zuerst, nur musste dann jemand rummeckern Ne, war ja berechtigt.

Konnte ich ja nicht ahnen. -.-''
Von der Ausführungsgeschwindigkeit her sollte es aber mit das Beste sein.

[alzaimar]

Zitat von Matze:

So hatte ich's zuerst, nur musste dann jemand rummeckern