1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
@echo off
call:dep_modif
call:modif "%cd%\fichier 1.txt" "chaine 1" "chaine 2"
call:modif "%cd%\fichier 2.txt" "chaine 3" "chaine 4"
pause
del "%cd%\tmp.vbs"
exit /b
:dep_modif
(echo Const ForReading = 1, ForWriting = 2
echo Set objFSO = CreateObject("Scripting.FileSystemObject" ^)
echo Set objFile = objFSO.OpenTextFile(WScript.Arguments(0^), ForReading^)
echo strText = objFile.ReadAll
echo objFile.Close
echo strNewText = Replace(strText, WScript.Arguments(1^), WScript.Arguments(2^)^)
echo Set objFile = objFSO.OpenTextFile(WScript.Arguments(0^), ForWriting^)
echo objFile.WriteLine strNewText
echo objFile.Close) >"%cd%\tmp.vbs"
goto:eof
:modif
echo remplacement de la chaine "%~2" par "%~3" dans "%~1"
cscript "%cd%\tmp.vbs" "%~1" "%~2" "%~3" 1>nul 2>"%cd%\tmp"
set tmp_var=
for /f "tokens=1,2* delims=:" %%i in ('type "%cd%\tmp"') do set tmp_var=%%k
if not "%tmp_var%"=="" (echo ERREUR:%tmp_var%) Else Echo OK.
del "%cd%\tmp"
goto:eof |
Partager