基于VBScript类实现XML文件生成的方法
VBScript作为Windows环境下常用的脚本语言，常被用于系统管理、自动化任务等场景，在这些场景中经常需要生成结构化的XML文件来存储配置信息或者传输数据。很多开发者一开始会选择直接用字符串拼接的方式生成XML内容，这种方式虽然简单，但是当XML结构变复杂时，很容易出现标签不匹配、特殊字符未转义、格式错误等问题。而通过自定义VBScript类来封装XML生成的逻辑，就能很好地规避这些问题，让代码更清晰、更易复用。
VBScript类设计思路
要实现一个能生成XML文件的VBScript类，核心需要封装几个关键能力：首先是创建XML文档对象，这是生成XML的基础；其次是支持添加不同层级的节点，包括根节点、子节点；然后是支持给节点添加属性、文本内容；最后是将生成好的XML内容保存到本地文件，同时处理特殊字符转义，避免生成的XML格式错误。
我们给这个类命名为XMLGenerator，设计以下几个核心方法：
- Init：初始化XML文档，设置XML声明、根节点名称
- AddNode：添加子节点，支持指定父节点、节点名称、节点文本、节点属性
- SaveToFile：将生成的XML内容保存到指定路径的文件
- EscapeXML：私有方法，转义XML中的特殊字符，比如<、>、&等
类的完整实现代码
下面是XMLGenerator类的完整VBScript实现代码，所有特殊字符都已经做了转义处理：
Class XMLGenerator
Private m_xmlDoc ' XML文档对象
Private m_rootNode ' 根节点对象
Private m_fileSystem ' 文件系统对象
' 类初始化方法
Private Sub Class_Initialize()
Set m_xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
Set m_fileSystem = CreateObject("Scripting.FileSystemObject")
End Sub
' 类销毁方法，释放对象资源
Private Sub Class_Terminate()
Set m_rootNode = Nothing
Set m_xmlDoc = Nothing
Set m_fileSystem = Nothing
End Sub
' 初始化XML文档，设置根节点
' 参数：rootName - 根节点名称
Public Sub Init(rootName)
Dim xmlDecl
Set xmlDecl = m_xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
m_xmlDoc.appendChild xmlDecl
Set m_rootNode = m_xmlDoc.createElement(rootName)
m_xmlDoc.appendChild m_rootNode
End Sub
' 转义XML特殊字符
' 参数：inputStr - 需要转义的字符串
' 返回：转义后的字符串
Private Function EscapeXML(inputStr)
If IsNull(inputStr) Or inputStr = "" Then
EscapeXML = ""
Exit Function
End If
Dim tempStr
tempStr = Replace(inputStr, "&", "&")
tempStr = Replace(tempStr, "<", "<")
tempStr = Replace(tempStr, ">", ">")
tempStr = Replace(tempStr, """", """)
tempStr = Replace(tempStr, "'", "'")
EscapeXML = tempStr
End Function
' 添加子节点
' 参数：parentNode - 父节点对象，若为Empty则默认添加到根节点
' nodeName - 子节点名称
' nodeText - 子节点文本内容，可选
' nodeAttrs - 节点属性字典，可选，格式为Dictionary对象，key为属性名，value为属性值
' 返回：新创建的子节点对象
Public Function AddNode(parentNode, nodeName, nodeText, nodeAttrs)
Dim targetParent, newNode
' 若未指定父节点，默认使用根节点
If IsEmpty(parentNode) Then
Set targetParent = m_rootNode
Else
Set targetParent = parentNode
End If
' 创建新节点
Set newNode = m_xmlDoc.createElement(nodeName)
' 设置节点文本
If Not IsEmpty(nodeText) And Not IsNull(nodeText) Then
newNode.text = EscapeXML(CStr(nodeText))
End If
' 设置节点属性
If Not IsEmpty(nodeAttrs) Then
Dim attrKey
For Each attrKey In nodeAttrs.Keys
newNode.setAttribute attrKey, EscapeXML(CStr(nodeAttrs(attrKey)))
Next
End If
' 将新节点添加到父节点下
targetParent.appendChild newNode
Set AddNode = newNode
End Function
' 将生成的XML保存到文件
' 参数：filePath - 文件保存路径
' indent - 是否格式化缩进，可选，默认True
Public Sub SaveToFile(filePath, indent)
If IsEmpty(indent) Then indent = True
m_xmlDoc.setProperty "SelectionLanguage", "XPath"
' 格式化XML，增加缩进提升可读性
If indent Then
m_xmlDoc.setProperty "SelectionNamespaces", "xmlns:xsl='http://www.w3.org/1999/XSL/Transform'"
Dim xslDoc, xslStr
xslStr = "<?xml version='1.0'?><xsl:stylesheet version='1.0' xmlns:xsl='http://www.w3.org/1999/XSL/Transform'><xsl:output method='xml' encoding='UTF-8' indent='yes' /><xsl:template match='@* | node()'><xsl:copy><xsl:apply-templates select='@* | node()' /></xsl:copy></xsl:template></xsl:stylesheet>"
Set xslDoc = CreateObject("MSXML2.DOMDocument.6.0")
xslDoc.loadXML xslStr
m_xmlDoc.transformNodeToObject xslDoc, m_xmlDoc
End If
' 保存文件
m_xmlDoc.save filePath
End Sub
End Class类的使用示例
下面通过一个实际场景的示例，演示如何使用XMLGenerator类生成一个包含系统配置信息的XML文件：
' 创建XMLGenerator类实例
Dim xmlGen
Set xmlGen = New XMLGenerator
' 初始化XML，设置根节点为systemConfig
xmlGen.Init "systemConfig"
' 添加配置项节点，默认父节点为根节点
Dim basicNode, netNode
Set basicNode = xmlGen.AddNode(Empty, "basicInfo", "", Empty)
xmlGen.AddNode basicNode, "systemName", "Windows Server 2019", Empty
xmlGen.AddNode basicNode, "version", "10.0.17763", Empty
' 添加网络配置节点，并附带属性
Set netNode = xmlGen.AddNode(Empty, "network", "", Empty)
Dim netAttrs
Set netAttrs = CreateObject("Scripting.Dictionary")
netAttrs.Add "type", "ethernet"
xmlGen.AddNode netNode, "ip", "192.168.0.100", netAttrs
xmlGen.AddNode netNode, "mask", "255.255.255.0", Empty
xmlGen.AddNode netNode, "gateway", "192.168.0.1", Empty
' 添加包含特殊字符的节点内容，测试转义功能
xmlGen.AddNode Empty, "description", "配置说明：包含<特殊>字符&符号'测试'", Empty
' 保存到本地文件，路径为C盘根目录的config.xml
xmlGen.SaveToFile "C:\config.xml", True
' 释放对象
Set xmlGen = Nothing
WScript.Echo "XML文件生成完成"使用注意事项
在使用这个类生成XML文件时，需要注意以下几点：
- 节点名称需要符合XML命名规范，不能以数字、特殊字符开头，不能包含空格
- 如果节点文本内容包含<、>、&等特殊字符，类会自动进行转义，不需要手动处理
- 保存文件路径需要有写入权限，否则会抛出错误
- 如果需要生成更复杂的XML结构，可以通过AddNode方法返回的节点对象，继续嵌套添加子节点
总结
通过封装XMLGenerator类，我们把XML生成的核心逻辑和具体业务代码分离，后续如果需要生成不同结构的XML文件，只需要调用类的对应方法即可，不需要重复编写XML拼接的代码。这种方式不仅减少了出错概率，也提升了代码的可维护性和复用性，非常适合在VBScript自动化脚本场景中推广使用。