-1

我正在使用下面的函数。在第一个函数中，我使用 MSXML 解析了 xml 的节点及其值。与其他 xml 类似的 func。我想使用两个节点值并突出显示它。我尝试了一些东西。但我在突出显示的行（* *）中遇到错误，因为“需要对象”。你的快速回复将帮助我更多。

Public Sub DisplayNode1(ByRef Nodes1 As MSXML2.IXMLDOMNodeList, _ ByVal Indent1 As Integer)

一些线 

  RichTextBox2.Text = Space$(Indent) & xNode1.ParentNode.nodeName & _
        ":" & xNode1.NodeValue 

        difference

一些线 

Public Sub difference() 

Dim a As IXMLDOMText 

Dim b As IXMLDOMText

a.NodeValue = xNode.innertext  'i get erroe in line    

b.NodeValue = xNode1.innertext           

If StrComp(a, b) > 0 Then  

a = vbRed  

b = vbRed 

End If

请尽快帮助我。

4

1 回答 1

1

这有很多潜在的错误。

  • xnode 未在您的代码示例中的任何地方声明
  • a、b 或 xnode 均未在代码示例中的任何位置显式设置
  • 除非 xnode 是表单/模块/全局级别变量，否则它将超出差异过程的范围
  • 它没有显示，但我猜你的代码中或默认情况下没有设置 Option Explicit

您需要先解决这些问题，然后才能使用此代码到达任何地方。

于 2012-12-11T14:51:02.243 回答