这个用多了就习惯了，思想要多方位的

[e]
.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次
.局部变量 多少行

文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (文本数组), 计次)
.如果真 (文本数组 [计次] ≠ “”)
多少行 ＝ 多少行 ＋ 1
.如果真结束

.计次循环尾 ()
调试输出 (“除去空白的行，有：” ＋ 到文本 (多少行) ＋ “ 行”)

[/e]