Excel VBA/宏从.txt文件中删除不需要的逗号

Sub RemoveUnnecessaryCommas()
    Dim filePath As String
    Dim fileContent As String
    Dim newContent As String
    Dim fileNumber As Integer
    
    ' 设置文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 打开文件并读取内容
    fileNumber = FreeFile
    Open filePath For Input As fileNumber
    fileContent = Input$(LOF(fileNumber), fileNumber)
    Close fileNumber
    
    ' 处理文件内容，删除不需要的逗号
    newContent = Replace(fileContent, ",,", ",")
    
    ' 保存修改后的内容到文件
    fileNumber = FreeFile
    Open filePath For Output As fileNumber
    Print #fileNumber, newContent
    Close fileNumber
    
    MsgBox "已成功删除不需要的逗号！"
End Sub