vb 文本行数,不计算空行

dim a() as string,i as integer,t as integer
a=split(text1.text,vbcrlf)
for i = 0 to ubound(a)
if len(trim(a(i))) <> 0 then
'如果只含空格的也算一行就把上面一行改为下面一行
'if len(a(i)) <> 0 then
t=t+1
end if
next
print "一共有"; t; "行"

文本文件??
可以在While 循环中用stream.ReadLine方法读取行。然后让计数器intCounter +=1

用ascii码制判断下~~是啦就不在计数上加一~~