尝试使用 VBScript 注释 XML 节点答案

【问题标题】：Trying to comment XML nodes using VBScript尝试使用 VBScript 注释 XML 节点
【发布时间】：2016-08-09 17:38:52
【问题描述】：

我想评论一些节点（包括值的标签），因为我必须使用 VB 脚本自动配置。

我能够找到该节点，但我必须在需要时通过脚本注释该节点。

我想避免读取整个文件并找到所需的节点，因为可能有子节点，这会非常复杂

可以指导一下吗

【问题讨论】：

查看this answer 类似的问题。那里的代码是PowerShell，但是方法是一样的：选择节点，把它放到一个新的注释节点中，然后用那个替换原来的节点。
我必须使用 vbscript，因为代码库在 vbscript 中，我无法更改为 powershell 1 次使用
我没有说你应该切换到 PowerShell。但是您可以使用 PowerShell 代码作为在 VBScript 中实现它的蓝图。

标签： xml vbscript

【解决方案1】：

这就是我现在正在做的。请任何人帮助我以更好的方式做到这一点。 -> 我正在从文件中读取文本并将其替换为附加到文本的注释标记

sub CommentNodes(OriginalFilepath, TempFilePath , OriginalText, UpdatedText)

mOriginalFilePath = OriginalFilepath
mTempFilePath = TempFilePath

Set FileSysObj = CreateObject("Scripting.FileSystemObject")
Set File = FileSysObj.OpenTextFile(mOriginalFilePath)
Set OFile = FileSysObj.CreateTextFile(mTempFilePath , True)
StrText = File.ReadAll
newStr = Replace(Strtext, OriginalText, UpdatedText)
OFile.WriteLine newStr

OFile.Close
File.Close
FileSysObj.DeleteFile mOriginalFilePath
FileSysObj.MoveFile mTempFilePath,mOriginalFilePath 

Set OFile = Nothing
Set File = Nothing
Set FileSysObj = Nothing

Wscript.Echo "Success"
End sub

【讨论】：