Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Strings vergleichen-String Variabel, z.B.: "Auto(s)" (https://www.delphipraxis.net/139383-strings-vergleichen-string-variabel-z-b-auto-s.html)

Namenloser 14. Sep 2009 16:02

Re: Strings vergleichen-String Variabel, z.B.: "Auto(s)
 
Zitat:

Zitat von himitsu
Zitat:

Zitat von Klaus01
Ist es nicht auch möglich, dass alle '(' und ')' aus dem String entfernt werden
und dann mit pos nachgeschaut wird ob der gesuchte String enthalten ist.

gefunden würde auch "xyzmutig"

Delphi-Quellcode:
S := '^' + StringReplace(S, ')', ')*', [rfReplaceAll]) + '$';
würde aus "(an)mutig(er)" ein "^(an)*mutig(er)*$" machen, welches doch schonmal nicht so schlecht aussieht und mich auch irgendwie an so'ne Vergleichsmaske erinnert?

Würde ich genau so machen, mit einem Unterschied:
Delphi-Quellcode:
S := '^' + StringReplace(S, ')', ')?', [rfReplaceAll]) + '$';
Sonst wird auch anananananananmutigererererer gefunden.

Außerdem sollte man, je nachdem welche Zeichen im String vorkommen können, Regex-Symbole escapen.

Fussball-Robby 14. Sep 2009 20:35

Re: Strings vergleichen-String Variabel, z.B.: "Auto(s)
 
Okay, okay, konnte mich gerade selber davon überzeugen, dass das Arbeiten mit RegExpr ganz schön angenehm ist. Unit runtergeladen, 3 Zeilen Code und gut ist :mrgreen: Danke an alle!

Okay, jetzt will ich noch mehr :mrgreen:
Bisher hatte ich Strings in dieser Form: "(h)all(o)". Wenn ich mehrere Wörter habe, trenne ich diese mit Kommas (evtl. auch Leerzeichen dazwischen?), zum Beispiel so: "(h)all(o),auto(s)".
Nun möchte ich wieder mal sehen, ob ein Wort vorhanden ist. Wie gehe ich das an mit den regulären Ausdrücken?

Namenloser 14. Sep 2009 21:21

Re: Strings vergleichen-String Variabel, z.B.: "Auto(s)
 
Ersetze einfach , durch |


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:07 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz