Question

新手在vb.net中寻求获取xml http响应的帮助这就是我想要做的，将这些属性values(Red,Green,Yellow,Black)添加到vb.net项目中的4个不同的文本框中。任何帮助学习这将是非常有帮助的。感谢

<system ver="1.0">
<colors>
<type red="Red" green="Green" yellow="Yellow" Black="Black" />
</colors>
</system>

这是我到目前为止所做的，并尝试了不同的方法，但总是最终删除它。:(

 Sub GetData()


        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("target url")
        request.Credentials = New System.Net.NetworkCredential("user", "pass")
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        If response.StatusCode = System.Net.HttpStatusCode.OK Then

          Dim stream As Stream = response.GetResponseStream()
            ' Create a reader for the stream object
            Dim reader As New StreamReader(stream)
            ' Read from the stream object using the reader, put the contents in a string
            Dim contents As String = reader.ReadToEnd()
            ' Create a new, empty XML document
            Dim HttpResult As New XmlDocument
            Dim UserInfo As XmlNodeList
            Dim Discription As XmlNode
            HttpResult = New XmlDocument
            HttpResult.LoadXml(contents)


            'Create the XML Document
            HttpResult = New XmlDocument()
            Dim _XPath As String =
            UserInfo = HttpResult.SelectNodes("")



            'Get the Gender Attribute Value
            Dim DetailsAttribute = Discription.Attributes.GetNamedItem("").Value
     endif

    End Sub

Answer 1

从这开始......

Dim MyDoc as New System.Xml.XmlDocument
MyDoc.Load("c:\path\to\your\xml\file")

Dim MyNode as System.Xml.XmlNode = MyDoc.SelectSingleNode("//system/colors/type")

Dim RedAttribute as String = MyNode.Attributes("red").Value
Dim GreenAttribute as String = MyNode.Attributes("green").Value
Dim YellowAttribute as String = MyNode.Attributes("yellow").Value
Dim BlackAttribute as String = MyNode.Attributes("black").Value

我认为这应该可以让你到达目的地。

帮助扩展xml并获取textbox vb.net的属性值

1 个答案: