1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Dim fichier As String = TableauPrincipal.LabFichier.Text
Dim xmlDoc As System.Xml.XmlDocument = New System.Xml.XmlDocument()
xmlDoc.Load(fichier)
Dim node As System.Xml.XmlNode = xmlDoc.SelectSingleNode("SaveXml")
Dim element As Xml.XmlNodeList
Dim noeud, noeudenf As Xml.XmlNode
element = xmlDoc.DocumentElement.ChildNodes
For Each noeud In element
If noeud.LocalName = "Barreau" Then
For Each noeudenf In noeud
If noeudenf.LocalName = "lulu" Then
Dim Page As String = ""
Label4.Text = Page.Split(";").Count()
End If
Next
End If
Next |