从 xml 填充组合框

Question

我想用所有付款方式填充我的下拉列表，我应该在我拥有的 xml 文件中找到付款方式。这应该是方法的 xml 代码：

    Dim xml As String
    xml = "<?xml version=""1.0"" encoding=""UTF-8""?>"
    xml &= "<gateways ua=""example-php-1.1"">"
    xml &= "<merchant>"
    xml &= " <account>123456</account>"
    xml &= " <site_id>789</site_id>"
    xml &= " <site_secure_code>112233</site_secure_code>"
    xml &= "</merchant>"
    xml &= "<customer>"
    xml &= " <country>NL</country>"
    xml &= " <locale>nl_NL</locale>"
    xml &= "</customer>"
    xml &= " </gateways>"
    Dim apiURl As String

    apiURl = "https://testapi.multisafepay.com/ewx/"


    Dim httpWebRequest As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(apiURl)
    httpWebRequest.Method = "POST"
    httpWebRequest.ContentLength = System.Text.Encoding.UTF8.GetByteCount(xml)
    httpWebRequest.ContentType = "application/x-www-form-urlencoded"

    Dim streamWriter = New System.IO.StreamWriter(httpWebRequest.GetRequestStream())
    streamWriter.Write(xml)
    streamWriter.Close()

    Dim httpWebResponse As System.Net.HttpWebResponse = httpWebRequest.GetResponse()
    Dim streamReader = New System.IO.StreamReader(httpWebResponse.GetResponseStream())
    Dim stringResult = streamReader.ReadToEnd()
    Dim xmlstring As String = stringResult
    Dim xd As System.Xml.XmlDocument = New System.Xml.XmlDocument()
    xd.LoadXml(xmlstring)

stringResult 给出此值：

<?xml version="1.0" encoding="UTF-8"?>
<gateways result="ok">
<gateways>
<gateway>
<id>IDEAL</id>
<description>iDEAL</description>
</gateway>
<gateway>
<id> MASTERCARD</id>
<description>Visa via Multipay</description>
</gateway>
<gateway>
<id> BANKTRANS</id>
<description> Bank Transfer</description>
</gateway>
<gateway>
<id> VISA</id>
<description> Visa CreditCards</description>
</gateway>
</gateways>
</gateways>

我需要在我的 ddlMethod 中获取 <id></id> 标签之间的值，我该怎么做？

Answer 1

您可以使用 SelectNodes() 方法从 XmlDocument 中获取特定节点，将合适的 XPath 字符串作为方法参数传递。由于 SelectNodes() returns 集合 XmlNode，您还需要指定要在下拉列表控件中显示 XmlNode 的属性。在这种情况下，我假设您想在 <id> 标签之间显示文本，因此我们使用 InnerText 属性 :

Dim xd As System.Xml.XmlDocument = New System.Xml.XmlDocument()
xd.LoadXml(xmlstring)
'set data source of dropdown to all <id> elements from XML'
ddlMethod.DataSource = xd.SelectNodes("//id")
ddlMethod.DataTextField = "InnerText"
ddlMethod.DataValueField = "InnerText"
ddlMethod.DataBind()

仅当您使用的 .NET Framework 版本可用时，我建议切换到 XDocument，与旧的 XmlDocument。在各种情况下XDocument比XmlDocument使用起来更友好。使用 XDocument 和 LINQ 样式的示例：

Dim xd As XDocument = XDocument.Parse(xmlstring)
'set data soutce of dropdown to *content* of all <id> elements from XML'
ddlMethod.DataSource = xd.Descendants("id").Select(Function(x) x.Value)
ddlMethod.DataBind()

Answer 2

我想到了这个，它对我有用：

 Dim bytTeller As Byte
 For bytTeller = 0 To xd.GetElementsByTagName("gateway").Count - 1
 Dim root As XmlNode = xd.GetElementsByTagName("gateway").Item(bytTeller)
 ddlMethod.Items.Add(root.ChildNodes(0).InnerText)
 Next

从 xml 填充组合框

filling combobox from xml

.net

xml

vb.net

asp.net

drop-down-menu