[VB ou Batch] Renommage fichier Xml

**kamsy** · 16/12/2017, 11h08

Bonjour
J'ai une application qui charge des fichiers xml. j'aimerai mettre en place un scénario pas rapport à des valeurs.
Si la balise valeur total est supérieur à un nombre je l’intègre à un service et si inférieur, je l'a met sur l'autre service.
Pour ce fait, je pense que je peux gérer le dispatche par un renommage du fichier.
J'aurai besoin de savoir comment je pourrai faire pour renommer un fichier xml en rapport à une balise me définissant le champ de cette valeur supérieur ou pas.
si supérieur renomme le fichier si non supérieur le nom ne change pas.
J'ai cherché sur le net afin d'avoir un exemple pour démarrer mais je n'ai rien trouvé.
Merci pour toutes vos réponses.
je suis disponible pour d'autres questions.

**kamsy** · 16/12/2017, 12h11

j'ai essayé cela met il ne me trouve pas mes fichier xml et pas non plus la balise correspondante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
30
31
32
33
34
35
36
37
:_nommagexml

Setlocal enableextensions&Set /a c=5,n=5

:_répertoire Source
Set source=c:\script

:_dossier de destination le créer s'il n'existe pas
Set dest=C:\script\renomme_xml
If not Exist "%renomme_xml%" Md "%renomme_xml%"

Pushd "%source%"
:Loop
 If not exist "*.xml" (for %%V In (CALL Goto:EOF) Do %%V :NotExist)
 (FindStr "<InstdAmt>" *.xml >NUL)  || (GOTO:NoTag)
 cls&dir /a-d/b "*.xml"&echo/*******************************&Echo/
 for /f "tokens=1,2 delims=:" %%A In ('findstr "<InstdAmt>" *.xml') do (
 Set _="%%B"
 Call Set _=%%_:^<InstdAmt^>=#%%
 Call Set _=%%_:^</InstdAmt^>=#%%
 for /f "tokens=2 delims=#" %%a In ('Call echo.%%_%%^|more') do (
 Move /Y "%%~fA" "%dest%\%%a.xml"
 echo "%%~fA" ------^> %%a.xml))
Popd
Pause&Goto:eof

:NoTag
 cls&echo/&echo     PAS DE BALISE ^<InstdAmt^>: %n%
 Ping -n 5 LocalHost >nul 
 Set /a n-=1
 If %n% neq 0 goto:Loop
 Goto:eof
 :NotExist
 cls&echo/&echo     PAS DE FICHIERS XML: %c%
 Ping -n 5 LocalHost >nul
 Set /a c-=1
 If %c% neq 0 goto:Loop