当前位置： 正文

使用 vbscript 检查 xml 节点是否存在 | 珊瑚贝

01-05 技术文章 402

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
<ECSC>
 <ATTRIBUTES>
  <some part of attribute section>
 </ATTRIBUTES>
 
  <ETXML_LINE_TABTYPE>
     <some part of script section>                
  </ETXML_LINE_TABTYPE>
 
 <PARAMETERS>
  <ETPAR_GUIX>
     <item>
        <PNAME>I_LANG</PNAME>
        <PTYP>I</PTYP>
        <PINDEX>0003</PINDEX>
        <PDATLEN>0128</PDATLEN>
        <PINTTYP>C</PINTTYP>
        <PINTLEN>000128</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0001</SORT_LNR>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>WE20_100_STEP_1</PNAME>
        <PTYP>X</PTYP>
        <PDESC>WE20 – SAPMSEDIPARTNER – 100</PDESC>
        <PINDEX>0009</PINDEX>
        <PGROUP>SAPGUI</PGROUP>
        <XMLREF_TYP>G</XMLREF_TYP>
        <PSTRUC_TYP>T</PSTRUC_TYP>
        <PREF_NAME>SAPGUI</PREF_NAME>
        <PDATLEN>0000</PDATLEN>
        <PINTLEN>000000</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0001</SORT_LNR>
        <PREF_NAME2>SAPGUI</PREF_NAME2>
        <VALUE><VALUE></VALUE>
        <VAL_TYPE>T</VAL_TYPE>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>V_LANG</PNAME>
        <PTYP>V</PTYP>
        <PINDEX>0007</PINDEX>
        <PGROUP>V.01</PGROUP>
        <PDATLEN>0128</PDATLEN>
        <PINTTYP>C</PINTTYP>
        <PINTLEN>000128</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0002</SORT_LNR>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>WE20_100_STEP_2</PNAME>
        <PTYP>X</PTYP>
        <PDESC>WE20 – SAPMSEDIPARTNER – 100</PDESC>
        <PINDEX>0010</PINDEX>
        <PGROUP>SAPGUI</PGROUP>
        <XMLREF_TYP>G</XMLREF_TYP>
        <PSTRUC_TYP>T</PSTRUC_TYP>
        <PREF_NAME>SAPGUI</PREF_NAME>
        <PDATLEN>0000</PDATLEN>
        <PINTLEN>000000</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0002</SORT_LNR>
        <PREF_NAME2>SAPGUI</PREF_NAME2>
        <VALUE><VALUE></VALUE>
        <VAL_TYPE>T</VAL_TYPE>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>I_AGENT</PNAME>
        <PTYP>I</PTYP>
        <PINDEX>0002</PINDEX>

        <PDATLEN>0128</PDATLEN>
        <PINTTYP>C</PINTTYP>
        <PINTLEN>000128</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0003</SORT_LNR>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>WE20_100_STEP_3</PNAME>
        <PTYP>X</PTYP>
        <PDESC>WE20 – SAPMSEDIPARTNER – 100</PDESC>
        <PINDEX>0011</PINDEX>
        <PGROUP>GETGUI</PGROUP>
        <XMLREF_TYP>I</XMLREF_TYP>
        <PSTRUC_TYP>T</PSTRUC_TYP>
        <PREF_NAME>GETGUI</PREF_NAME>
        <PDATLEN>0000</PDATLEN>
        <PINTLEN>000000</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0003</SORT_LNR>
        <PREF_NAME2>GETGUI</PREF_NAME2>
        <VALUE><VALUE></VALUE>
        <VAL_TYPE>T</VAL_TYPE>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>I_TYPE</PNAME>
        <PTYP>I</PTYP>
        <PINDEX>0004</PINDEX>
        <PGROUP>V.04</PGROUP>
        <PDATLEN>0128</PDATLEN>
        <PINTTYP>C</PINTTYP>
        <PINTLEN>000128</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0004</SORT_LNR>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>WE20_100_STEP_4</PNAME>
        <PTYP>X</PTYP>
        <PDESC>WE20 – SAPMSEDIPARTNER – 100</PDESC>
        <PINDEX>0012</PINDEX>
        <PGROUP>GETGUI</PGROUP>
        <XMLREF_TYP>I</XMLREF_TYP>
        <PSTRUC_TYP>T</PSTRUC_TYP>
        <PREF_NAME>GETGUI</PREF_NAME>
        <PDATLEN>0000</PDATLEN>
        <PINTLEN>000000</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0004</SORT_LNR>
        <PREF_NAME2>GETGUI</PREF_NAME2>
        <VALUE><VALUE></VALUE>
        <VAL_TYPE>T</VAL_TYPE>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>V_AGENT</PNAME>
        <PTYP>V</PTYP>
        <PINDEX>0006</PINDEX>
        <PGROUP>I.02</PGROUP>
        <PDATLEN>0128</PDATLEN>
        <PINTTYP>C</PINTTYP>
        <PINTLEN>000128</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0005</SORT_LNR>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>WE20_100_STEP_5</PNAME>
        <PTYP>X</PTYP>
        <PDESC>WE20 – SAPMSEDIPARTNER – 100</PDESC>
        <PINDEX>0013</PINDEX>
        <PGROUP>GETGUI</PGROUP>
        <XMLREF_TYP>I</XMLREF_TYP>
        <PSTRUC_TYP>T</PSTRUC_TYP>
        <PREF_NAME>GETGUI</PREF_NAME>
        <PDATLEN>0000</PDATLEN>
        <PINTLEN>000000</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0005</SORT_LNR>
        <PREF_NAME2>GETGUI</PREF_NAME2>
        <VALUE><VALUE></VALUE>
        <VAL_TYPE>T</VAL_TYPE>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>V_TYPE</PNAME>
        <PTYP>V</PTYP>
        <PINDEX>0008</PINDEX>
        <PGROUP>V.03</PGROUP>
        <PDATLEN>0128</PDATLEN>
        <PINTTYP>C</PINTTYP>
        <PINTLEN>000128</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0006</SORT_LNR>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>WE20_100_STEP_6</PNAME>
        <PTYP>X</PTYP>
        <PDESC>WE20 – SAPMSEDIPARTNER – 100</PDESC>
        <PINDEX>0014</PINDEX>
        <PGROUP>SAPGUI</PGROUP>
        <XMLREF_TYP>G</XMLREF_TYP>
        <PSTRUC_TYP>T</PSTRUC_TYP>
        <PREF_NAME>SAPGUI</PREF_NAME>
        <PDATLEN>0000</PDATLEN>
        <PINTLEN>000000</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0006</SORT_LNR>
        <PREF_NAME2>SAPGUI</PREF_NAME2>
        <VALUE><VALUE></VALUE>
        <VAL_TYPE>T</VAL_TYPE>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>MSG_1</PNAME>
        <PTYP>X</PTYP>
        <PDESC>Rules for Message Check eCATT Command MESSAGE</PDESC>
        <PINDEX>0005</PINDEX>
        <PGROUP>MESSAGE</PGROUP>
        <XMLREF_TYP>M</XMLREF_TYP>
        <PSTRUC_TYP>T</PSTRUC_TYP>
        <PREF_NAME>ETMSG_DEF_TABTYPE</PREF_NAME>
        <PDATLEN>0000</PDATLEN>
        <PINTLEN>000000</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0007</SORT_LNR>
        <PREF_NAME2>ETMSG_DEF_TABTYPE</PREF_NAME2>
        <VAL_TYPE>T</VAL_TYPE>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>E_MSG_1</PNAME>
        <PTYP>X</PTYP>
        <PDESC>Collected Messages Before ENDMESSAGE</PDESC>
        <PINDEX>0001</PINDEX>
        <PGROUP>ENDMESSAGE</PGROUP>
        <XMLREF_TYP>N</XMLREF_TYP>
        <PSTRUC_TYP>T</PSTRUC_TYP>
        <PREF_NAME>ETMSG_RES_TABTYPE</PREF_NAME>
        <PDATLEN>0000</PDATLEN>
        <PINTLEN>000000</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0008</SORT_LNR>
        <PREF_NAME2>ETMSG_RES_TABTYPE</PREF_NAME2>
        <VAL_TYPE>T</VAL_TYPE>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
     <item>
        <PNAME>ZX_FI_FP_0569_MS07_COAS_FB_1</PNAME>
        <PTYP>X</PTYP>
        <PDESC>TF_FI_FP_FI_0569_MS07_CO_Search_Help_Internal_Orders_vTD0_1_</PDESC>
        <PINDEX>0015</PINDEX>
        <PGROUP>REF</PGROUP>
        <XMLREF_TYP>R</XMLREF_TYP>
        <PSTRUC_TYP>T</PSTRUC_TYP>
        <PREF_NAME>ZX_FI_FP_0569_MS07_COAS_FB01</PREF_NAME>
        <PDATLEN>0000</PDATLEN>
        <PINTLEN>000000</PINTLEN>
        <PDECIMALS>000000</PDECIMALS>
        <SORT_LNR>0009</SORT_LNR>
        <PREF_NAME2>ZX_FI_FP_0569_MS07_COAS_FB01</PREF_NAME2>
        <VAL_TYPE>T</VAL_TYPE>
        <TAB_INDEX>0</TAB_INDEX>
     </item>
  </ETPAR_GUIX>

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

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

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

不存在

这是我尝试过的 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 循环，每个规则一个循环。对于第二条规则，选择所有 <PNAME> 而不选择相应的 <PGROUP> 并显示错误消息，正如我在另一个问题中已经解释的那样。

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

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

来源：https://www.codenong.com/24618335/

微信公众号
手机浏览(小程序)

Warning: get_headers(): SSL operation failed with code 1. OpenSSL Error messages: error:14090086:SSL routines:ssl3_get_server_certificate:certificate verify failed in /mydata/web/wwwshanhubei/web/wp-content/themes/shanhuke/single.php on line 57

Warning: get_headers(): Failed to enable crypto in /mydata/web/wwwshanhubei/web/wp-content/themes/shanhuke/single.php on line 57

Warning: get_headers(https://static.shanhubei.com/qrcode/qrcode_viewid_9181.jpg): failed to open stream: operation failed in /mydata/web/wwwshanhubei/web/wp-content/themes/shanhuke/single.php on line 57
0
分享到：

猜你喜欢

关于拖放：在 jsPlumb jQuery 中以编程方式”拾取”元素之间的连接 | 珊瑚贝
技术文章

01-05 1746
运行时 Ruby/Rails rspec 下载错误 | 珊瑚贝
技术文章

01-05 775
关于shell：如果第 2 和第 3 字段相同，我如何使用排序或其他 bash 命令从所有行中获取 1 行 | 珊瑚贝
技术文章

01-05 1104
关于sql：根据另一个表中的列的值生成行 | 珊瑚贝
技术文章

01-05 1780
关于python：如何使用 to_html 将 CSS 类(我的风格)应用到 Pandas DataFrame | 珊瑚贝
技术文章

01-05 1060
WHERE 子句中可能不会出现聚合(SQL Server 错误) | 珊瑚贝
技术文章

01-05 2215
没有账号？ 忘记密码？