неизвестный метод в XPATH ведении VBScript

Question

сообщение об ошибке

msxml3.dll: Неизвестный метод.

/Запись/CelloXml/Интеграция/Case/ServiceEvent [-> последняя() < -]/Услуги/Комментировать

Мой код выглядит следующим образом и ошибка в случае NEW

Case OLD отлично работает с [0] там

'On Error Resume Next 

Public Function GetParameterXml() 
GetParameterXml = _ 
"<Parameters>" &_ 
    "<Parameter Value='Age' Code='A' Description='Age' Type='Combo' Tooltip='Would you like the newest or oldest Reason?'>" &_ 
    " <Options>" &_ 
    " <Option Code='O' Description='Oldest' Value='OLD' />" &_ 
    " <Option Code='N' Description='Newest' Value='NEW' />" &_ 
    " </Options>" &_ 
    "</Parameter>" &_ 
"</Parameters>" 
End Function 

'Parameter Variables 
Dim Age : Set Age = Parameters.Item(Bookmark , "Age") 

' PlaceHolder Variables 
Dim CommentNodes 

''' stop here and look around 
stop 

Select Case Age.Value 
Case "OLD": 
    Set CommentNodes = XmlDoc.SelectNodes("Record/CelloXml/Integration/Case/ServiceEvent[0]/Service/Comment") 
Case "NEW": 
    Set CommentNodes = XmlDoc.SelectNodes("Record/CelloXml/Integration/Case/ServiceEvent[last()]/Service/Comment") 
End Select 

For Each CommentNode In CommentNodes 
ReturnData = ReturnData & CommentNode.Text & MD 
Next 

If Len(ReturnData) > 0 Then 
ReturnData = Left(ReturnData, Len(ReturnData) - Len(MD)) 
Else 
ReturnData = vbNullString 
End If 

для некоторого реак сыну это не нравится last() есть ли другой способ сделать это? Мне нужна функциональность последней функции, так что если есть только один узел ServiceEvent, он все равно захватит этот узел.

---

Я не VBScript Guy (еще) и все, что я узнал о XPATH, что я узнал на работе.

Answer 1

Просто добавьте следующее свойство

XmlDoc.SetProperty "SelectionLanguage", "XPath" 

Мой тест XML выглядит следующим образом

<root> 
    <child1> 
     <child2> 
      <child3>test1</child3> 
     </child2> 
     <child2> 
      <child3>test2</child3> 
     </child2> 
     <child2> 
      <child3>test3</child3> 
     </child2> 
     <child2> 
      <child3>test4</child3> 
     </child2> 
    </child1> 
</root> 

Мой тестовый код выглядит следующим образом

strXMLReadFile = "C:\Test.xml" 

Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
xmlDoc.SetProperty "SelectionLanguage", "XPath" 
xmlDoc.Async = False 
xmlDoc.Load(strXMLReadFile) 

Set nodeXML = xmlDoc.SelectNodes("//root/child1/child2[last()]") 
msgbox nodeXML(0).Text 

Я получаю test4

Answer 2

SomeNode[position() = last()] 

- это то, что вы хотите.