XML地址GeoCoding访问VBA

Question

我正在使用Access 2010，并试图逆转一个地理代码。我指定一个lat长的位置，然后结果显示在一个列表框中。我有一个表单，有一个列表框和一个命令按钮。命令按钮具有以下onclick事件：

Dim XMLDoc As New DOMDocument
Dim XMLNode As IXMLDOMNode
Dim i As Long
Dim lat As Double, lng As Double

XMLDoc.Load "http://maps.googleapis.com/maps/api/geocode/xml?latlng=37.4250011,-122.0955909&sensor=false"

Do Until XMLDoc.ReadyState = 4
DoEvents
Loop

If Len(XMLDoc.Text) = 0 Then
    Call MsgBox("No data!")
    Exit Sub
End If

Set XMLNode = XMLDoc.selectSingleNode("/GeocodeResponse/result/formatted_address")

For i = 0 To XMLNode.childNodes.length - 1

Me.List1.AddItem Item:=XMLNode.childNodes(i).baseName & XMLNode.childNodes(i).Text

Next i

因此它检索格式化的地址。不过，我想把地址中的街道号码部分排除在外。例如，如果您转到：

http://maps.googleapis.com/maps/api/geocode/xml?latlng=37.4250011,-122.0955909&sensor=false

我只想要‘海滨公园路，山景城，CA 94043，美国’。如何将地址组件向上构建，然后使其在列表框中显示为一行？有可能吗？

谢谢,

迈克尔

Answer 1

您可以使用一些简单的字符串函数来转换它，而不是从节点打印完整的.Text。

首先，声明一个字符串类型变量来表示输出：

Dim StreetName as String

然后，您可以为变量赋值：

StreetName = XMLNode.childNodes(i).baseName & XMLNode.childNodes(i).Text

然后，操纵它：

StreetName = Mid(StreetName, Instr(StreetName, " ")+1)

Mid函数返回从第一个空格后面的位置开始的子字符串，我们使用Instr函数找到该子字符串。然后将其添加到列表框中：

Me.List1.AddItem StreetName

如果您需要检查地址号(有些可能没有地址号码？)然后你就可以这样做：

StreetName = XMLNode.childNodes(i).baseName & XMLNode.childNodes(i).Text
If IsNumeric(Left(StreetName,1)) Then
    StreetName = Mid(StreetName, Instr(StreetName, " ")+1)
End If

Me.List1.AddItem StreetName