如何用Microsoft Excel VBA移除记事本文件末尾的多余回车与逗号

嘿，我来帮你调整现有代码，让它同时搞定末尾的多余逗号和换行/回车～

你的原代码已经能很好地移除末尾逗号，但要加上处理换行/回车的功能，只需要修改正则表达式的匹配规则就行，同时调整一下正则的MultiLine属性会更精准。

修改后的完整代码 #

Sub test()
    Dim fn As String, txt As String
    fn = Application.GetOpenFilename("TextFiles,*.txt")
    If fn = "" Then Exit Sub
    txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll
    
    With CreateObject("VBScript.RegExp")
        .Global = True
        .MultiLine = False ' 改为False，让$匹配整个文本的末尾，而非每一行末尾
        .Pattern = "[,\r\n]+$" ' 匹配末尾连续的逗号、回车、换行
        Open Replace(fn, ".txt", "_Clean.txt") For Output As #1
            Print #1, .Replace(txt, "")
        Close #1
    End With
End Sub

关键修改说明 #

• 正则表达式调整：把原来的",+$"改成"[,\r\n]+$"。这里的[]是字符集，代表匹配其中任意一个字符（逗号、回车\r、换行\n），+表示匹配一次或多次，$表示匹配整个文本的末尾。这样就能一次性清除文本结尾所有连续的多余逗号和换行/回车。
• MultiLine属性设置：把.MultiLine = True改成.MultiLine = False。因为原代码的MultiLine=True会让$匹配每一行的末尾，可能误删中间行的末尾逗号；改成False后，$只会匹配整个字符串的结尾，完全符合我们“只清理文本末尾冗余内容”的需求。

效果验证 #

比如你的文本末尾是这样的：

Hello World,,,

运行修改后的代码后，会变成：

Hello World

内容的提问来源于stack exchange，提问作者user8218514