access逐箇字符讀取文本文件

2018-03-12 08:34:00
黃善超
原創
979

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



效果如圖:

    分享