Einzelnen Beitrag anzeigen

Benutzerbild von cruiser
cruiser

Registriert seit: 23. Dez 2003
Ort: Königsbrück/Sachsen
455 Beiträge
 
Delphi 7 Enterprise
 
#1

[PCRE] String finden, aber nicht in best. Bereichen

  Alt 29. Okt 2007, 12:42
Hallo

heut hab ich mal ein RegEx-Problem.....

Ich bin dabei ein Plugin für die DLangExtension zu pfriemeln. Dabei sollen bestimmte Sachen umgeschrieben werden. In diesem Fall soll es ein einfaches 'Return' sein.

Ohne oder mit leerem Parameter soll er einfach Exit; draus machen.

Soweit arbeitet diese Expression:
Code:
(?ixsm)            # Modifier
(?<=[^\w]|^)       # vorher Zeilenanfang oder non-wordchar vor dem 'return' als Bedingung
return \s*          # 'return' plus evtl. Whitespaces
( \( \s* \) \s* )?  # evtl. Klammernpaar
;                  # abschliessendes Semikolon
Bei gesetztem Parameter ob nun mit oder ohne Klammer soll der parameter vorher Result zugewiesen werden:

Code:
Return 'ein String'; => begin Result := 'ein String'; Exit; end;
Um das zu erreichen brauch ich eine weitere Expression. Bei folgendem Ansatz hakts aber irgendwie in den Conditionals.

Code:
(?ixsm)             # Modifier
(?<=[^\w]|^)        # vorher Zeilenanfang oder non-wordchar vor dem
                     # 'return' als Bedingung
return \s*           # 'return' plus evtl. Whitespaces
(\()?                # Parameterklammer (Cond1)
  (                  # Schleife
    (\{)?            # BlockComment Cond2
    (//)?            # einf. Comment Cond3
    (')?             # String Cond4
    (?(2) [^}]*\}  | # Verarbeitung Cond2
      (?(3) [^$]*$ | # Verarbeitung Cond3
        (?(4) [^']*' | [^;] ) # Cond4 auswerten, wenn das auch
                               # nicht passt auf nicht ; prüfen
      )             # Ende Verarbeitung Cond3 
    )               # Ende Verarbeitung Cond2
  )+                 # Mindestens 1 Wiederhohlung
(?(1)\)|)           # Parameterklammer zu wenn Cond1 vorhanden
;                   # Schlusssemikolon
Hat da irgendwer ne schlaue Idee?
  Mit Zitat antworten Zitat