Wort nach einem Wort

[PhilmacFLy]

Ich habe folgendes problem ich habe einen String, dieser String besteht immer aus 2 Wörtern. Das erste wort ist mir bekannt. Wie kann ich jetzt das 2te Wort auslesen?

[BackOrifice]

Length(str)
Pos(sub, str)
Copy(str,pos,length)
....

Zbs. könntest du nach dem Trennzeichen suchen, wenn der Str "Wort1 Wort2" ist und ab dem ersten Zeichen des 2. Wortes kopieren.

[PhilmacFLy]

und wie würde das denn gehen weil der string sieht nämlich genau so aus also "wort1 wort2"

[ryLIX]

http://www.delphibasics.co.uk/RTL.asp?Name=AnsiPos

[PhilmacFLy]

ne ich bruach ja nicht als rückgabe nen bool sondern den string von wort2

[Neutral General]

Du bekommst ein Int. Der Rest ist Copy und Denksache :P

[PhilmacFLy]

aber funktioniert das nicht nur wenn ich das 2te wort kenn oder stell ich mich grad zu blöd an

[Neutral General]

Zitat:

Zitat von PhilmacFLy

...oder stell ich mich grad zu blöd an

Ja :mrgreen: :P

Überleg dir, welches Zeichen vor dem zweiten Wort steht. Das suchst du. Dann weißt du ab wo das 2. Wort anfängt. Dann gehts (je nach Geschmack) weiter mit Copy oder Delete ;)

[omata]

Delphi-Quellcode:

function GetWordTwo(text:string):string;
var RegExpr:TRegExpr;
begin
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=true;
    RegExpr.Expression:='^([^ ]*) *([^ ]*)';
    if RegExpr.Exec(text) then
      Result:=RegExpr.Match[2]
    else
      Result:='';
  finally
    RegExpr.free;
  end;
end;

RegExpr

[BackOrifice]

Ohne, dass man jetzt 4k Zeilen RegExpr einbinden muss:

Delphi-Quellcode:

function GetSecondWord(Str: String): String;
begin
  Result := Copy(Str,Pos(' ',Str) + 1,Length(Str);
end;

Davon ausgehend, dass String := 'Wort1 Wort2' ist.