文本行数统计器：自动显示文本的行数

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; "行" 注释：统计时不统计空行