VB中读入文件，如何获得文本的行数

Question

如题所述

Answer 1

如果文本文件
TXT
还未读取出来，可以用下面的：
dim
s
as
string,
i
as
integer
i
=
0open
TXT
for
input
as
#3
'此处TXT为全路径do
until
eof(1)line
input
#3,
si=i+1loopclose
#3上面的
i
就是
文本文件TXT的行数（包含空行）
如果已经将文本读取到一个textbox中了，使用下面的：
s=split(text1.text,vbcrlf)
i=ubound(s)+1