vba - разобрать xml контакты Google v3 - PullRequest
Новая
       12

vba - разобрать xml контакты Google v3

0 голосов
/ 13 декабря 2018

Я не могу разобрать следующую строку xml с моим vba-кодом: 

Dim oXml As MSXML2.DOMDocument60
Set oXml = New MSXML2.DOMDocument60


Dim xmlstr As String: xmlstr = XmlResponse
 oXml.loadXML xmlstr

Dim oSeqNodes, oSeqNode As IXMLDOMNode
Set oSeqNodes = oXml.selectNodes("//feed/entry")


If oSeqNodes.Length = 0 Then
   'show some message nix da
   GetGoogleContactsGroupBySearchString = "parsing_error"
Else
    For Each oSeqNode In oSeqNodes
         'Debug.Print oSeqNode.selectSingleNode("id").Text
         'Debug.Print oSeqNode.selectSingleNode("title").Text

         If oSeqNode.selectSingleNode("title").Text = "System Group: My Contacts" Then
         'If oSeqNode.selectSingleNode("title").Text = SearchStr Then
            GetGoogleContactsGroupBySearchString = oSeqNode.selectSingleNode("id").Text
            Exit For
         End If
    Next
End If
End Function

Если элемент XML содержит объекты 

<feed xmlns='http://www.w3.org/2005/Atom' xmlns:gd='http://schemas.google.com/g/2005' xmlns:batch='http://schemas.google.com/gdata/batch' xmlns:gContact='http://schemas.google.com/contact/2008' xmlns:openSearch='http://a9.com/-/spec/opensearch/1.1/' gd:etag='&quot;EFsQTwpDASlgJns6UA..&quot;'> ... </feed>

, он НЕ РАБОТАЕТ, иначеесли это выглядит как <feed> .... </feed>, это работает.

...