.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 文本组, 文本型, , "0"
.程序集变量 文本行, 整数型
.子程序 __启动窗口_创建完毕
编辑框1.是否允许多行 = 真
清除剪辑板 ()
文本行 = 0
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 = “”)
返回 ()
.如果真结束
文本组 = 分割文本 (编辑框1.内容, #换行符, )
文本行 = 文本行 + 1
.如果真 (文本行 > 取数组成员数 (文本组))
文本行 = 1
.如果真结束
置剪辑板文本 (文本组 [文本行])
输出调试文本 (取剪辑板文本 ())