Einzelnen Beitrag anzeigen

ringli

Registriert seit: 7. Okt 2004
504 Beiträge
 
Delphi 11 Alexandria
 
#1

TRegExpr library und GetEnvironmentVariable

  Alt 20. Jun 2005, 21:42
Ich bastel schon seit Stunden an einem Problem das ich mit der TRegExpr library habe. Und zwar möchte ich mit dieser Unit in einer Zeichenfolge bestimmte Teile ersetzen. Dazu verwende ich im Moment folgenden Code:
Code:
Edit1.Text := ReplaceRegExpr ('%\w*%' {Suche nach..},
                              '/s /u "%systemroot%\test.txt" "%temp%"' {...in diesem Text},
                              'C:\Windows' {Ersetze die Fundstellen mit diesem Text},
                              False);
Nach dem Durchlauf hat die Unit den Text so verändert:
Code:
/s /u "C:\Windows\test.txt" "C:\Windows"
Soweit ist das alles klar, aber wie bzw. wo muss ich die RegExpr-Unit anpassen damit ich erreiche das die Fundstellen ausgelesen (also z.B. %systemroot% und %temp%) und diese während des Suchdurchlaufes jeweils mit Hilfe von GetEnvironmentVariable übersetzt und in den Text zurückgeschrieben werden?

Ich habe in der RegExpr-Unit schon an den unterschiedlichsten Stellen probehalber ein Showmessage eingesetzt um festzustellen ob dies die entsprechende Stelle ist an der ich ansetzen kann, aber leider war dies bis jetzt alles erfolglos.

Hat irgendjemand eine Idee?
  Mit Zitat antworten Zitat