分割文本生成新文本 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
文本	文本型
数组	文本型		0
数	整数型
结果	文本型
数量	整数型

文本＝编辑框1.内容
数组＝分割文本 (文本, #换行符, )
删除成员 (数组, 1, ) ' 默认删除第一行
调试输出 (数组)
数量＝取数组成员数 (数组)

计次循环首 (数量, 数)

如果 (数组 [数] ≠ “”)

结果＝结果＋数组 [数] ＋ #换行符

结果＝结果＋ “1” ＋ #换行符

计次循环尾 ()

判断 (数量＜ 1 或数量＝ 1 且数组 [1] ＝ “” 或取文本右边 (文本, 2) ＝ #换行符 )

结果＝结果＋ “1”

结果＝取文本左边 (结果, 取文本长度 (结果) － 2)
编辑框2.内容＝结果
置剪辑板文本 (结果)

i支持库列表	支持库注释
spec	特殊功能支持库

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
行数	整数型
新文本	文本型
旧文本	文本型

行数＝到整数 (编辑框3.内容)
旧文本＝编辑框1.内容
新文本＝ “”
新文本＝子文本替换 (旧文本, “” ＋字符 (10) ＋字符 (13), #换行符＋ “1” ＋ #换行符, , , 真)
新文本＝文本_删除指定文本行 (新文本, 1)
新文本＝文本_删除空行 (新文本)
调试输出 (新文本)
编辑框2.内容＝新文本

i支持库列表	支持库注释
spec	特殊功能支持库

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
行数	整数型
新文本	文本型
原文本	文本型

行数＝到整数 (编辑框3.内容)
原文本＝编辑框1.内容
新文本＝ “”
新文本＝子文本替换 (原文本, “” ＋字符 (10) ＋字符 (13), #换行符＋ “1” ＋ #换行符, , , 真)
新文本＝文本_删除指定文本行 (新文本, 1)
新文本＝文本_删除空行 (新文本)
调试输出 (新文本)
编辑框2.内容＝新文本

i支持库列表	支持库注释
spec	特殊功能支持库