Les fichiers XML et VB.Net

Date de publication : 08/03/2005 , Date de mise a jour : 08/03/2005

Par Selkis (selkis.developpez.com)
 

Création et Lecture un Fichier Xml à schéma connu en utilisant la classe XmlDocument

Télecharger le code source commenté exemple vb.net Lecteur de flux rss

I. Création d'un fichier XML

 <lstSite>  
      <SITE> 
            <URL>http://www.peuw.net/index.xml</URL> 
            <NOM>peuw.net</NOM> 
      </SITE> 
      <SITE> 
            <URL>http://www.poxx.net/index.xml</URL> 
            <NOM>poxx - Science Fair</NOM> 
      </SITE>
</lstSite> 

Imports System.Xml

'création d'une nouvelle instance du membre xmldocument
Dim XmlDoc As XmlDocument = New XmlDocument()

'création du document
XmlDoc.LoadXml("[lstSite][/lstSite]")

'a savoir :
Dim elemSite As XmlElement 'ElemSite pour le nœud [SITE][/SITE]
Dim elemUrl As XmlElement 'ElemSite pour le nœud [URL][/URL]
Dim elemNom As XmlElement 'ElemSite pour le nœud [NOM][/NOM]

Pour créer nos balises, regardons de plus prés les propriétés de la classe XmlElement qui nous seront utiles à savoir :
• .CreateElement : Pour crée un nouveau nœud (une nouvelle balise)
• .InnerText : Pour définir la valeur de la balise ( noeud)
• .AppendChild : pour ajouter le oeud à notre document (à la fin de la liste des enfants de ce noeud).

I.A. Le principe en 6 points

'creation de la balise [SITE][/SITE]
elemSite = XmlDoc.CreateElement("SITE")

elemUrl = XmlDoc.CreateElement("URL")
elemNom = XmlDoc.CreateElement("NOM")

elemUrl.InnerText = " http://www.peuw.net/index.xml "
elemNom.InnerText = " peuw.net "

elemSite.AppendChild(elemUrl)
elemSite.AppendChild(elemNom)

'on ajoute la balise parent au document
XmlDoc.DocumentElement.AppendChild(elemSite)

II.B. Code source

XmlDoc.Save(Application.StartupPath & "Newsite.XML")

Résumé du code
Dim elemSite As XmlElement
elemSite = XmlDoc.CreateElement("SITE")
 
'creation et definition de la balise url (enfant)
Dim elemUrl As XmlElement
elemUrl = XmlDoc.CreateElement("URL")
elemUrl.InnerText = " http://www.peuw.net/index.xml "
 
'creation et definition de la balise Nom (enfant)
Dim elemNom As XmlElement
elemNom = XmlDoc.CreateElement("NOM")
elemNom.InnerText = peuw.net
 
'ajout des 2 balise enfants a la balise parent 
elemSite.AppendChild(elemUrl)
elemSite.AppendChild(elemNom)
 
'on ajoute la balise parent au document
XmlDoc.DocumentElement.AppendChild(elemSite)
 
'Ecriture du Xml
XmlDoc.Save(Application.StartupPath & "Newsite.XML")
MsgBox("Enregistrement réussi")

II. Lecture d'un fichier XML

'creation d'une nouvelle instance du membre xmldocument
Dim XmlDoc As XmlDocument = New XmlDocument()

XmlDoc.Load(Application.StartupPath & "Newsite.XML")

II.A. Extraction des données

 <lstSite>  
      <SITE> 
            <URL>http://www.peuw.net/index.xml</URL> 
            <NOM>peuw.net</NOM> 
      </SITE> 
      <SITE> 
            <URL>http://www.poxx.net/index.xml</URL> 
            <NOM>poxx - Science Fair</NOM> 
      </SITE>
</lstSite> 

Exemple
Dim element As XmlNodeList
element = XmlDoc.DocumentElement.GetElementsByTagName("SITE")

Dim noeud, noeudEnf As XmlNode

II.B. Le principe en 5 points

On va donc :
1. Parcourir un a un tous les noeuds " parent " (noeud) compris dans la liste element
2. Pour chaque un de ces noeuds, récupérer la liste des noeuds " enfants " (noeudEnf)
3. Parcourir un a un tous les noeuds enfants (noeudEnf) contenu dans cette liste
4. Récupérer grâce a la propriété LocalName le nom de la balise du noeud " enfant " sélectionné
5. Récupérer le contenu de la balise à l'aide de la propriété InnerText.

II.C. Code source

For Each noeud In element
      For Each noeudEnf In noeud.ChildNodes
            If noeudEnf.LocalName = "URL" Then
                  UrlSite = noeudEnf.InnerText
            Else
                  If (noeudEnf.LocalName = "NOM") Then
                      NomSite = noeudEnf.InnerText
                  End If
            End If
         Msgbox(Nomsite & " à "  & UrlSite)
       Next 
Next