文档大不大?不大,按下面的方式读:
一次性读入内存。
如:
Open App.Path & "\表达式.txt" For Binary As #1
rs = StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1
去掉 Chr(13)
rs = Replace(rs, chr(13), "")
按 chr(10)分行
fj=split(rs,chr(10))
然后 fj() 这个数组得到的就是这个文本的每一行。
不需要特意去区分 chr(10) 和 chr(10)+chr(13) 的分行文件。