使用VBA从文本文件中删除空行

Dim fileNum As Integer
fileNum = FreeFile
Open "C:\path\to\file.txt" For Input As fileNum

Dim fileContent As String
Dim line As String

Do Until EOF(fileNum)
    Line Input #fileNum, line
    fileContent = fileContent & line & vbCrLf
Loop

fileContent = Replace(fileContent, vbCrLf & vbCrLf, vbCrLf)

Close fileNum

Sub DeleteEmptyLinesFromFile()
    Dim fileNum As Integer
    Dim fileContent As String
    Dim line As String
    
    ' 打开文本文件
    fileNum = FreeFile
    Open "C:\path\to\file.txt" For Input As fileNum
    
    ' 读取文本文件内容
    Do Until EOF(fileNum)
        Line Input #fileNum, line
        fileContent = fileContent & line & vbCrLf
    Loop
    
    ' 删除空行
    fileContent = Replace(fileContent, vbCrLf & vbCrLf, vbCrLf)
    
    ' 关闭文本文件
    Close fileNum
    
    ' 将处理后的内容写回文本文件
    fileNum = FreeFile
    Open "C:\path\to\file.txt" For Output As fileNum
    Print #fileNum, fileContent
    Close fileNum
End Sub