access逐個(gè)字符讀取文本文件

access作為Office的組件且具備前臺(tái)后開發(fā)的功能，既可以和excel，word這些常用文本編輯工具交互，也可以與文本文件（TXT）讀寫

用access讀寫TXT文本方法是很多的，可以用API，函數(shù)， 數(shù)據(jù)流等等。

下面示例使用 Input 函數(shù)來逐個(gè)讀取文本文件中字符。

如在當(dāng)前目錄下有文本文件“text1.txt”,文件內(nèi)有文本“Office交流網(wǎng)”

在窗體中添加一個(gè)名為“讀取文件”的按鈕，按鈕的單擊事件詳細(xì)源碼：

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)    ' 循環(huán)至文件尾。
        str = Input(1, #1)    ' 讀入一個(gè)字符。
        Me.Text1 = Me.Text1 & vbNewLine & str   ' 在文本框中顯示
    Loop
    Close #1    ' 關(guān)閉文件。
    
    
End Sub

效果如圖：