Einzelnen Beitrag anzeigen

Benutzerbild von cruiser
cruiser

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

Re: Regulär bis zum abwinken

  Alt 13. Mai 2006, 02:02
Delphi-Quellcode:
RegEx.Expression := '/\*\s+TODO\s+(\d+)\s+-o(.*)\s+-c(.*)\s+:\s+(.*)\*/';
// dazu:
RegEx.ModifierG := false;
RegEx.ModifierS := true;
RegEx.ModifierI := true;
RegEx.ModifierM := true;
//oder kurz:
RegEx.ModifierStr := 'msi-g';
Dann in einer While-Schleife mit ExecPos suchen und die Ergebnisse in der Schleife auswerten:

RegEx.MatchPos[0] > Caret-Position des TODO's
RegEx.Match[1] > Priorität
RegEx.Match[2] > Besitzer (-o)
RegEx.Match[3] > Kategorie (-c)
RegEx.Match[4] > Text

Mit dem Demo sollt es verständlich sein.
Angehängte Dateien
Dateityp: zip demo_782.zip (3,0 KB, 10x aufgerufen)
  Mit Zitat antworten Zitat