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.

[DP-Maintenance]

Dieses Thema wurde von "mkinzler" von "VCL / WinForms / Controls" nach "Sonstige Fragen zu Delphi" verschoben.
Geht ja um keine Komponente/Control

[spaxxn]

BackOrifice, du bist ein guter Mann. So lernt er bestimmt sich Lösungen zu erarbeiten...

[Reinhardtinho]

Guck dir in der Hilfe (oder auch hier im Forum) mal StringReplace an.

[Blackheart]

Zitat:

Zitat von Reinhardtinho

Guck dir in der Hilfe (oder auch hier im Forum) mal StringReplace an.

Und was soll das bringen. :gruebel:

[Meflin]

Zitat:

Zitat von Blackheart

Zitat:

Zitat von Reinhardtinho

Guck dir in der Hilfe (oder auch hier im Forum) mal StringReplace an.

Und was soll das bringen. :gruebel:

Er kennt das erste Wort. Also kann er kurz und schmerzlos "Wort1 " durch "" ersetzen und hat das zweite Wort... Man muss ja nicht immer mit copy und Pos rumfrickeln.

[DeddyH]

Nur der Vollständigkeit halber: Delete ginge auch noch.

[turboPASCAL]

Oder eine For-Schleife. :P

;)

[PhilmacFLy]

Ja ich habs dann auch mit einer for Schleife glöst weil ich bei dem anderen nicht durchgestiegen bin ^^

[guidok]

Man könnte den Gesamtstring auch einer TStringList zuweisen und als Delimiter das Leerzeichen nehmen...

Ich hoffe der Threaderöffner hat jetzt auch eine Lösung für sein Problem gefunden und vor allem auch verstanden! Die Moral von der Geschicht ist hier, wie eigentlich immer beim Programmieren, das es viele Lösungen gibt, die das gewünschte Ergebnis liefern. Wichtig ist, dass man versteht was man gerade tut und nicht einfach blind kopiert.

Die beiden naheliegenden Lösungen in diesem Fall wurden bereits genannt:

1. Wenn das erste Wort bekannt ist und eine konstante Länge hat, dann kann man es mit Delete einfach aus dem String entfernen und das zweite Wort bleibt übrig.
2. Universeller ist es nach dem Trennzeichen (Leerzeichen) mit Pos zu suchen und alles was danach kommt bis zum Ende des Strings mit Copy als das zweite Wort zu interpretieren. Bei dieser Methode ist es egal, ob sich das erste Wort einmal ändert, solange sich das Trennzeichen nicht ändert.

Edit:

Zitat:

weil ich bei dem anderen nicht durchgestiegen bin

Da haben wir schon den Salat...

[PhilmacFLy]

ja deswegen hab ichs ja mit for gemacht das weiss ich was ich mach. aber mit StringReplace hät ichs auch verstanden bzw delete.

[ralfiii]

Ich hab dafür zwei sehr lieb gewonnene Funktionen (braucht man wirklich oft):

Delphi-Quellcode:

function FirstWord(var WorkStr : String; Cut : boolean) : string;
// Gives back first parameter in String
// if requested (CUT=TRUE) this word is being cut off the original
// string
// Leading spaces are NOT corrected  (if necessary : TRIM)
begin
     result:=FirstWordSeparator(' ',WorkStr,Cut);

     // single words can be separated by several spaces
     if Cut then
        WorkStr:=Trim(WorkStr);
end;

function FirstWordSeparator(sep : string;var WorkStr : String; Cut : boolean) : string;
// Gives back first parameter delimited by "sep" in String
//   If requested (CUT=TRUE) result+separator are removed from the original string
//   If Separator is NOT found in WorkStr and Cut=True, then WorkStr:=''
var counter : integer;
begin
     counter:=pos(sep,WorkStr);      // "abcXdef" -> counter=4
     if counter>0
     then result:=copy(WorkStr,1,counter-1)
     else result:=WorkStr;

     if Cut then
     begin
          if counter>0
          then delete(WorkStr,1,counter+length(sep)-1)
          else WorkStr:='';
     end;
end;

Lösung zu deiner Frage:

Delphi-Quellcode:

var s : string;
    Cmd : string;
begin
   // ... s enthält irgendwas wie "blabla Kommando Params"
   FirstWord(s, True);  // Erstes Wort (blabla) wegschneiden.
   Cmd:=FirstWord(s, True);  // Cmd = Kommando
                             // s enthält den "Reststring", also die Params

hth,
Ralf