Bonjour,
svp j'aurais besoin d'aide au niveau de xml/vb6
mon probleme est le suivant je dois effectuer un formatage d'un fichier xml avec vb6 pour arriver au resultat suivant:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?><Journal><Rubrique Nom="MAV"><ImgRubrique><ImgRub href="file://ImgRub\MAV.ai"/></ImgRubrique>
<Secteur Nom="1"><ImgSecteur><ImgSec href="file://ImgSec\1.ai"/></ImgSecteur>
<Region Nom="80"><NomReg><NomReg1>80</NomReg1></NomReg>
<Ville Nom="Secteur Cote Picarde"><NomVil><NomVil1>Secteur Cote Picarde</NomVil1></NomVil>
<Annonce reference="48902" font="B"><Texte><TexteB>MAISON A RENOVERcomprenant cuisine, salle, chambre, salle d'eau.WC extérieurs.Bâtiment.Terrain 636 m².</TexteB></Texte>
<Etude><EtudeB><Prix>52.800 € 346.345 F </Prix><Info>Mes BUTEL Christine et SIGWALD Bruno ST VALERY/SOMME 03 22 60 35 30</Info></EtudeB></Etude></Annonce></Ville></Region></Secteur></Rubrique></Journal>
mon resultat:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Journal><Rubrique Nom="MAV"><ImgRubrique><ImgRub href="file://ImgRub\MAV.ai"/></ImgRubrique><Secteur Nom="1"><ImgSecteur><ImgSec href="file://ImgSec\1.ai"/></ImgSecteur><Region Nom="80"><NomReg><NomReg1>Somme</NomReg1></NomReg><Ville Nom="Secteur Cote Picarde"><NomVil><NomVil1>Secteur Cote Picarde</NomVil1></NomVil><Annonce reference="48902" font="B"><Texte><TexteB>MAISON A RENOVER
comprenant cuisine, salle, chambre, salle d'eau.WC extérieurs.Bâtiment.Terrain 636 m².</TexteB></Texte><Etude><EtudeB><Prix>52800 €</Prix><Info>Mes BUTEL Christine et SIGWALD Bruno ST VALERY/SOMME 03 22 60 35 30</Info></EtudeB></Etude></Annonce></Ville></Region></Secteur></Rubrique></Journal>
le probleme c'est que je doiis avoir des retour chariot au niveau des balises: </imgrubrique> ; </imgsecteur> ...
voici mon code vb6 pour la creation de la balise <imgrubrique> :
Dim oDvpDOMDocument As MSXML2.IXMLDOMDocument
Dim oDvpDOMDocument1 As MSXML2.IXMLDOMDocument
Dim oNoeudrubrique As MSXML2.IXMLDOMElement ' élément rubrique
Dim oNoeudEnfantrubrique As MSXML2.IXMLDOMElement
Dim oNoeudEnfantimgreb As MSXML2.IXMLDOMElement
Set oNoeudrubrique = oDvpDOMDocument.selectSingleNode("Journal") ' positionnement sur la racine
Set oNoeudrubrique = oDvpDOMDocument.createElement("Rubrique") ' création d'un fils membre
'-----------------------------rubrique---------------------------------
oNoeudrubrique.setAttribute "Nom", "MAV"
oDvpDOMDocument.documentElement.appendChild oNoeudrubrique ' crée le fils de la racine
Set oNoeudEnfantrubrique = oDvpDOMDocument.createElement("ImgRubrique")
oNoeudrubrique.appendChild oNoeudEnfantrubrique
Set oNoeudEnfantimgreb = oDvpDOMDocument.createElement("ImgRub")
Set oNoeudEnfantrubrique = oNoeudrubrique.childNodes(0)
oNoeudEnfantimgreb.setAttribute "href", "file://ImgRub\" & "MAV.ai"
oNoeudEnfantrubrique.appendChild oNoeudEnfantimgreb
c est urgent merci d avance
