как разобрать XML-файл в VB6 рекурсивной

Question

Я новичок в VB6 и должен разобрать документ XML с различной глубиной тегов, как в следующем примере:

<start> 
    <b>text1</b> 
    <c> 
    <c1> 
     <d>text</d> 
    </c1> 
    </c> 
</start> 

Я использую MSXML и пытаясь решить эту проблему рекурсивной. Мой код:

Sub1() 
    Set objXML = CreateObject("Msxml.DOMDocument") 
    objXML.async = True 
    objXML.Load "text.xml" 

    Dim nodeList As IXMLDOMNodeList 
    Dim node As IXMLDOMNode 

    Set nodeList = objXML.selectNodes("*") 

    For Each node In nodeList 
    print node.nodeName ' this works' 
    printNode (node)  'here is the problem explained below' 
    Next node 
End Sub 


Sub printNode(node As IXMLDOMNode) 
    Dim xmlNode As IXMLDOMNode 
    If node.hasChildNodes Then 
    For Each xmlNode In node.childNodes 
     printNode (xmlNode) 
    Next xmlNode 
    Print node.nodeName 
    End If 
End Sub 

Проблема заключается в том, что это не представляется возможным назвать суб printNode с узлом параметра от типа IXMLDOMNode. Когда я пытаюсь запустить программу, которую я всегда получаю RuntimeError 438 который говорит объект не поддерживает эту функцию

Узел существует, я проверил это и могу напечатать имя и значение узла.

Может ли кто-нибудь объяснить мне, почему и дать мне подсказку как/решение, как я могу решить эту проблему?

Answer 1

У вас есть синтаксическая ошибка в коде. Если вы вызываете Sub, вы либо делаете это без включения параметров в скобках, либо используете ключевое слово Call перед именем Sub.

Public Sub Sub1() 
    Set objXML = CreateObject("Msxml.DOMDocument") 
    objXML.async = True 
    objXML.Load "text.xml" 

    Dim nodeList As IXMLDOMNodeList 
    Dim node As IXMLDOMNode 

    Set nodeList = objXML.selectNodes("*") 

    For Each node In nodeList 
     print node.nodeName ' this works' 
     Call printNode(node)  'here is the problem explained below' 
    Next node 
End Sub 

Public Sub printNode(node As IXMLDOMNode) 
    Dim xmlNode As IXMLDOMNode 

    If node.hasChildNodes Then 
     For Each xmlNode In node.childNodes 
      Call printNode(xmlNode) 
     Next xmlNode 
     Print node.nodeName 
    End If 
End Sub