access逐箇字符讀取文本文件
- 2018-03-12 08:34:00
- 黃善超 原創
- 1228
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
效果如圖:
文章分類
聯繫我們
聯繫人: | 王先生 |
---|---|
電話: | 13928102596 |
Email: | 18449932@qq.com |
QQ: | 18449932 |
微信: | 13928102596 |
微博: | officecn01 |