VBA编辑文本文件的第三行

Sub EditTextFile()
    Dim filePath As String
    Dim fileContent As String
    Dim lines() As String
    
    ' 设置文件路径
    filePath = "C:\path\to\your\textfile.txt"
    
    ' 读取文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), #1)
    Close #1
    
    ' 将文件内容按行分割为数组
    lines = Split(fileContent, vbCrLf)
    
    ' 检查文件是否有至少三行
    If UBound(lines) >= 2 Then
        ' 修改第三行内容
        lines(2) = "This is the new content of the third line."
        
        ' 将修改后的内容重新组合为字符串
        fileContent = Join(lines, vbCrLf)
        
        ' 写入修改后的内容到文件
        Open filePath For Output As #1
        Print #1, fileContent
        Close #1
        
        MsgBox "第三行已成功编辑。"
    Else
        MsgBox "文件行数不足三行。"
    End If
End Sub