Einzelnen Beitrag anzeigen

Benutzerbild von Björn Ole
Björn Ole

Registriert seit: 11. Jul 2008
166 Beiträge
 
Delphi XE Professional
 
#3

AW: [Batch] Text ersetzen

  Alt 17. Jan 2011, 20:12
Hab es mittlerweile mit einer kleinen Hilfsfunktion gelöst. Geht vielleicht auch kürzer, aber so ist es leicht lesbar und verständlich:
Code:
:replace
:: params:
:: %1 destination
:: %2 source string
:: %3 search string
:: %4 replace string
setlocal
set line=%~2
set replace=%~3
set with=%~4
set result=!line:%replace%=%with%!
endlocal & set %1="%result%"
goto:eof
Aufruf
Code:
call:replace line "!line!" "#" "!replace!"
  Mit Zitat antworten Zitat