écrire dans un fichier xml

**isaglada** · 27/02/2007, 09h47

je souhaiterai écrire un script qui me permettrai d'extraire des login et mot de passe d'un fichier csv et de les ajouter dans un fichier xml au niveau des balises adéquates.Et en faisant une boucle pour ajouter autant de users qu'il y en a dans le fichiers suivant.Pour cela j'ai un fichier globaluser.csv de la forme:

Code :

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

1
2
3
4
5
6
7
"nom,prénom,login,mot de passe"
vador,dark,vadark,starwars
kenoby,obiwan,obiken,jediknight
skywalker,anakin,anasky,obscur
senateur,palpatine,sidious,empereur
sith,maul,masith,darkmaul
master,yoda,yomast,boulverte

J'ai pensé a réécrire complètement le fichier xml à partir du fichier csv.
A partir de celui-ci il faut que j'extrai les 3è et 4è champ de chaque ligne afin de les replacer dans les bonnes balises de ce fichier filezillaserver.xml (pour ne pas mettre une tonne de code je ne recopie que la partie qui m'interresse là ou il faut que j'ajoute mes users et j'ai aussi ajouter des commentaires pour la compréhension du fichier):

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
38
39
40
41
test.writeline "<Users>"
'lire le fichier globaluser.csv, en extraire les login et passwords
'stocker les logins et les passwords dans des variables différentes 
'coder les mots de passe en md5
'à partir d'ici faire une boucle tant qu'il y a des nouveaux users à ajouter
test.writeline "<User Name='login'>"
'test.writeline "<option Name='Pass> motp de passe codé en md5 </option>
test.writeline "<Option Name='Pass'/>"
test.writeline "<Option Name='Group'/>"
test.writeline "<Option Name='Bypass server userlimit'>0</Option>"
test.writeline "<Option Name='User Limit'>0</Option>"
test.writeline "<Option Name='IP Limit'>0</Option>"
test.writeline "<Option Name='Enabled'>1</Option>"
test.writeline "<Option Name='Comments'/>"
test.writeline "<Option Name='ForceSsl'>0</Option>"
test.writeline "<IpFilter>"
test.writeline "<Disallowed/>"
test.writeline "<Allowed/>"
test.writeline "</IpFilter>"
test.writeline "<Permissions>"
test.writeline "<Permission Dir='E:\Projet\www\bidul'>"
test.writeline "<Option Name='FileRead'>1</Option>"
test.writeline "<Option Name='FileWrite'>1</Option>"
test.writeline "<Option Name='FileDelete'>1</Option>"
test.writeline "<Option Name='FileAppend'>1</Option>"
test.writeline "<Option Name='DirCreate'>1</Option>"
test.writeline "<Option Name='DirDelete'>1</Option>"
test.writeline "<Option Name='DirList'>1</Option>"
test.writeline "<Option Name='DirSubdirs'>1</Option>"
test.writeline "<Option Name='IsHome'>1</Option>"
test.writeline "<Option Name='AutoCreate'>0</Option>"
test.writeline "</Permission>"
test.writeline "</Permissions>"
test.writeline "<SpeedLimits DlType='0' DlLimit='10' ServerDlLimitBypass='0' UlType='0' UlLimit='10' ServerUlLimitBypass='0'>"
test.writeline "<Download/>"
test.writeline "<Upload/>"
test.writeline "</SpeedLimits>"
test.writeline "</User>"
'fin de la boucle
test.writeline "</Users>"
test.writeline "</FileZillaServer>"

donc voila je suis totalement dans le flou car je ne suis pas du tout calé en vbs.J'espère avoir une aide pour me sortir de ce pétrin

.
Je vous remercie d'avance.

**karl3i** · 01/03/2007, 13h49

Salut,

Sur quoi bloques-tu :
Lecture du fichier à parser ?
Ecriture du fichier XML ?

Karl.

**SfJ5Rpw8** · 01/03/2007, 18h26

Comment lire le contenu d'un fichier texte ?

http://vb.developpez.com/faqvbs/?page=I.5

**djpOz** · 12/03/2007, 10h28

Pour la lecture du fichier texte, je comprend, mais je ne vois pas la syntaxe qui peut permettre de prendre uniquement les champs que l'on souhaite sur une ligne, quand il y a un délimiteur comme dans les fichiers csv?

Peut-être avec la fonction instr
(petite précision, je travail sur le script avec isaglada, c'est pour cette raison que je me permet ce message)

**AlainTech** · 12/03/2007, 16h05

Split après le ReadLine.

**omen999** · 12/03/2007, 16h30

bonjour,
...et pour débroussailler avant d'appliquer la fonction split
on peut aussi utiliser l'objet regexp avec le pattern: "[^,]*,[^,]*\r"
qui te donnera le 3ème et le 4ème champ de chaque ligne

**djpOz** · 12/03/2007, 18h29

bonjour,

je vais voir le fonctionnement de l'objet regexp avant d'essayer la fonction Split, en plus je ne connais pas, et je souhaiterai éviter de passer par un tableau.
Merci beaucoup

**AlainTech** · 12/03/2007, 19h23

Pourtant, l'usage d'un tableau est très simple:

Code :

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

1
2
3
Dim aLine
aLine = Split(f.ReadLine, ";") ' Si le séparateur est un point-virgule
MsgBox aLine(5) ' Pour lire le sixième élément de la ligne

**djpOz** · 13/03/2007, 11h07

bonjour,

normalement j'ai bientot fini, j'attend de mieux le modifier avant de le poster.
Finalement, j'ai choisi de travailler avec un tableau, je vous le posterai un peu plus tard.
Et encore merci

**djpOz** · 14/03/2007, 13h54

ça y est le script est fini il fonctionne, je suis contente, je vous le met, il recopie bien le fichier .xml à partir d'un .csv

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
strFichier="globaluser.csv"
'je stocke le fichier globaluser.csv dans la variable strFichier
 
 
Const ForReading = 1
 
 
Set fsoFichierSource=CreateObject("Scripting.FileSystemObject")
	'creation de l'objet dans fsoFichierSource
 
Set tsTexte=fsoFichierSource.OpenTextFile(strFichier, ForReading)
	'ouverture du fichier dans la variable tsTexte
 
	Do While Not tsTexte.AtEndOfStream
	'Je fais une boucle Tant que je ne suis pas à la fin du fichier
 
	strLigne=tsTexte.ReadLine 
	'Je stocke la ligne dans la variable strLigne
 
	strTableau=Split(strLigne , "," )
 
	'Je stocke chaque champs de la ligne dans un tableau 
 
		strChampsLog=strTableau(2)
		strChampsMdp=strTableau(3)
	'Je stocke le 3ème champ (login) dans strChampsLog 
	'et le 4ème champ (Mot de passe) dans strChampsMdp
 
 
 
 
 
 
 
 
test.writeline "<User Name="&chr(34)&strChampsLog&chr(34)&">"
'test.writeline "<option Name='Pass'> 'strChampsMdp' </option>" à coder en md5
test.writeline "<Option Name='Pass'/>"
test.writeline "<Option Name='Group'/>"
test.writeline "<Option Name='Bypass server userlimit'>0</Option>"
test.writeline "<Option Name='User Limit'>0</Option>"
test.writeline "<Option Name='IP Limit'>0</Option>"
test.writeline "<Option Name='Enabled'>1</Option>"
test.writeline "<Option Name='Comments'/>"
test.writeline "<Option Name='ForceSsl'>0</Option>"
test.writeline "<IpFilter>"
test.writeline "<Disallowed/>"
test.writeline "<Allowed/>"
test.writeline "</IpFilter>"
test.writeline "<Permissions>"
test.writeline "<Permission Dir='E:\Projet\www\bidul'>"
test.writeline "<Option Name='FileRead'>1</Option>"
test.writeline "<Option Name='FileWrite'>1</Option>"
test.writeline "<Option Name='FileDelete'>1</Option>"
test.writeline "<Option Name='FileAppend'>1</Option>"
test.writeline "<Option Name='DirCreate'>1</Option>"
test.writeline "<Option Name='DirDelete'>1</Option>"
test.writeline "<Option Name='DirList'>1</Option>"
test.writeline "<Option Name='DirSubdirs'>1</Option>"
test.writeline "<Option Name='IsHome'>1</Option>"
test.writeline "<Option Name='AutoCreate'>0</Option>"
test.writeline "</Permission>"
test.writeline "</Permissions>"
test.writeline "<SpeedLimits DlType='0' DlLimit='10' ServerDlLimitBypass='0' UlType='0' UlLimit='10' ServerUlLimitBypass='0'>"
test.writeline "<Download/>"
test.writeline "<Upload/>"
test.writeline "</SpeedLimits>"
test.writeline "</User>"
 
loop
'fin de la boucle
 
     tsTexte.Close
'Fermeture du fichier globaluser.csv
 
test.writeline "</Users>"
test.writeline "</FileZillaServer>"

Merci beaucoup

**isaglada** · 14/03/2007, 13h58

Un grand merci a tous pour nous avoir aider.

**ThierryAIM** · 14/03/2007, 14h49

Envoyé par bbil

http://vb.developpez.com/faqvbs/?page=I.5

Dommage d'avoir fait ça simplement avec des writeline, et de ne pas en avoir profiter pour étudier la façon de gérer un fichier xml

enfin ....

**omen999** · 14/03/2007, 18h07

de ne pas en avoir profiter pour étudier la façon de gérer un fichier xml

ça, c'est le programme du 3ème trimestre...

**djpOz** · 28/03/2007, 09h44

non justement nous n'avons pas de troisième trimestre, et je ne connais pas du tout la gestion des fichiers xml, à vrai dire on a pas du tout vu ça!
Je pense que je vais essayé, ça peut être plus intérressant et aussi pour un meilleur résultat. Merci

écrire dans un fichier xml

VBScript

Discussions similaires

Partager

Partager