VBS实现删除最后一行的空行

Dim fso, regex, str
Set fso = CreateObject("Scripting.FileSystemObject")
Set regex = CreateObject("VBScript.RegExp")
str = fso.OpenTextFile("XML_Atmel_SN.txt").ReadAll
regex.Global = True
regex.MultiLine = True
regex.Pattern = "^\s*\n"
str = regex.Replace(str, "")
'相当于JavaScript中的 str = str.replace(/^\s*\n/gm, "")
fso.OpenTextFile("XML_Atmel_SN.txt", 2).Write str

'备注：在该文本所处的位置新建任意一个带有空行的文件，并且用该新建的文件名替换文本中命名文件

' 适用于txt,doc,vbs等

 

'引用：一直以来，我都是用 New RegExp 来创建正则表达式对象的：
'Set regex = New RegExp然而最新才发现 VBS 的正则表达式对象也可以这样创建：
'Set regex = CreateObject("VBScript.RegExp")貌似我看过的 VBScript 书籍没有一本介绍过这种写法，当然，书上没写的东西还有很多