XML : CLASSE QUI PERMET LA LECTURE/ECRITURE/SUPPRESSION D'INFOS À LA MANIÈRE DES FICHIERS INI D'AVANT...

Commentaire de Tdigiacomo le 19/10/2003 10:58:15

Très bien, merci.
Pour créer un nouveau XML

    Public Class XML
        Public Sub CreateXML(ByVal strFichier As String, ByVal strInformation As String, ByVal strEnfant As String, ByVal strSousEnfant As String)
            Dim xDoc As New XmlDocument()
            Dim xPI As XmlProcessingInstruction
            Dim xCommentaire As XmlComment
            Dim xElementRacine As XmlElement
            Dim xElementEnfant As XmlElement

            xPI = xDoc.CreateProcessingInstruction("xml", "version='1.0'")
            xDoc.AppendChild(xPI)

            xCommentaire = xDoc.CreateComment(strInformation)
            xDoc.AppendChild(xCommentaire)

            xElementRacine = xDoc.CreateElement("XML")
            xDoc.AppendChild(xElementRacine)

            xElementEnfant = CType(xElementRacine.AppendChild(xDoc.CreateElement(strEnfant)), XmlElement)
            Call xElementEnfant.AppendChild(xDoc.CreateElement(strSousEnfant))

            xDoc.Save(strFichier)
        End Sub
    End Class

Commentaire de x1fr le 21/06/2004 22:58:58

Petite remarque qui m'a occupé un petit moment :p
les noms des NODES et des KEYS doivent êtres en majuscules
ainsi

      XML.Write("en", "Language")

enregistrera 'en' dans la section "LANGUAGE"
il faudra donc pour le lire:

      s = XML.Read("LANGUAGE")

ou si vous utilisez des variables:

      s = XML.Read(mavar.ToUpper())

Commentaire de chuky le 20/12/2004 10:14:47

Arff :) c'est juste un exemple. Soit tu fait une assemblie et tu l'importe (dans ce cas, tu utilise l'espace de nom que tu utilise pour l'instancier), soit tu insère le cs de la classe dans ton projet, et tu fait un simple new XML pour l'intancier.