'执行方式 wscritp.exe 目标文件路径,要拷贝的结点的ID属性值,源文件路径
Dim xmlDoc,xmlRoot,xmlNode,lastNode,newNode
Dim doc,docRoot,i,flag
Dim strNodeName,strPath,docPath
strPath = Wscript.Arguments(0) '目标文件
strNodeName = Wscript.Arguments(1) '源文件中结点
docPath = Wscript.Arguments(2) '源文件名称
flag = False
Rem 加载目标文件
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.load strPath
If xmlDoc.parseError.errorCode <> 0 Then
Wscript.Echo "错误:" & Chr(13) & xmlDoc.parseError.reason
End If
Set xmlRoot = xmlDoc.documentElement
i = 0
Do While i<xmlRoot.childNodes.length
Set newNode = xmlRoot.childNodes.item(i)
If newNode.getAttribute("id") = strNodeName Then
flag = True
Exit Do
Else
i = i + 1
End If
loop
If flag Then
Rem 加载源文件,查找要拷贝的结点
Set doc =CreateObject("Microsoft.XMLDOM")
doc.async = False
doc.load docPath
If doc.parseError.errorCode <> 0 Then
Wscript.Echo "错误:" & Chr(13) & doc.parseError.reason
End If
Set docRoot = doc.documentElement
i = 0
Do While i < docRoot.childNodes.length
Set newNode = docRoot.childNodes.item(i)
If newNode.getAttribute("id") = strNodeName Then
Exit Do
Else
i = i + 1
End If
loop
Set lastNode = xmlRoot.lastChild
xmlDoc.documentElement.insertBefore newNode,lastNode
xmlDoc.Save strPath
Else
Wscript.Echo "已存在要拷贝的结点!"
End If
分享到:
相关推荐
vbs合并word文档代码。把这个vbs合并word文档.txt改为vbs合并word文档.vbs,然后和两个word文档(分别为a.doc和b.doc)放在一个文件夹中,双击后即可合并。
vbs 合并word文档
绝对不错的工具书~~大全html.js.css.vbs.xml
本文介绍了vbs类如何生成xml文件。
vbs操作excel全集 vbs控制EXCEL
VBS文档资料
vbs 操作网页.txt
vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作
vbs 操作 excel
从XML文件中获取信息的vbs代码,这个脚本演示了如何通过MSXML从一个XML文件中的信息。示例XML文件是用于在网站上的相册。此脚本将返回特定图片的标题。
VBS操作Excel常见方法, (一) 使用动态创建的方法 (二) 使用VBS 控制Excle二维图
使用VBS操作EXCEL方法,可在自动化测试框架中,引起这部分功能,实现脚本控制及数据表配置
关于VBS操作Excel和Word的技术文档
vbs api文档说明 包含了常用的函数和过程
通过VBS技术操作EXCEL列排序,内有具体说明
wincc使用VBS脚本操作趋势曲线,此文件对1月份的所发布趋势曲线增加删除的补充,添加一个个人例子
java调用,vbs操作excel
VBS脚本操作Excel常见方法汇总
在项目中需要在一定条件满足时,保存一些数据到数据库中,并可根据条件查询。考虑到WinCC6.2以后采用的就是SQL Server2005数据库,所以直接利用该数据库即可,通过SQL Server Management Studio(SSMS)可以创建自己...