开发者

help on expanding xml and getting attribute values to textbox vb.net

Newbie looking for help on getting xml http response in vb.net this is what im looking to do ,getting these attributes values(Red,Green,Yellow,Black) to a 4 different textbox's on vb.net project.any help learning this would be very helpfull. thanks

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

Here is what I have so far,and tried different ways but always ending up erasing it.:(

 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()
 开发者_StackOverflow       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


Start with this...

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

I think that should get you where you want to go.

0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜