VBA入门到进阶常用知识代码总结52

第52集 Txt文件的读取
246、 读取txt文件内容方法
Input：从文件中读取指定数量的字符
Input #：把数据读出放在变量里，变量用逗号分隔
Line Input #：取出完整的一行
247、 Input函数读取
Input 函数只用于以 Input 或 Binary 方式打开的文件
Input 函数返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等
Sub d1()
On Error Resume Next
Dim f, mychar
f = ThisWorkbook.path & “/a.txt”
Open f For Input As #1
Do While Not EOF(1) ’ EOF:循环至文件尾，1：1号文件
mychar = Input(1, #1) ’ 1:读出1个字符,#1:1号文件。
Debug.Print mychar & “:” & Asc(mychar) ’ 显示到立即窗口并转化为ASCII码。
Loop
Close #1
End Sub

把文本文件的内容一次性取出来
Sub d2()
Dim f, mychar, n, L
f = ThisWorkbook.path & “/a.txt”
n = FreeFile '自动取得编号
Open f For Input As n
L = LOF(n) '取得文件的长度
mychar = Input(L - 6, n) '要减去中文字符的个数
Debug.Print mychar ’ 显示到立即窗口。
Close #1
End Sub
248、 Input #读取
Input 文件号