Не удается получить текст из узла в XML

Question

Это, вероятно, простой вопрос, но используя xmlhttp, как мне получить текст узла токена в этом XML?Должен быть лучший способ, чем этот:

XML.FirstChild.NextSibling.FirstChild.FirstChild.FirstChild.FirstChild.NextSibling.Text

<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <GetToken2Response xmlns="webservice">
      <GetToken2Result>
        <ResponseStatus>
          <ResponseCd>Fail or Success or Warning</ResponseCd>
          <ResponseMsg>string</ResponseMsg>
          <Version>string</Version>
        </ResponseStatus>
        <Token>string</Token>
        <Expiration>double</Expiration>
        <Valid>boolean</Valid>
      </GetToken2Result>
    </GetToken2Response>
  </soap:Body>
</soap:Envelope>

Answer 1

Обновлено, чтобы включить пространства имен.К сожалению, я не могу понять, как обращаться с 'xmlns = "webservice"' в вашем реальном примере xml ...

Sub Test()
    Dim sXML As String
    Dim xmlDoc As DOMDocument
    Dim xNodeResult As IXMLDOMNode
    Dim xNodeToken As IXMLDOMNode

    Set xmlDoc = New DOMDocument40

    sXML = "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""" & _
                 " xmlns:xsd = ""http://www.w3.org/2001/XMLSchema""" & _
                 " xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
                 "<soap:Body>" & _
                 "<GetToken2Response>" & _
                 "<GetToken2Result>" & _
                 "   <ResponseStatus>" & _
                 "     <ResponseCd>Fail or Success or Warning</ResponseCd>" & _
                 "     <ResponseMsg>string</ResponseMsg>" & _
                 "     <Version>string</Version>" & _
                 "   </ResponseStatus>" & _
                 "   <Token>string</Token>" & _
                 "   <Expiration>double</Expiration>" & _
                 "   <Valid>boolean</Valid>" & _
                "</GetToken2Result>" & _
                "</GetToken2Response>" & _
                "</soap:Body>" & _
                "</soap:Envelope>"


    xmlDoc.validateOnParse = True
    xmlDoc.setProperty "SelectionNamespaces", _
              "xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'"

    xmlDoc.LoadXML (sXML)
    If xmlDoc.parseError.reason <> "" Then
        Debug.Print "Parse error: " & xmlDoc.parseError.reason
        Exit Sub
    End If

    xmlDoc.setProperty "SelectionLanguage", "XPath"

    Set xNodeResult = xmlDoc.DocumentElement.SelectSingleNode( _
       "/soap:Envelope/soap:Body/GetToken2Response/GetToken2Result")
    Debug.Print xNodeResult.XML

    Set xNodeToken = xNodeResult.SelectSingleNode("Token")

    If Not xNodeToken Is Nothing Then
        Debug.Print xNodeToken.nodeTypedValue
    Else
        Debug.Print "???"
    End If
End Sub

Answer 2

Я сохранил ваш XML в файл, затем запустил эту процедуру, и он выдал мне 'string' в качестве значения для токена.

Public Sub ReadToken()
    Dim strUrl As String
    Dim objDoc As Object
    Dim strToken As String

    strUrl = CurrentProject.Path & Chr(92) & "brettville.xml"

    Set objDoc = CreateObject("Msxml2.DOMDocument.3.0")
    objDoc.async = False
    objDoc.validateOnParse = True
    objDoc.Load strUrl

    strToken = objDoc.getElementsByTagName("Token").Item(0).Text
    Debug.Print "strToken: '" & strToken & "'"
    Set objDoc = Nothing
End Sub