VBS 写XML 文件

最近在研究数据库表单导出数据为XML 格式，原本打算写文本文件方式按XML格式写文件。然后学习了MS XML SDK Documnet后发现使用MS XML SDK 更加容易 代码也更加清晰。最后决定采用这种模式处理XML

 

 VBS代码

Dim sFSpec ' FSpec of file to write Dim aMeta ' fixed meta/tag info Dim aData ' changing data ' needs your attention sFSpec = "C:/test2.xml" aMeta = Array( "library", "book", "author", "title" ) aData = Array(Array( "Bakken, Torgeir", "All Dark Secrets of VBScript" ) , Array( "Harris, Michael", "Doing XML with VBScript")) ' should work as is Dim oXDOM Dim ndRoot Dim aItem Dim ndItem Dim ndTag Dim nIdx Set oXDOM = CreateObject( "Msxml.DOMDocument" ) oXDOM.documentElement = oXDOM.createElement(aMeta(0)) Set ndRoot = oXDOM.documentElement oXDOM.insertBefore oXDOM.createProcessingInstruction( "xml", "version = ""1.0""" ) , ndRoot ndRoot.appendChild(oXDOM.createTextNode(vbCrLf)) ndRoot.appendChild(oXDOM.createTextNode(Space(2))) For Each aItem in aData Set ndItem = oXDOM.createElement( aMeta( 1 ) ) ndItem.appendChild(oXDOM.createTextNode(vbCrLf)) ndItem.appendChild(oXDOM.createTextNode(Space(4))) For nIdx = 2 To UBound( aMeta ) Set ndTag = oXDOM.createElement( aMeta( nIdx ) ) ndTag.appendChild oXDOM.createTextNode( aItem( nIdx - 2 ) ) ndTag.appendChild(oXDOM.createTextNode(Space(4))) ndItem.appendChild ndTag ndItem.appendChild(oXDOM.createTextNode(vbCrLf)) ndItem.appendChild(oXDOM.createTextNode(Space(4))) Next ndRoot.appendChild ndItem ndRoot.appendChild(oXDOM.createTextNode(vbCrLf)) Next oXDOM.Save CreateObject( "Scripting.FileSystemObject" ).GetAbsolutePathName( sFSpec ) MsgBox "OK"

输出格式：

 

<?xml version="1.0"?> <library> <book> <author>Bakken, Torgeir </author> <title>All Dark Secrets of VBScript </title> </book> <book> <author>Harris, Michael </author> <title>Doing XML with VBScript </title> </book> </library>