Discussion :

[asholino]

Bonjour,

J'ai une machine qui génère Des fichiers XML avec plusieurs lignes du type

Code XML :

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
<identmachine>
<id>backupmachine<id/>
</identmachine>
<operateur>
<<id>backupmachine<id/>id>idOPERATEUR</id>
</operateur>
<Backupstart>
<date>07-01-2019</date>
<time>18:25</time>
</Backupstart>
<backupend>
<date>09-01-2019</date>
<time>00:25</time>
</backupend>
.
.
.
.

ce fichier est nommé actuellement backup-08-01-2019.XML
est-il possible de faire un script qui me renomme tous ces fichiers xml du type

BACKUP<id>backupmachine<id/><id>backupmachine<id/><date>08-01-2019</date><time>18:25</time><time>00:25</time>.XML

Merci.

[Superzest 76]

Salut a toi !
Pour renomer j'ai été obliger de viré les <>/\: car on peut pas renommer avec des char spéciaux ^^
Voila le code qui devrais d'aider :

Code Script :

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
38
39
40
41
42
	Dim stFichier 'Nom du Fichier a tester  ,i
	Dim oFSO,oFl ,fso , ContenuFichier,Fichier,fichier_split
	Dim data, NewStrPath
		Set oFSO = CreateObject("Scripting.FileSystemObject") 
		stFichier = "D:\Vitogaz\Base de données\Test.XML" 
	If oFSO.FileExists(stFichier) Then 
		Set oFl = oFSO.GetFile(stFichier) 
		If oFl.Size > 0 Then
		Set fso = CreateObject("Scripting.FileSystemObject")
	
	Set fichier = fso.opentextfile("D:\Vitogaz\Base de données\Test.XML",1)
	ContenuFichier = Fichier.readAll
	Fichier.close
	'msgbox de debug
	'msgbox(ContenuFichier)
	fichier_split = Split(ContenuFichier,VBnewline)
	Fichier.close
	'Dans la varible data on vas rentrer le string corespondant au format souhaiter 
	'BACKUP<id>backupmachine<id/><id>backupmachine<id/><date>08-01-2019</date><time>18:25</time><time>00:25</time>.XML 
	NewStrPath = "BACKUP" & fichier_split(1) &"_" & fichier_split(4) & "_" & fichier_split(7) &"_"& fichier_split(8) &"_"& fichier_split(12)

		'MsgBox(NewStrPath)     'Msgbox pour debog

	'On retire les <\/: ect on les remplcera par des _(pour les :)			
	'Fonction VBS pour retirer les caractères accentués
	Dim ListeCaracteresDorigine, ListeCaracteresRemplacement, ArrayCaracteresDorigine, ArrayCaracteresRemplacement, CompteurTableau,MaChaine
	ListeCaracteresDorigine = "<;>;/;:;\"
	ListeCaracteresRemplacement = ";;;;_;"
	ArrayCaracteresDorigine = Split(ListeCaracteresDorigine, ";")
	ArrayCaracteresRemplacement = Split(ListeCaracteresRemplacement, ";")
	For CompteurTableau = Lbound(ArrayCaracteresDorigine) To Ubound(ArrayCaracteresDorigine)
		NewStrPath = Replace(NewStrPath, ArrayCaracteresDorigine(CompteurTableau), ArrayCaracteresRemplacement(CompteurTableau))

	Next

	NewStrPath = "D:\Vitogaz\Base de données\" & NewStrPath & ".XML"

	MsgBox(NewStrPath)     'Msgbox pour debog
	'Renomer le fichier
	oFl.Move NewStrPath
  End If
End If

Le code est a adapter à ta sauce