如何得到一个记事本文件的行数?
在未知文件行数时,用
Open App.Path & "\ " & FileName For Input As Line
读取文件的每一行,当LINE大于文本的实际行数时,就会出错;
如何解决!
[解决办法]
dim myStr
dim i as integer
open [file] for input as #1
do while not Eof(1)
line input #1, myStr
print myStr
i=i+1
loop
[解决办法]
查看vbcrlf的个数
[解决办法]
dim myStr
dim i as integer
open [file] for input as #1
do while not Eof(1)
line input #1, myStr
print myStr
i=i+1
loop
[解决办法]
先全部读出,再用split分割,如果文件特别大,可以考虑用 文本数据库 的方式打开文件
[解决办法]
关注