Ajouter un mot dans un fichier xml

Bonjour,

voici un batch permettant de remplacer des chaine dans un fichier:

Code:

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