使用vb.net消耗来自webservice的数据

Question

即时通讯做在vb.net一个WebForm我耗费了web服务 ，这我返回到所有国家

只有1个按钮Enviar可以致电该国家。

Imports service_country = WebServiceVB2.country

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim serv_country As New service_country.country '--Create object'
        Dim MyDoc As New System.Xml.XmlDocument
        Dim MyXml As String = serv_country.GetCountries() '--Execute procedure from webservice'

        MyDoc.LoadXml(MyXml) '--Read Myxml and convert to XML'
        Dim SymbolText As String = MyDoc.SelectSingleNode("//NewDataSet/Table/Name").InnerText '--select the node'
        Label1.Text = SymbolText

    End Sub

我的问题是如何选择“名称”中的所有值。 实际上它只显示一个。 例如：

提前致谢。

Answer 1

这是一个有趣的问题。 由于数据以网页形式出现，因此方括号为“＆lt;”。 而右括号则为“＆gt;”。 因此，这些必须更换。 我使用xml linq来获取名称：

Imports System.Xml
Imports System.Xml.Linq

Module Module1
    Const URL As String = "http://www.webservicex.net/country.asmx/GetCountries"
    Sub Main()
        Dim doc1 As XDocument = XDocument.Load(URL)

        Dim docStr As String = doc1.ToString()
        docStr = docStr.Replace(">", ">")
        docStr = docStr.Replace("&lt;", "<")

        Dim doc2 As XDocument = XDocument.Parse(docStr)

        Dim root As XElement = doc2.Root
        Dim defaultNs As XNamespace = root.GetDefaultNamespace()
        Dim names() As String = doc2.Descendants(defaultNs + "Name").Select(Function(x) CType(x, String)).ToArray()
    End Sub
End Module

---

使用WebUtility

Imports System.Xml
Imports System.Xml.Linq
Imports System.Text
Imports System.Net


Module Module1
    Const URL As String = "http://www.webservicex.net/country.asmx/GetCountries"
    Sub Main()

        Dim xReader As XmlReader = XmlTextReader.Create(URL)
        xReader.MoveToContent()
        Dim doc As XDocument = XDocument.Parse(WebUtility.HtmlDecode("<?xml version=""1.0"" encoding=""iso-8859-9"" ?>" & xReader.ReadOuterXml))

        Dim root As XElement = doc.Root
        Dim defaultNs As XNamespace = root.GetDefaultNamespace()
        Dim names() As String = doc.Descendants(defaultNs + "Name").Select(Function(x) CType(x, String)).ToArray()
    End Sub
End Module