je vois pas ce que je dois faire...
| CODE |
| Public Class xml_b public function get_b(fichier As String) Dim DocXml as New XmlDocument() Dim chemin as String = Server.MapPath(fichier) try DocXml.Load(chemin) catch ex As Exception Response.Write("<p><b style=""color: red"">Impossible de charger le document</b></p>") end try Dim MyNull As System.DBNull Dim i As Integer Dim red() As String Dim ObjRoot As XmlNode = DocXml.DocumentElement Dim ObjChild As XmlNode = ObjRoot.FirstChild Dim nb_element As Integer = DocXml.DocumentElement.ChildNodes.Count redim red(nb_element-1) for i=0 to nb_element-1 red(i) = ObjChild.InnerText.toString ObjChild = ObjChild.NextSibling next return red End function end Class |