学习日志 全民一起VBA提高篇 第十一回 文本文件逐行读取，输入输出操作自如

学习日志

全民一起VBA提高篇

第十一回 文本文件逐行读取，输入输出操作自如

相关知识点

    open fullfilename for input as #代号
    do while not eof(代号)
        line input #代号，字符串变量
    loop
    close #代号

    open fullfilename for output as #代号
    print #代号，内容
    close #代号

从txt写入excel

Sub readtext()
    Dim s As String, i&
    Open "C:\10.txt" For Input As #1
    i = 1
    Do While Not EOF(1)
        Line Input #1, s
            If Left(s, 2) = "天龙" Then
                Cells(i, 1) = s
                i = i + 1
            End If
    Loop
    Close #1
End Sub

从excel写入txt（覆盖）

Sub writetxt()
    Dim i&
    Open "C:\10-天龙八部.txt" For Output As #1
    
    For i = 1 To 3
        
            Print #1, Trim(Cells(i, 1)); "    "; Trim(Cells(i, 2))
        
    Next i
    
    Close #1
End Sub

从excel写入txt(追加)

Sub addtxt()
    Dim i&
    Open "C:\10-天龙八部.txt" For Append As #1
    
    For i = 1 To 3
        
            Print #1, Trim(Cells(i, 1)); "---"; Trim(Cells(i, 2))
        
    Next i
    
    Close #1

End Sub