Wort aus String extrahieren

[Sweex]

okay, Sorry, also ich benutze Delphi XE8 und ich erzeuge diese Strings nicht selbst, sondern die werden mir praktisch Vorgegeben. Ich fange nur bestimmte Fehlermeldungen ab, wie die Beispiele die ich schon gegeben habe und kann mich so an wenige Suchwörter klammern (Modul, usw ..diese gebe ich also Vor und das reicht mir) die ich per Pos ja schon richtig abfrage, nur ich habe keine Ahnung wie man das beschneiden des Strings lösen kann das ich tatsächlich dann nur mein Zielwort erhalte, was ja varrieren kann, ebenso wie der Satzbau. Ich kann mich also wirklich nur an die Suchwörter klammern. Ich erkenne das Problem nicht, er scheint mir immer den kompletten String rauszuhauen, anstatt es korrekt zu beschneiden. Ich dachte ich hätte an dieser Stelle einen Fehler gemacht. Allerdings ist das Problem dann mit dem Trenner, also Leerzeichen UND Punkt leider noch nicht gelöst

Nochmal zur Veranschaulichung:
Eingangsstring -> gewollter Ausgangsstring
Messfehler im Modul 2A. -> 2A
Kontaktproblem bei Modul 5A führt zu Ausfall -> 5A

Ich hoffe ich konnte die Klarheiten beseitigen

[BUG]

Trotzdem, guck dir reguläre Ausdrücke an. Für diese Art von Anwendung sind die der erste und meistens der beste Ansatz.

[Sweex]

[dcc32 Fehler] Amp.pas(309): E2081 Anweisung für FOR-Schleifenvariablen 'i'
i:=1; und hier
[dcc32 Warnung] Amp.pas(310): W1050 WideChar in Set-Ausdrücken auf ByteChar verkürzt. Ziehen Sie die Verwendung der Funktion 'CharInSet' aus der Unit 'SysUtils' in Betracht.
while (Outbound[i] in ['0'..'9', 'A'..'Z', 'a'..'z']) and (i <= Length(Outbound)) do Oh, warum meckert er nun? Ja die Ausdrücke gucke ich mir an, versprochen.

Edit: Hab den Fehler, eine schleife vorher war nicht korrekt geschlossen

[Aviator]

In einer For-Schleife, in der du "i" als Zählervariable benutzt, kannst du nicht einfach "i" wieder auf irgend einen Wert setzen. Dafür solltest du dann repeat ... until oder while ... do benutzen.

Zitat von Sweex:

[dcc32 Warnung] Amp.pas(310): W1050 WideChar in Set-Ausdrücken auf ByteChar verkürzt. Ziehen Sie die Verwendung der Funktion 'CharInSet' aus der Unit 'SysUtils' in Betracht.
while (Outbound[i] in ['0'..'9', 'A'..'Z', 'a'..'z']) and (i <= Length(Outbound)) do

Ab Delphi 2009 sollte man die Funktion CharInSet() für solche Konstrukte verwenden. Deshalb auch die Warnung. Als Beispiel so:

if CharInSet(Outbound[i], ['0'..'9', 'A'..'Z', 'a'..'z']) then ...

[idefix2]

Ich habe kein Delphi XE, aber ungefähr so müsste es mit den XE-Regexen funktionieren (keyword1, keyword2... sind die Schlüsselwörter, auf die ein für dich interessantes Wort folgt) :

Code:

var
   regexpr : TRegEx;
   match   : TMatch;

begin
  regexpr := TRegEx.Create('(Keyword1|Keyword2|Keyword3)\W+(\w+)',[roIgnoreCase]);
  match := regexpr.Match(Outbound);
  if match.Success then Outbound:=Match.Groups[2];  
end;

In Match.Groups{1] ist das gefundene Schlüsselwort, in Match.Groups[2] das Wort dahinter.