access逐个字符读取文本文件

access作为Office的组件且具备前台后开发的功能，既可以和excel，word这些常用文本编辑工具交互，也可以与文本文件（TXT）读写

用access读写TXT文本方法是很多的，可以用API，函数， 数据流等等。

下面示例使用 Input 函数来逐个读取文本文件中字符。

如在当前目录下有文本文件“text1.txt”,文件内有文本“Office交流网”

在窗体中添加一个名为“读取文件”的按钮，按钮的单击事件详细源码：

Private Sub 读取文件_Click()
    
    Dim strPath As String
    strPath = CurrentProject.Path & "\text1.txt"
    
    Dim str As String
    Open strPath For Input As #1    ' 打开文件。
    Do While Not EOF(1)    ' 循环至文件尾。
        str = Input(1, #1)    ' 读入一个字符。
        Me.Text1 = Me.Text1 & vbNewLine & str   ' 在文本框中显示
    Loop
    Close #1    ' 关闭文件。
    
    
End Sub

效果如图：