我从 Web 服务获得了 XML。我将其声明为“DOMDocument”。这是我的 XML。现在我想阅读所有名为“ZIP”的属性。
<?xml version="1.0" encoding="utf-8" ?>
<Location>
<Cities>
<City ZIP="8355">Aadorf</City>
<City ZIP="5000">Aarau</City>
<City ZIP="5004">Aarau</City>
<City ZIP="5032">Aarau Rohr</City>
<City ZIP="3270">Aarberg</City>
<City ZIP="4663">Aarburg</City>
<City ZIP="4912">Aarwangen</City>
<City ZIP="8607">Aathal-Seegräben</City>
<City ZIP="8522">Aawangen</City>
<City ZIP="1657">Abländschen</City>
<City ZIP="5646">Abtwil AG</City>
<City ZIP="9030">Abtwil SG</City>
</Cities>
<Location>
和...
Private Sub Workbook_Open()
Dim i As Integer
Dim NumberOfElements As Integer
Dim City As String
Dim xmlUrl As String
Dim xmlDoc As New DOMDocument
xmlUrl = "http://localhost:62231/dataHandling.asmx/GetAllCities"
xmlDoc.async = False
If xmlDoc.Load(xmlUrl) = False Then
MsgBox ("XML LOAD ERROR")
Else
NumberOfElements = xmlDoc.getElementsByTagName("City").Length
For i = 0 To NumberOfElements - 1
City = xmlDoc.SelectSingleNode("//Cities/City").Attributes.getNamedItem("ZIP").Text
City = City & " " & xmlDoc.getElementsByTagName("City").Item(i).Text
Tabelle2.Cells(i + 3, 1).Value = City
Next i
End If
End Sub
我从 Elements "City" 中得到所有的 Innertextes。但每次都是相同的属性“8355”。
City = xmlDoc.SelectSingleNode("//Cities/City").Attributes.getNamedItem("ZIP").Text
这一行应该有所不同,但我不知道如何循环抛出整个 XML 来读取每一个 Attrbute。