VBA宏编辑文本文件故障：无法处理最后一行

嘿，这个问题我太熟了！刚接触VBA处理文本文件时，十有八九会栽在最后一行的坑里😅

问题根源 #

你用的OpenTextFile配合Do Until objFile.AtEndOfStream循环，大概率是因为文本文件最后一行没有换行符导致的。当文件最后一行末尾没有\r\n（Windows换行符）时，ReadLine读取完这一行后，AtEndOfStream会直接触发循环结束，有时候你的处理逻辑可能没来得及对这一行执行完整的编辑/写入操作；或者少数情况下，无换行的最后一行会被ReadLine的判断逻辑“忽略”。

解决方案1：一次性读取全部内容（最稳妥） #

放弃逐行读取，改用ReadAll一次性把整个文件读进来，再拆分成行数组处理，这样不管最后一行有没有换行符，都能被精准捕获到：

Sub ProcessTextFile()
    Dim objFSO As Object
    Dim objFile As Object
    Dim newFile As Object
    Dim fullContent As String
    Dim lineArray As Variant
    Dim line As Variant
    
    '创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    '打开源文件（只读模式）
    Set objFile = objFSO.OpenTextFile("tempRO.txt", 1)
    '读取全部内容
    fullContent = objFile.ReadAll
    objFile.Close
    
    '统一换行符格式（兼容Windows/Unix/Mac）
    fullContent = Replace(Replace(fullContent, vbCrLf, vbLf), vbCr, vbLf)
    '拆分成行数组
    lineArray = Split(fullContent, vbLf)
    
    '创建新文件（覆盖现有文件）
    Set newFile = objFSO.CreateTextFile("new_tempRO.txt", True)
    
    '遍历每一行处理
    For Each line In lineArray
        '===== 这里放你的编辑/删除逻辑 =====
        '示例：替换特定内容
        'line = Replace(line, "旧内容", "新内容")
        '示例：删除包含特定关键词的行
        'If InStr(line, "要删除的关键词") > 0 Then
        '    Continue For '跳过写入
        'End If
        '==================================
        
        '写入处理后的行（如果不想写入空行，可以加Len(line) > 0判断）
        If Len(line) > 0 Then
            newFile.WriteLine line
        End If
    Next line
    
    newFile.Close
    '释放对象
    Set objFSO = Nothing
    Set objFile = Nothing
    Set newFile = Nothing
    
    MsgBox "处理完成！"
End Sub

解决方案2：调整逐行读取的循环逻辑 #

如果你坚持用逐行读取的方式，可以给循环加错误处理，避免最后一行因为无换行符被遗漏：

Sub ProcessTextFileLineByLine()
    Dim objFSO As Object
    Dim objFile As Object
    Dim newFile As Object
    Dim strLine As String
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile("tempRO.txt")
    Set newFile = objFSO.CreateTextFile("new_tempRO.txt", True)
    
    Do
        '捕获读取最后一行可能的错误
        On Error Resume Next
        strLine = objFile.ReadLine
        If Err.Number <> 0 Then
            strLine = ""
            Err.Clear
        End If
        On Error GoTo 0
        
        '===== 你的编辑/删除逻辑 =====
        '比如：If InStr(strLine, "特定内容") > 0 Then strLine = "编辑后的内容"
        '============================
        
        '写入处理后的行
        If Len(strLine) > 0 Then
            newFile.WriteLine strLine
        End If
    Loop Until objFile.AtEndOfStream
    
    objFile.Close
    newFile.Close
    Set objFSO = Nothing
    Set objFile = Nothing
    Set newFile = Nothing
    
    MsgBox "处理完成！"
End Sub

小提示 #

• 处理文本文件前，最好用Notepad++这类工具打开源文件，开启“显示所有字符”功能，查看最后一行有没有行尾标记。
• 不同系统的换行符不一样，Windows是vbCrLf，Unix是vbLf，Mac是vbCr，用Replace统一成vbLf再拆分是更稳妥的做法。

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