使用vb.net从webservice使用数据

Question

我在vb.net中进行网络表单我正在使用webservice，这会让我回到所有国家/地区

只有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

我的问题是如何选择＆＃39; name＆＃39;中的所有值？ 实际上它只显示一个。 例如：

提前致谢。

Answer 1

这是一个有趣的问题。由于数据是以网页形式出现的，因此开放式括号即将出现“＆amp; l t;”而结束括号是“＆amp; g t;”。所以这些必须被替换。我使用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