String nach einem Substring herausnehmen

[wayne312]

Hey leute,
ich bin noch etwas unerfahren in Delphi und komme grad nicht weiter.
ich habe zb.

Delphi-Quellcode:

string1:=('Dies ist ein String');

und jetz möchte ich das wort nach dem 'ist' kopieren.
Mit der Pos funktion hat es auch erst gut geklappt nur als ich dort einen anderen String einfüge nichtmehr so gut.

Hoffe auf hilfe

[SimStar001]

also mittels posex die position von 'ist' bestimmen und dann in einer schleife z.b. und dann den string in mehreren schritten bearbeiten:

Delphi-Quellcode:

s := 'das ist mein string';
s := copy(s,posex('ist',s),length(s));
s := copy(s,pos(' ',s) + 1 , length(s));
// nun ist s ==> 'mein string';

[wayne312]

Vielen Dank SimStar001

Und wie bekomme ich das hin, das er nur 1 wort nimmt? zb. wenn der string länger ist möchte ich ja nicht das komplette ende sondern nur einen teil, ein wort.
Oder so, dass es von dem zeichen " bis zum nächten " geht.

Danke

[jaenicke]

So könntest du es z.B. machen:

Delphi-Quellcode:

function FindNextWord(const AText, APrevWord: string): string;
var
  CurPos: PChar;
begin
  CurPos := PChar(Integer(PChar(AText) + Pos(APrevWord + ' ', AText) + Length(APrevWord)));
  SetString(Result, CurPos, Pos(' ', CurPos) - 1);
end;

Und dann eben so aufrufen:

Delphi-Quellcode:

FindNextWord('Das ist ein Test!', 'ist')

[alzaimar]

Vielleicht sollte man die Funktion für einen Anfänger etwas übersichtlicher gestalten und die Sonderfälle (nächstes Wort ab 'Test') absturzsicher berücksichtigen.

[jaenicke]

Kann man alles machen:

Delphi-Quellcode:

function FindNextWord(const AText, APrevWord: string): string;
var
  CurPos: PChar;
  TempPos: Integer;
begin
  Result := '';
  TempPos := Pos(APrevWord + ' ', AText);
  if TempPos = 0 then
    Exit;
  CurPos := PChar(Integer(PChar(AText) + TempPos + Length(APrevWord)));
    // Beim Zeichen hinter dem gesuchten Wort weitermachen
  TempPos := Pos(' ', CurPos);
  if TempPos = 0 then
    Exit;
  SetString(Result, CurPos, TempPos - 1);
    // Als Ergebnis den Text von der ersten Position bis zum Zeichen vor
    // dem Leerzeichen zurückgeben
end;

[alzaimar]

Vorbildlich! Danke. :thumb:

[wayne312]

Danke an alle!