如何使用MSXML2编写节点列表项 [英] how to write nodelist items using MSXML2

问题描述

亲爱的朋友们，



i开发窗口应用程序，它使用xml.to使用带有msxml2.i的DOM概念检索xml值已经收集了nodelist中的值。如何写下节点列表项？

请参考下面的代码。

Dear Friends,

i am developing window application which uses xml.to retrieve xml values am using DOM concept with msxml2.i have collected the values in nodelist.How to write the nodelist items?
please refer the below code.

For Each node3 In nodelist3
                                            Debug.Print (node1.nodeName)
                                       ' MsgBox node3.nodeName & "has child nodes"
                                       If UCase(node1.nodeName) = "READ" Then
                                          If UCase(node3.nodeName) = "LEFT" Then
                                            objread.lLeft = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "TOP" Then
                                            objread.lTop = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "RIGHT" Then
                                            objread.lRight = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "BOTTOM" Then
                                            objread.lBottom = CLng(node3.nodeTypedValue)
                                          End If

                                       ElseIf UCase(node1.nodeName) = "WRITE" Then
                                         Debug.Print (node1.nodeName)
                                          If UCase(node3.nodeName) = "PAGE" Then
                                             objwrite.lPageNumber = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "LEFT" Then
                                            objwrite.lLeft = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "TOP" Then
                                            objwrite.lTop = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "RIGHT" Then
                                            objwrite.lRight = CLng(node3.nodeTypedValue)
                                          ElseIf UCase(node3.nodeName) = "BOTTOM" Then
                                            objwrite.lBottom = CLng(node3.nodeTypedValue)
                                          End If

                                       End If

                                       If (UCase(node1.nodeName) = "READ") And ((UCase(node3.nodeName) <> "POLYGON")) And ((objread.lLeft <> 0) And (objread.lTop <> 0) And (objread.lRight <> 0) And (objread.lBottom <> 0)) Then
                                         colRead.Add objread
                                       ElseIf (UCase(node1.nodeName) = "WRITE") And ((objwrite.lLeft <> 0) And (objwrite.lTop <> 0) And (objwrite.lRight <> 0) And (objwrite.lBottom <> 0)) Then
                                         colWrite.Add objwrite
                                       End If

                                   Next

在上面的代码中我想打印项目如果nodelist3

in the above code i want to print the items if nodelist3

推荐答案

读取这个。它可能对你有帮助。

Read this. It may help you.

这篇关于如何使用MSXML2编写节点列表项的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！