vba 读取txt加减乘除运算
读取txt文件内容方法：
∙input：从文件中读取指定数量的字符。
∙Input #：把数据读出放在变量里，变量用逗号分隔
∙Line Input #：取出完整的一行
搭配使用到的两个函数：
EOF(文件编号) 返回文本文件结尾。
LOF(文件编号) 判断文本文件的长度。
一、Input读取方式
Input 函数只用于以 Input 或 Binary 方式打开的文件，返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等。
例1：读取a.txt，返回每个字符及其Asc值。
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文件结尾
    mychar = Input(3, #1)                '读入一个字符
    Debug.Print mychar & ":" & Asc(mychar)'显示到立即窗口。
Loop                                      '按顺序读取，到下一个字符串，直至文件都读取完毕
Close #1
End Sub
运行结果
例2：把a.txt的内容一次性读取出来。
Sub d2()
Dim f, mychar, n, L
f = ThisWorkbook.path & "/a.txt"
n = FreeFile                '所有文本内容
Open f For Input As n
L = LOF(n)                  'LOF判断文本文件的长度（字节）
vba计算字符串长度

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。