MODULE QUI GÈRE LE XML

Imports System.Xml

#Region "Exemple de struture dans le fichier XML"
'<?xml version="1.0" encoding="utf-8" ?> 
'<CalendrierTCC>
'	<Aujourdhui>Jour</Aujourdhui>
'	<jour>
'		<Dimanche>D</Dimanche>
'		<Lundi>L</Lundi>
'		<Mardi>M</Mardi>
'		<Mercredi>M</Mercredi>
'		<Jeudi>J</Jeudi>
'		<Vendredi>V</Vendredi>
'		<Samedi>S</Samedi>	
'       <test>
'           <valeur>test</valeur>
'       </test>
'	</jour>
'	<mois>
'		<Janvier>Janvier</Janvier>
'		<Fevrier>Février</Fevrier>
'		<Mars>Mars</Mars>
'		<Avril>Avril</Avril>
'		<Mai>Mai</Mai>
'		<Juin>Juin</Juin>
'		<Juillet>Juillet</Juillet>		
'		<Aout>Août</Aout>
'		<Septembre>Septembre</Septembre>
'		<Octobre>Octobre</Octobre>
'		<Novembre>Novembre</Novembre>
'		<Decembre>Décembre</Decembre>
'	</mois>
'</CalendrierTCC>
#End Region 'Exemple de struture dans le fichier XML

Module XML
#Region "Variable"
    Public tableau() As String
    Private root As XmlNode
#End Region 'Variable
#Region "Ouverture de fichier"
    'Peut-être relatif (../dossier) ou absolu (C:/.....)
    Public Function openXML(ByVal fichier As String)
        Dim XMLStruct As New XmlDocument

        XMLStruct.Load(fichier)
        root = XMLStruct.DocumentElement

    End Function
#End Region 'Ouverture de fichier

#Region "lire un reccord avec le nom de la clé voulu"
    'comme dans le fichier XML d'emple, je pourrais demander "Aujourdhui"
    Public Function lectureXML(ByVal valeur As String) As String
        Dim temp As String
        Dim position As Integer

        temp = root.Item(valeur).InnerText
        position = InStr(temp, vbCr)
        If position <> 0 Then
            Return (Mid(temp, 1, position - 1))
        Else
            Return (temp)
        End If
    End Function
#End Region 'lire un reccord avec le nom de la clé voulu

#Region "lire un reccord, mais avec le chemin de clé pour lire la clé voulu"
    'comme dans le fichier XML d'emple, je pourrais demander :
    'parent(0) = jour
    'parent(1) = test
    'valeur = valeur
    Public Function lectureXML(ByVal parent() As String, ByVal valeur As String) As String
        Dim i As Integer
        Dim temp As String
        Dim position As Integer
        Dim xmlTemp As XmlNode

        xmlTemp = root.Item(parent(0))
        If isOpenXML(xmlTemp) Then
            For i = 1 To UBound(parent)
                xmlTemp = xmlTemp.Item(parent(i))
            Next i
            temp = xmlTemp.Item(valeur).InnerText
            position = InStr(temp, vbCr)
            If position <> 0 Then
                Return (Mid(temp, 1, position - 1))
            Else
                Return (temp)
            End If
        End If
    End Function
#End Region 'lire un reccord, mais avec le chemin de clé pour lire la clé voulu

#Region "Vérifie s'il est déjà ouvert"
    Public Function isOpenXML(ByVal xmlTemp As XmlNode) As Boolean
        Dim temp As String
        Try
            temp = xmlTemp.InnerText
            Return True
        Catch
            Return False
        End Try
    End Function
#End Region 'Vérifie s'il est déjà ouvert
End Module

25 août 2004 14:43:27 :

correction de français, c'est un module et non une class

26 août 2004 16:14:10 :

manquer une référence sur system.xml.dll