IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Scripts/Batch Discussion :

Renommer fichiers XML à partir des <elements>


Sujet :

Scripts/Batch

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    Janvier 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Analyste d'exploitation
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Janvier 2019
    Messages : 3
    Par défaut Renommer fichiers XML à partir des <elements>
    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.

  2. #2
    Membre confirmé Avatar de Superzest 76
    Homme Profil pro
    Automaticien
    Inscrit en
    Septembre 2018
    Messages
    144
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Automaticien
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2018
    Messages : 144
    Par défaut
    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

Discussions similaires

  1. Demande d'aide script en Perl
    Par snoopsnake3 dans le forum Langage
    Réponses: 2
    Dernier message: 03/12/2017, 06h10
  2. [Batch] Demande d'aide Script BAT
    Par Loleyy dans le forum Scripts/Batch
    Réponses: 19
    Dernier message: 23/11/2016, 18h31
  3. Demande d'aide sur un script de mise en forme..
    Par threepwood dans le forum Linux
    Réponses: 4
    Dernier message: 24/08/2007, 14h37
  4. demande d'aide sur un script
    Par threepwood dans le forum Applications et environnements graphiques
    Réponses: 4
    Dernier message: 24/05/2007, 11h45
  5. script: demande d'aide
    Par imeys dans le forum Windows
    Réponses: 11
    Dernier message: 12/05/2006, 16h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo