Discussion :

[Eva01]

Bonjours,
J'ai un petit soucie concernant l'édition d'un certains type de fichier xml.
Voici le type de fichier que j'aimerais générer.
Jusqu'a maintenent je n'utilisais qu'un attribut à la fois dans mes éléments, mais la les enchainer me pose problème.

Code :

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

1
2
3
4
<?xml version="1.0" encoding="ISO-8859-1" ?> 
- <PersonList>
<Person status="OPERATEUR" lastName="DAVID" firstName="Jérémy" id="1" /> 
</PersonList>

Ci dessous un extrait du code que j'utilise actuelement

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
xmlDoc.appendChild oRacine
Set oElement = xmlDoc.selectSingleNode("PersonList") ' positionnement sur la racine
 
Set reqPerson = DbGP.OpenRecordset("select * from person")
n = reqPerson.RecordCount
If n <> 0 Then
reqPerson.MoveLast
reqPerson.MoveFirst
n = reqPerson.RecordCount
While n > 0
nomcomplet = reqPerson!NOMMATR
vname = InStr(1, nomcomplet, " ")
 
If vname <> 0 Then
nom = Mid(nomcomplet, 1, vname - 1)
pnom = Mid(nomcomplet, vname + 1, Len(nomcomplet))
 
End If
 
 
Dim CIB As String
CIB = "OPERATEUR"
Set oNom = xmlDoc.createElement("PersonStatus")
oNom.Text = CIB
oElement.appendChild oNom
 
 
Set oPrenom = xmlDoc.createElement("lastName")
oPrenom.Text = nom
oElement.appendChild oPrenom
 
 
Set oFirst = xmlDoc.createElement("firstName")
oFirst.Text = pnom
oElement.appendChild oFirst
 
Set oID = xmlDoc.createElement("ID")
oID.Text = i
oElement.appendChild oID
 
n = n - 1
i = i + 1
reqPerson.MoveNext
Wend

Merci beaucoup

Eva,

[ProgElecT]

TUTO: Visual Basic 6.0 et le format XML