VBA 中的文本文件：打开查找替换另存为关闭文件

VBA中的文本文件：打开/查找替换/另存为/关闭文件

vba
Sub OpenTextFileExample()
    Dim filePath As String
    Dim fileNum As Integer
    Dim fileContent As String
    
    ' 定义文件路径
    filePath = "C:\example.txt"
    
    ' 打开文件
    fileNum = FreeFile
    Open filePath For Input As #fileNum
    
    ' 读取文件内容
    fileContent = Input$(LOF(fileNum), fileNum)
    
    ' 输出文件内容
    MsgBox fileContent
    
    ' 关闭文件
    Close #fileNum
End Sub

vba
Sub FindAndReplaceText()
    Dim filePath As String
    Dim fileNum As Integer
    Dim fileContent As String
    Dim newText As String
    
    ' 定义文件路径
    filePath = "C:\example.txt"
    
    ' 打开文件
    fileNum = FreeFile
    Open filePath For Input As #fileNum
    
    ' 读取文件内容
    fileContent = Input$(LOF(fileNum), fileNum)
    
    ' 查找和替换文本
    newText = Replace(fileContent, "old text", "new text")
    
    ' 关闭文件
    Close #fileNum
    
    ' 保存修改后的内容到新文件
    filePath = "C:\new_example.txt"
    fileNum = FreeFile
    Open filePath For Output As #fileNum
    Print #fileNum, newText
    Close #fileNum
End Sub

vba
Sub SaveAsTextFile()
    Dim filePath As String
    Dim fileNum As Integer
    Dim fileContent As String
    
    ' 定义文件路径
    filePath = "C:\new_example.txt"
    
    ' 定义文件内容
    fileContent = "This is the content of the new file."
    
    ' 打开文件
    fileNum = FreeFile
    Open filePath For Output As #fileNum
    
    ' 保存文件内容
    Print #fileNum, fileContent
    
    ' 关闭文件
    Close #fileNum
End Sub

vba
Sub CloseTextFile()
    Dim filePath As String
    Dim fileNum As Integer
    
    ' 定义文件路径
    filePath = "C:\example.txt"
    
    ' 打开文件
    fileNum = FreeFile
    Open filePath For Input As #fileNum
    
    ' 处理文件...
    
    ' 关闭文件
    Close #fileNum
End Sub