[]générer et LIRE du xml avec vb: sélection d'un node

Version imprimable

Hello :o
J'ai un petit problème, j'ai un fichier xml qui a cette forme:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 <rutas> <ruta tipo="central" url="/imagenes/home/home/directorio_gg/diablo_gg.swf" enlace="/edicion/cm/bin/xslt.asp?xml=estrenos/3400/estreno3469.xml&xsl=estrenos/estrenos.xsl"/> <ruta tipo="central" url="/imagenes/home/home/directorio_mm/abajoelamor_mm.swf" enlace="/edicion/cm/bin/reportaje.asp?type=primeraplana&dir=/interna/abajoelamor&file=index.htm"/> <ruta tipo="central" url="/imagenes/home/home/directorio_mm/concursolaliga_mm.swf" enlace="/edicion/cm/bin/reportaje.asp?type=concurso&dir=/interna/laligadeloshombresext&file=index.htm"/> <ruta tipo="central" url="/imagenes/home/home/directorio_mm/diasdefutbol_mm.swf" enlace="/edicion/cm/bin/xslt.asp?xml=preestrenos/1100/preestreno1159.xml&xsl=preestrenos/preestrenos.xsl"/> <ruta tipo="central" url="/imagenes/home/home/directorio_mm/seanconnery_mm.swf" enlace="/edicion/cm/bin/reportaje.asp?type=perfil&dir=/interna/s_connery&file=index.htm"/> <ruta tipo="promocion" url="/imagenes/home/home/directorio_g/cartelera_g.swf"/> </rutas>
pour l'instant ce fichier est créé manuelement mais je dois faire un prog en vb qui le crée automatiquement (l'utilisateur a juste a sélectionner les fichiers). Problème, comment sélectionner mes nodes "ruta", en effet j'en ai plusieurs dans le même fichier et je n'arrive pas à les sélectionner pour les remplacer :oops: Par exemple si l'utilisateur ne veut changer que le deuxième fichier, je veux que mon programme ne sélectionne que le deuxième node
merci d'avance :wink:

16/09/2003, 11h37
grafikm_fr
A vue de nez, deux solutions (aussi marteau-piqueur l'une que l'autre, mais bon...):

1) Generer proprement ton fichier en faisant un sorte que chaque tag <ruta ...> occupe 1 ligne (sans VbCrLf au milieu). Il sera ainsi stocké sous cette forme dans le fichier XML (à verifier) et tu pourra recuperer le noeud que tu veux grace au numero de ligne + une constante.

2) Recuperer les noeuds dans un string (on l'appelle chaine pour simplifier), mais sans les <Rutas> finaux (avec Instr et Mid, ca marchera bien)

Tu auras donc:
Code:

1 2 3 4 5 6 chaine="<ruta ...><ruta ...> ... <ruta ...>" 'etc... 'puis tu fais: Dim chaines() as String chaines=Replace(chaine,"<ruta","|<ruta") 'pour obtenir un bon separateur chaines=Split(chaine,"|")
T'auras un tableau de string que tu peux modifier. Ensuite, tu reassemble le tout en virant les "|" avec Replace et voila...

Bon, bien sur, la 1ere solution est de loin preferable...

Bon courage et fais pas une insomnie chronique comme 90% des espagnols...
Grafikm

salut, en fait j'ai essayé de créer mais node en boucle mais mon code ne marche pas, il ne me crée qu'une balise ruta :?:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Set xdoc = xml.createElement("rutas")
'on crée la balise ruta
For numanim = 0 To numanim = 6 Step 1
Set xheader = xml.createElement("ruta")
'On définit le header comme fils du document principal
xdoc.appendChild xheader
xheader.setAttribute "tipo", "central"
xheader.setAttribute "url", routas(1)
'on définit l'élément principal comme étant xdoc
Set xml.documentElement = xdoc
Next numanim
'on enregistre le tout dans un fichier rutas2.xml
xml.save "D:\progxml\rutas2.xml"

16/09/2003, 14h11
nako

bon, moi j'ai une autre solution mais elle va pas te plaire :
fait ton prog en JAVA ...
bon, désolé. :roll:
16/09/2003, 14h23
chris21

Pourquoi ça me plairait pas, si c'est plus simple je suis preneur. T'as déjà fait l'expérience :?:
16/09/2003, 14h26
nako

carrément, java et XML marchent bien ensemble.
je disais ça parce que je pensais que le langage t'était imposé ...
mais si ils te laissent le choix, alors hésite pas.
Java intègre une API xml qui te permet de gérer le XML tel qu'il est prévu dans la norme ... sans avoir besoin d'avoir une balise sur une seule ligne ou quelque chose dans ce genre la...
tu devrais trouver ton bonheur dans les forum JAVA ou XML ...
16/09/2003, 15h24
chris21

Euh... avant que je me lance dans Java :oops: :cry: , y'a personne qui a d'autres solutions?? :(
16/09/2003, 15h28
grafikm_fr
c'est normale qu'une seule balise soit crée:

faut ecrire:
Code:

1 2 For numanim = 0 To 6 Step 1
Sinon ca marche pas (je viens de verifier)
16/09/2003, 15h43
nako

en fait, je te conseillais java parce que normalement, XML est un format d"échange de fichier et tu ne devrais pas supposer que il n'y a qu'une balise par ligne, ou que tu n'a pas le droit de sauter des lignes ... etc.
Par contre, si c'est en interne et que tu maitrise mieux VB que java, c'est clair qiue tu va pas te faire chier ... y'a peut etre meme des librairies qui traitent le XML ... avec la vague XML, ca m'etonnerai que ca n'existe pas
16/09/2003, 15h47
chris21

ok, merci pour vos conseils. en fait ça marche très bien en VB, j'ai encore quelques détails à régler mais ça prend forme... je vous tiens au courant :wink:
17/09/2003, 13h03
chris21

Bon, pour l'enregistrement pas de problème, ça roule. :lol: mais maintenant j'aimerais pouvoir lire et stocker dans un tableau les données d'un fichier xml. En Flash, on a des commandes de ce type:

Code:

xmlDoc.firstChild.childNodes[1].childNodes[0].attributes.nom

pour pouvoir lire les attributs (ici un nom) de tel ou tel node, est-ce qu'il y a une syntaxe similaire en vb?
Merci d'avance :lol:

bonjour, alors voilà j'ai avancé un peu. tout marche en fin presque. Voici mon code.

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
Function chargement(fichero)
Dim numerorutas As Integer
Dim i As Integer
Dim objxml As New MSXML.DOMDocument
Dim xmllist As MSXML.IXMLDOMNodeList
Dim xmlnode As MSXML.IXMLDOMNode
Dim argumento0 As MSXML.IXMLDOMAttribute
Dim argumento1 As MSXML.IXMLDOMAttribute
Dim argumento2 As MSXML.IXMLDOMAttribute
objxml.validateOnParse = False
objxml.async = False
If objxml.Load(Dir1.Path & "\" & fichero) Then
    'MsgBox ("objxml.Text  " & objxml.Text)
    Set xmllist = objxml.selectNodes("//rutas/ruta")
    'MsgBox argumentos
    numerorutas = xmllist.length
    i = 0
     'MsgBox ("xmllist.lenght  " & numerorutas)
        For Each xmlnode In xmllist
        Set argumento0 = xmlnode.Attributes(0)
        If argumento0.Text <> vbNullString Then
        'MsgBox argumento0.Text
        datos(i, 0) = argumento0.Text
        End If
        Set argumento1 = xmlnode.Attributes(1)
        If argumento1.Text <> vbNullString Then
        'MsgBox argumento1.Text
        datos(i, 1) = argumento1.Text
        End If
        Set argumento2 = xmlnode.Attributes(2)
        If i < 5 Then
        'MsgBox argumento2.Text
         datos(i, 2) = argumento2.Text
        End If
        'MsgBox ("xmlnode.Text  " & xmlnode.Text)
        i = i + 1
        Next
    MsgBox ("numero de rutas  " & i)
    On Error GoTo ErrorHandler
    objxml.validateOnParse = True
    Else

tout ce qui me manque, c'est de pouvoir compter le nombre d'attributs par node pour éviter de faire ça

Code:

Set argumento2 = xmlnode.Attributes(2)

pour chaque attributs, là ça va j'en ai que 3 par nodes, mais bon ça fait pas très "pro". :oops: