使用vbscript检查xml节点是否存在

作者：手浪用户2602916903 | 来源：互联网 | 2023-06-18 11:08

check xml node is exist or not using Vbscript这是 XML 文件12345678910111213141516171

check xml node is exist or not using Vbscript

这是 XML 文件

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242

>

>

part of attribute section>

>

>

part of script section>

>

>

>

>

>I_LANG>

>I>

>0003>

>0128>

>C>

>000128>

>000000>

>0001>

>0>

>

>

>WE20_100_STEP_1>

>X>

>WE20 - SAPMSEDIPARTNER - 100>

>0009>

>SAPGUI>

>G>

>T>

>SAPGUI>

>0000>

>000000>

>000000>

>0001>

>SAPGUI>

>>>

>T>

>0>

>

>

>V_LANG>

>V>

>0007>

>V.01>

>0128>

>C>

>000128>

>000000>

>0002>

>0>

>

>

>WE20_100_STEP_2>

>X>

>WE20 - SAPMSEDIPARTNER - 100>

>0010>

>SAPGUI>

>G>

>T>

>SAPGUI>

>0000>

>000000>

>000000>

>0002>

>SAPGUI>

>>>

>T>

>0>

>

>

>I_AGENT>

>I>

>0002>

>0128>

>C>

>000128>

>000000>

>0003>

>0>

>

>

>WE20_100_STEP_3>

>X>

>WE20 - SAPMSEDIPARTNER - 100>

>0011>

>GETGUI>

>I>

>T>

>GETGUI>

>0000>

>000000>

>000000>

>0003>

>GETGUI>

>>>

>T>

>0>

>

>

>I_TYPE>

>I>

>0004>

>V.04>

>0128>

>C>

>000128>

>000000>

>0004>

>0>

>

>

>WE20_100_STEP_4>

>X>

>WE20 - SAPMSEDIPARTNER - 100>

>0012>

>GETGUI>

>I>

>T>

>GETGUI>

>0000>

>000000>

>000000>

>0004>

>GETGUI>

>>>

>T>

>0>

>

>

>V_AGENT>

>V>

>0006>

>I.02>

>0128>

>C>

>000128>

>000000>

>0005>

>0>

>

>

>WE20_100_STEP_5>

>X>

>WE20 - SAPMSEDIPARTNER - 100>

>0013>

>GETGUI>

>I>

>T>

>GETGUI>

>0000>

>000000>

>000000>

>0005>

>GETGUI>

>>>

>T>

>0>

>

>

>V_TYPE>

>V>

>0008>

>V.03>

>0128>

>C>

>000128>

>000000>

>0006>

>0>

>

>

>WE20_100_STEP_6>

>X>

>WE20 - SAPMSEDIPARTNER - 100>

>0014>

>SAPGUI>

>G>

>T>

>SAPGUI>

>0000>

>000000>

>000000>

>0006>

>SAPGUI>

>>>

>T>

>0>

>

>

>MSG_1>

>X>

>Rules for Message Check eCATT Command MESSAGE>

>0005>

>MESSAGE>

>M>

>T>

>ETMSG_DEF_TABTYPE>

>0000>

>000000>

>000000>

>0007>

>ETMSG_DEF_TABTYPE>

>T>

>0>

>

>

>E_MSG_1>

>X>

>Collected Messages Before ENDMESSAGE>

>0001>

>ENDMESSAGE>

>N>

>T>

>ETMSG_RES_TABTYPE>

>0000>

>000000>

>000000>

>0008>

>ETMSG_RES_TABTYPE>

>T>

>0>

>

>

>ZX_FI_FP_0569_MS07_COAS_FB_1>

>X>

>TF_FI_FP_FI_0569_MS07_CO_Search_Help_Internal_Orders_vTD0_1_>

>0015>

>REF>

>R>

>T>

>ZX_FI_FP_0569_MS07_COAS_FB01>

>0000>

>000000>

>000000>

>0009>

>ZX_FI_FP_0569_MS07_COAS_FB01>

>T>

>0>

>

>

从上面的 XML 文件中，我们要验证以下条件：

1) 来自标签如果标签的前两个字母以 "I_" OR "V_" OR "E_" 开头，那么其对应的和节点文本应该分别以 "I" OR "V" OR "E" 开头。

2) 来自标记如果任何没有对应的则 VB 脚本应该显示错误，在这种情况下我们必须跳过检查第一个条件节点只显示错误" 节点对于 "

不存在

这是我尝试过的 Vbscript：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")

Dim sFSpec : sFSpec = oFS.GetAbsolutePathName("C:

ewXML.xml")

Dim objMSXML : Set objMSXML = CreateObject("Msxml2.DOMDocument")

objMSXML.setProperty"SelectionLanguage","XPath"

objMSXML.async = False

objMSXML.load sFSpec

objMSXML.validateOnParse= True

dim item,items,root

counter=0

Set NodeList = objMSXML.documentElement.selectNodes("/ECSC/PARAMETERS/ETPAR_GUIX/item")

for each item in NodeList

myPNAME = objMSXML.getElementsByTagName("PNAME").item(counter).text

myPTYP = objMSXML.getElementsByTagName("PTYP").item(counter).text

myPGROUP = objMSXML.getElementsByTagName("PGROUP").item(counter).text

If (Left(myPNAME, 2) ="I_") Then

IsValid_I = True

If (Left(myPTYP, 1) <>"I") Then

IsValid_I = False

End If

Set pgroup = objMSXML.selectSingleNode("/ECSC/PARAMETERS/ETPAR_GUIX/item[not(PGROUP)]/PNAME")

If Not pgroup Is Nothing Then

msgbox("PGROUP is exist for" &myPNAME)

If (Left(myPGROUP, 1) <>"I" )Then

IsValid_I = False

End If

Else

msgbox("PGROUP is not exist for"&myPNAME)

End If

If IsValid_I = False Then

msgbox(myPNAME &" is not valid.")

End If

IsValid_I = True

End If

If (Left(myPNAME, 2) ="V_") Then

IsValid_V = True

If (Left(myPTYP, 1) <>"V") Then

IsValid_V = False

End If

Set pgroup = objMSXML.selectSingleNode("/ECSC/PARAMETERS/ETPAR_GUIX/item[not(PGROUP)]/PNAME")

If Not pgroup Is Nothing Then

msgbox("PGROUP is exist for" &myPNAME)

If (Left(myPGROUP, 1) <>"V" )Then

IsValid_V = False

End If

Else

msgbox("PGROUP is not exist for"&myPNAME)

End If

IsValid_V = False Then

msgbox(myPNAME &" is not valid.")

End If

IsValid_V = True

End If

If (Left(myPNAME,2) ="E_") Then

IsValid_E = True

If (Left(myPTYP, 1) <>"E") Then

IsValid_E = False

End If

Set pgroup = objMSXML.selectSingleNode("/ECSC/PARAMETERS/ETPAR_GUIX/item[not(PGROUP)]/PNAME")

If Not pgroup Is Nothing Then

msgbox("PGROUP is exist for" &myPNAME)

If (Left(myPGROUP, 1) <>"E" )Then

IsValid_E = False

End If

Else

msgbox("PGROUP is not exist for"&myPNAME)

End If

If IsValid_E = False Then

msgbox(myPNAME &" is not valid.")

End If

IsValid_E = True

End If

counter=counter+1

next

请帮帮我。提前致谢。

使用 XPath 和 selectNodes 来识别无效的 item 元素，然后遍历无效节点以显示错误消息：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

Option Explicit

Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")

Dim sFSpec : sFSpec = oFS.GetAbsolutePathName("C:\doc.xml")

Dim objMSXML : Set objMSXML = CreateObject("Msxml2.DOMDocument")

objMSXML.setProperty"SelectionLanguage","XPath"

objMSXML.async = False

objMSXML.load sFSpec

objMSXML.validateOnParse= True

FindMissingPgroups objMSXML

FindInvalidPtyps objMSXML

FindInvalidPGroups objMSXML

Sub FindMissingPgroups(doc)

Dim query, items, item, pname

query ="/ECSC/PARAMETERS/ETPAR_GUIX/item[not(PGROUP)]"

Set items = doc.selectNodes(query)

For Each item In items

Set pname = item.selectSingleNode("PNAME")

MsgBox"Missing PGROUP for" & pname.text

Next ' item

End Sub

Sub FindInvalidPtyps(doc)

Dim query, items, item, pname, ptyp

query = query &"/ECSC/PARAMETERS/ETPAR_GUIX/item[PGROUP]["

query = query &" (starts-with(PNAME, 'I_') and not(starts-with(PTYP, 'I'))) or"

query = query &" (starts-with(PNAME, 'V_') and not(starts-with(PTYP, 'V'))) or"

query = query &" (starts-with(PNAME, 'E_') and not(starts-with(PTYP, 'E')))"

query = query &"]"

Set items = doc.selectNodes(query)

For Each item In items

Set pname = item.selectSingleNode("PNAME")

Set ptyp = item.selectSingleNode("PTYP")

MsgBox"Invalid PTYP (" & ptyp.text &") for" & pname.text

Next ' item

End Sub

Sub FindInvalidPgroups(doc)

Dim query, items, item, pname, pgroup

query = query &"/ECSC/PARAMETERS/ETPAR_GUIX/item[PGROUP]["

query = query &" (starts-with(PNAME, 'I_') and not(starts-with(PGROUP, 'I'))) or"

query = query &" (starts-with(PNAME, 'V_') and not(starts-with(PGROUP, 'V'))) or"

query = query &" (starts-with(PNAME, 'E_') and not(starts-with(PGROUP, 'E')))"

query = query &"]"

Set items = doc.selectNodes(query)

For Each item In items

Set pname = item.selectSingleNode("PNAME")

Set pgroup = item.selectSingleNode("PGROUP")

MsgBox"Invalid PGROUP (" & pgroup.text &") for" & pname.text

Next ' item

End Sub

一些注意事项：

始终在每个脚本的顶部使用 Option Explicit。它将在将来为您省去头疼的问题。

我将测试分成三组而不是两组。分别测试 PTYP 和 PGROUP 更容易。

请注意，无效 PTYP 和 PGROUP 的测试包括谓词 [PGROUP]。这确保我们只检查具有 PGROUP 的项目(这是条件 2 要求的一部分)。

您可以使用两个 For Each 循环，每个规则一个循环。对于第二条规则，选择所有而不选择相应的并显示错误消息，正如我在另一个问题中已经解释的那样。

对于第一条规则，选择所有和并验证它们：

1
2
3
4
5
6
7
8
9
10
11
12

Set nodesWithPgroup = objMSXML.documentElement.selectNodes("/ECSC/PARAMETERS/ETPAR_GUIX/item[PGROUP]")

For Each item in nodesWithPgroup

myPNAME = item.SelectSingleNode("PNAME").text

myPTYP = item.SelectSingleNode("PTYP").text

myPGROUP = item.SelectSingleNode("PGROUP").text

code = Left(myPNAME, 1)

If (Left(myPNAME, 2) = code &"_") Then

If (Left(myPTYP, 1) <> code Or Left(myPGROUP, 1) <> code) Then

msgbox(myPNAME &" is not valid.")

End If

End If

Next

推荐阅读

string
关于cuowu类的错误提示和使用AdjustmentListener的问题

本文讨论了一个关于cuowu类的问题，作者在使用cuowu类时遇到了错误提示和使用AdjustmentListener的问题。文章提供了16个解决方案，并给出了两个可能导致错误的原因。 ... [详细]

蜡笔小新 2023-12-13 22:09:56
format
向QTextEdit拖放文件的方法及实现步骤

本文介绍了在使用QTextEdit时如何实现拖放文件的功能，包括相关的方法和实现步骤。通过重写dragEnterEvent和dropEvent函数，并结合QMimeData和QUrl等类，可以轻松实现向QTextEdit拖放文件的功能。详细的代码实现和说明可以参考本文提供的示例代码。 ... [详细]

蜡笔小新 2023-12-14 16:06:38
string
XML介绍与使用的概述及标签规则

本文介绍了XML的基本概念和用途，包括XML的可扩展性和标签的自定义特性。同时还详细解释了XML标签的规则，包括标签的尖括号和合法标识符的组成，标签必须成对出现的原则以及特殊标签的使用方法。通过本文的阅读，读者可以对XML的基本知识有一个全面的了解。 ... [详细]

蜡笔小新 2023-12-13 17:39:50
string
在类中定义数组时出错 - Error on defining arrays in class

Iamtryingtomakeaclassthatwillreadatextfileofnamesintoanarray,thenreturnthatarra ... [详细]

蜡笔小新 2023-12-14 17:38:12
ip
Linux重启网络命令实例及关机和重启示例教程

本文介绍了Linux系统中重启网络命令的实例，以及使用不同方式关机和重启系统的示例教程。包括使用图形界面和控制台访问系统的方法，以及使用shutdown命令进行系统关机和重启的句法和用法。 ... [详细]

蜡笔小新 2023-12-14 15:52:52
string
开发笔记:加密&json&StringIO模块&BytesIO模块

篇首语：本文由编程笔记#小编为大家整理，主要介绍了加密&json&StringIO模块&BytesIO模块相关的知识，希望对你有一定的参考价值。一、加密加密 ... [详细]

蜡笔小新 2023-12-14 15:18:35
ip
android listview OnItemClickListener失效原因

最近在做listview时发现OnItemClickListener失效的问题，经过查找发现是因为button的原因。不仅listitem中存在button会影响OnItemClickListener事件的失效，还会导致单击后listview每个item的背景改变，使得item中的所有有关焦点的事件都失效。本文给出了一个范例来说明这种情况，并提供了解决方法。 ... [详细]

蜡笔小新 2023-12-14 14:25:50
string
Java容器中的compareto方法排序原理解析

本文从源码解析Java容器中的compareto方法的排序原理，讲解了在使用数组存储数据时的限制以及存储效率的问题。同时提到了Redis的五大数据结构和list、set等知识点，回忆了作者大学时代的Java学习经历。文章以作者做的思维导图作为目录，展示了整个讲解过程。 ... [详细]

蜡笔小新 2023-12-14 13:53:31
string
Android JSON基础，音视频开发进阶指南目录

Array里面的对象数据是有序的，json字符串最外层是方括号的，方括号：[]解析jsonArray代码try{json字符串最外层是 ... [详细]

蜡笔小新 2023-12-13 15:05:45
string
SpringJdbcTemplate的使用详解

本文详细介绍了Spring的JdbcTemplate的使用方法，包括执行存储过程、存储函数的call()方法，执行任何SQL语句的execute()方法，单个更新和批量更新的update()和batchUpdate()方法，以及单查和列表查询的query()和queryForXXX()方法。提供了经过测试的API供使用。 ... [详细]

蜡笔小新 2023-12-13 14:27:11
string
Hibernate延迟加载深入分析-集合属性的延迟加载策略

本文深入分析了Hibernate延迟加载的机制，特别是集合属性的延迟加载策略。通过延迟加载，可以降低系统的内存开销，提高Hibernate的运行性能。对于集合属性，推荐使用延迟加载策略，即在系统需要使用集合属性时才从数据库装载关联的数据，避免一次加载所有集合属性导致性能下降。 ... [详细]

蜡笔小新 2023-12-10 14:26:13
string
VB.NET在线急等问题解决方法，如何统计数据库字段下的数据并显示在文本框里？

本文介绍了一个在线急等问题解决方法，即如何统计数据库中某个字段下的所有数据，并将结果显示在文本框里。作者提到了自己是一个菜鸟，希望能够得到帮助。作者使用的是ACCESS数据库，并且给出了一个例子，希望得到的结果是560。作者还提到自己已经尝试了使用"select sum(字段2) from 表名"的语句，得到的结果是650，但不知道如何得到560。希望能够得到解决方案。 ... [详细]

蜡笔小新 2023-12-13 15:15:30
dll
Win7如何显示桌面及快捷方式

本文介绍了三种方法来实现在Win7系统中显示桌面的快捷方式，包括使用任务栏快速启动栏、运行命令和自己创建快捷方式的方法。具体操作步骤详细说明，并提供了保存图标的路径，方便以后使用。 ... [详细]

蜡笔小新 2023-12-13 13:15:57
string
Go Cobra命令行工具入门教程

本文介绍了Go语言实现的命令行工具Cobra的基本概念、安装方法和入门实践。Cobra被广泛应用于各种项目中，如Kubernetes、Hugo和Github CLI等。通过使用Cobra，我们可以快速创建命令行工具，适用于写测试脚本和各种服务的Admin CLI。文章还通过一个简单的demo演示了Cobra的使用方法。 ... [详细]

蜡笔小新 2023-12-12 20:02:41
string
Android实战——jsoup实现网络爬虫，糗事百科项目的起步

本文介绍了Android实战中使用jsoup实现网络爬虫的方法，以糗事百科项目为例。对于初学者来说，数据源的缺乏是做项目的最大烦恼之一。本文讲述了如何使用网络爬虫获取数据，并以糗事百科作为练手项目。同时，提到了使用jsoup需要结合前端基础知识，以及如果学过JS的话可以更轻松地使用该框架。 ... [详细]

蜡笔小新 2023-12-11 09:19:45

手浪用户2602916903

这个家伙很懒，什么也没留下！

Tags | 热门标签

RankList | 热门文章