VB中读入文件，如何获得文本的行数
展开全部
如果文本文件
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
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
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
