Enregistrer dans un fichier.

Version imprimable

28/10/2008, 13h27
Versaillais

Enregistrer dans un fichier.

Bonjour,

Novice :oops:, je souhaiterais enregistrer dans un fichier.txt, le contenu de tous les fichiers .xml d'un répertoire.:roll:

Merci de bien vouloir me donner un coup de mains.
28/10/2008, 19h11
SfJ5Rpw8

Citation:

Envoyé par Versaillais

...
Merci de bien vouloir me donner un coup de mains.

Bonsoir, et bienvenue sur le forum..

le premier coup de main c'est toi qui vas nous le donner à essayant d'être plus clair dans tes questions, que veux tu copier des fichiers Xml vers un fichier .txt, sous qu'elle forme?
29/10/2008, 09h42
Versaillais

Bonjour,

Voila, j'ai plusieurs fichiers XML, et je desirerais les ajouter les uns a la suite des autres dans un gros fichier texte.

Merci et bonne journée.
29/10/2008, 11h56
pitchalov

Salut.

La démarche à suivre est :
- ouvrir (créer) ton fichier txt en écriture
- parcourir ton dossier :
- pour chaque fichier de type xml :

- ouvrir le fichier xml en lecture
- copier le contenu dans le fichier txt
- fermer le fichier xml ouvert
- fermer le fichier txt

tu trouveras toutes les informations dont tu as besoin pour faire ces actions dans la FAQ vbs, que tu ferais bien de parcourir, car c'est très pratique quand on débute le vbs.

Bon courage

1 pièce(s) jointe(s)

Merci pour la demarche,

Je pensais a faire comme cela, j'ai fais ce bout de code, mais il ne me rammene pas le fichier XML dans mon txt.

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
'****************************************************************************************************
'****				       DECLARATION DES FONCTIONS		                            		*****
'****												                                            *****
'****************************************************************************************************
'----------------------------------------------------------------------------------------
'Fonction permettant de créer le fichier Fichier_toto.txt contenant tous les fichiers xml -
'----------------------------------------------------------------------------------------
function creation_toto_txt()
 
 entete = "<?xml version="+chr(34)+"1.0"+chr(34)+"  encoding="+chr(34)+"UTF-8"+chr(34)+" ?>"
 Dim fso, tf, f2
 Const ForWriting = 2, ForReading = 1, ForAppending = 8
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 
 If (fso.FileExists("D:\Développement\CONCATENATION\ESSAI\Fichier_toto.txt")) Then
     fso.DeleteFile("D:\Développement\CONCATENATION\ESSAI\Fichier_toto.txt")
 End if   
 
 Set tf = fso.CreateTextFile("D:\Développement\CONCATENATION\ESSAI" & "\Fichier_toto.txt", ForAppending, True)
 
 tf.WriteLine(entete) 
 tf.WriteBlankLines(1)  
 tf.WriteLine("<root>") 
 
 Set f = fso.GetFolder("D:\Développement\CONCATENATION\ESSAI")
   Set fc = f.Files
   For Each f1 in fc
		Set f2 = fso.OpenTextFile("f1.xml" , ForReading, true)
		while Not f2.AtEndOfStream
		line1 = f2.ReadLine 
          tf.Write(line1 & chr(13))
     	Wend
		f2.Close
   Next
 tf.WriteLine("</root>") 
 tf.Close
 
End function
 
'****************************************************************************************************
'****				 	DEBUT DU PROCESSUS					*****
'****												*****
'****************************************************************************************************
''----------------------------------------------------------------------------------------
'Fonction permettant de créer le fichier Fichier_toto.txt contenant tous les fichiers xml -
'----------------------------------------------------------------------------------------
 
creation_toto_txt
 
wscript.sleep(60000)
 
'****************************************************************************************************
'****				 	FIN DU PROCESSUS					*****
'****												*****
'****************************************************************************************************

Pouvez vous m'aider merci.:cry:

31/10/2008, 16h30
pitchalov

ok ben t'es déjà sur le bon chemin.

Alors je vois 2 choses dans ton code (après lecture):

- La méthode CreateTextFile de l'objet FileSystemObject ne prend pas de paramètre "ForAppending" : il est forcément ouvert en écriture. De plus, si tu mets le paramètre "overwrite" à True, ton test de présence du fichier avec suppression s'il existe ne sert à rien ;) (si tu comprend pas, regarde la doc sur cette méthode). Ca devrait ressembler à :

Code:

Set tf = fso.CreateTextFile("D:\Développement\CONCATENATION\ESSAI\Fichier_toto.txt", True)

- Ensuite voilà le bout de code qui ne doit pas marcher :

Code:

Set f2 = fso.OpenTextFile("f1.xml" , ForReading, true)

car la variable f1 est un objet de type fichier, et là toi tu cherche le fichier nommé "f1.xml", qui ne doit pas être le nom de ton fichier. Ce qu'il faut faire, c'est vérifier que le fichier est de type xml, c'est à dire que son nom finit par ".xml" (sert toi de l'attribut Name de l'objet f1 et de la fonction Left de vbs). Ensuite pour ouvrir le fichier sers toi de l'attribut Path de f1 :

Code:

Set f2 = fso.OpenTextFile(f1.Path , ForReading, true)

Je pense que t'en es plus très loin.
Bonne continuation
03/11/2008, 17h44
Versaillais

Merci a toi,

Pour ton aide precieuse, résultat plus que correct.

Merci:king: