HERE Maps API：无法存储响应

我正在使用HERE Maps geocodding API与VBA验证我的地址并给出地址的长整数。我收到了回复，但无法存储和使用回复。HERE Maps API：无法存储响应

以下是我的代码：

Private Sub Execute_Click() 

    Dim address, address1, address2, address3, state, city, zip As String 
    Dim appId As String 
    Dim appCode As String 
    Dim hereServerName As String 
    Dim strQuery As String 
    Dim strLatitude As String 
    Dim strLongitude As String 
    Dim addressGeocode As String 
    Dim hereResult As New MSXML2.DOMDocument 
    Dim hereService As New MSXML2.XMLHTTP 
    Dim rNodes As MSXML2.IXMLDOMNodeList 
    Dim rNode As MSXML2.IXMLDOMNode 

    hereServerName = "https://geocoder.cit.api.here.com/6.2/geocode.xml?" 
    appId = "uL2kjU0xrylpwTQIgrl7" 
    appCode = "2jhjonGD4MXzODki5T62Mg" 

    Dim succ, actions As Integer 
     succ = 0 
     actions = 9 
     For Row = 2 To actions 
      On Error Resume Next 
      address1 = Sheet1.Range("C" & Row) 
      address2 = Sheet1.Range("D" & Row) 
      address3 = Sheet1.Range("E" & Row) 
      city = Sheet1.Range("F" & Row) 
      state = Sheet1.Range("G" & Row) 
      zip = Sheet1.Range("H" & Row) 
      If address1 <> "" Then 
       address = address1 
      End If 
      If address2 <> "" Then 
       address = address & "," & address2 
      End If 
      If address3 <> "" Then 
       address = address & "," & address3 
      End If 
      address = address & "," & city & "," & state & "," & zip 
      address = URLEncode(address) 
      strQuery = hereServerName & "searchtext=" & address & "&app_id=" & appId & "&app_code=" & appCode & "&gen=9" 
      hereService.Open "GET", strQuery, False 
      hereService.send 
      hereService.waitForResponse 
      'I get the repose for the request but i am unable to store it in the here Result[Xml response][1] 
      MsgBox (hereService.responseText) 
      hereResult.LoadXML (hereService.responseText) 'Result not being stored 
      'I am unable to retrive any data from this statment. 
      Set rNodes = hereResult.getElementsByTagName("DisplayPosition") 
      For Each rNode In rNodes 
       strLatitude = rNode.ChildNodes(0).ChildNodes(0).Text 
       strLongitude = rNode.ChildNodes(0).ChildNodes(1).Text 
       addressGeocode = strLatitude & "," & strLongitude 
      Next rNode 
      Sheet1.Range("I" & Row) = addressGeocode 
     Next Row 
    Exit Sub 
End Sub 

Public Function URLEncode(ByVal StringVal As String, Optional SpaceAsPlus As Boolean = False) As String 

    Dim StringLen As Long: StringLen = Len(StringVal) 
    If StringLen > 0 Then 
    ReDim result(StringLen) As String 
    Dim i As Long, CharCode As Integer 
    Dim Char As String, Space As String 
    If SpaceAsPlus Then Space = "+" Else Space = "%20" 
    For i = 1 To StringLen 
     Char = Mid$(StringVal, i, 1) 
     CharCode = Asc(Char) 
     Select Case CharCode 
     Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126 
     result(i) = Char 
     Case 32 
     result(i) = Space 
     Case 0 To 15 
     result(i) = "%0" & Hex(CharCode) 
     Case Else 
     result(i) = "%" & Hex(CharCode) 
     End Select 
    Next i 
    URLEncode = Join(result, "") 
    End If 
End Function

请帮我解决这个问题。

来源

2017-06-15 Rohit B

“无法存储和使用响应” - 您可能需要稍微扩展一下。这将有助于包含一个响应看起来像什么的例子。如果响应是JSON，那么你应该看看https://github.com/VBA-tools/VBA-JSON –

我可以存储它。我只是存储在一个临时变量strValue的响应，然后使用该

strValue = (hereService.responseText) 
hereResult.LoadXML (strValue)

由于您使用的是循环，请确保hereService.responseText实际上为循环的该元素返回的东西。

也请避免使用OERN（On Error Resume Next）。这就像告诉代码“闭嘴”一样。以正确的方式处理错误。

编辑

这里是一个完全测试的代码部分

strValue = (hereService.responseText) 
hereResult.LoadXML (strValue) 

strLatitude = hereResult.getElementsByTagName("Latitude").Item(0).Text 
strLongitude = hereResult.getElementsByTagName("Longitude").Item(0).Text 
addressGeocode = strLatitude & "," & strLongitude 

Sheet1.Range("I" & Row) = addressGeocode

截图

测试它在必胜客位置（妈我现在饿了：P ）

来源

2017-06-15 06:58:49

HERE Maps API：无法存储响应

回答

相关问题