Dim xmlDoc,xmlRoot,xmlNode,lastNode,newNode
Dim doc,docRoot,i,flag
Dim strNodeName,strPath,docPath
Dim xmlFolder,docFolder,oshell
Set oshell = CreateObject("Shell.Application")
Set xmlFolder = oshell.BrowseForFolder(0, "选择目标XML文档所在的目录", 0, ssfDRIVES)
strPath = xmlFolder.Self.Path & "\jz-mapping.xml"
Set docFolder = oshell.BrowseForFolder(0,"请选择源XML文档所在的目录",0,ssfDRIVES)
docPath = docFolder.Self.Path & "\jz-mapping.xml"
strNodeName = InputBox ("请输入要拷贝的结点ID值","输入ID值")
flag = True
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 = False
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
MsgBox "已存在要拷贝的结点!",,"Bug提示"
End If
上次发的那个要在CMD下运行,还要传参数
这个在运行时会弹出相应的对话框
方便了操作
分享到:
相关推荐
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)可以创建自己...