分割文本生成新文本

jjj2016888

我想通过两个编辑框，一个是旧编辑框，一个是新编辑框。在旧的编辑框内输入文本数据，点击转化，生成新的文本数据到新的编辑框，并复制到剪切板内。
转化逻辑：
行数显示，例如10行
我原数据为11行，默认删除第一行。生成新的数据。
如果行为空，则自动添加1数字
旧数据如下：
以下信息为旧数据
2091029019
2091029020
2091029021

2091029023

2091029025
新数据：2091029019
2091029020
2091029021
1
2091029023
1
2091029025
具体可看源码

ningshunchu

  

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

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

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

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 行数, 整数型<br /> .局部变量 新文本, 文本型<br /> .局部变量 旧文本, 文本型<br /> <br /> 行数 ＝ 到整数 (编辑框3.内容)<br /> 旧文本 ＝ 编辑框1.内容<br /> 新文本 ＝ “”<br /> 新文本 ＝ 子文本替换 (旧文本, “” ＋ 字符 (10) ＋ 字符 (13), #换行符 ＋ “1” ＋ #换行符, , , 真)<br /> 新文本 ＝ 文本_删除指定文本行 (新文本, 1)<br /> 新文本 ＝ 文本_删除空行 (新文本)<br /> 调试输出 (新文本)<br /> 编辑框2.内容 ＝ 新文本

zainex

  

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

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

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

文本 ＝ 编辑框1.内容
数组 ＝ 分割文本 (文本, #换行符, )
删除成员 (数组, 1, )  ' 默认删除第一行
调试输出 (数组)
数量 ＝ 取数组成员数 (数组)
计次循环首 (数量, 数)
如果 (数组 [数] ≠ “”)
结果 ＝ 结果 ＋ 数组 [数] ＋ #换行符
结果 ＝ 结果 ＋ “1” ＋ #换行符

计次循环尾 ()
判断 (数量 ＜ 1 或 数量 ＝ 1 且 数组 [1] ＝ “” 或 取文本右边 (文本, 2) ＝ #换行符 )
结果 ＝ 结果 ＋ “1”
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 2)
编辑框2.内容 ＝ 结果
置剪辑板文本 (结果)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 数量, 整数型<br /> <br /> 文本 ＝ 编辑框1.内容<br /> 数组 ＝ 分割文本 (文本, #换行符, )<br /> 删除成员 (数组, 1, )  ' 默认删除第一行<br /> 调试输出 (数组)<br /> 数量 ＝ 取数组成员数 (数组)<br /> .计次循环首 (数量, 数)<br />     .如果 (数组 [数] ≠ “”)<br />         结果 ＝ 结果 ＋ 数组 [数] ＋ #换行符<br />     .否则<br />         结果 ＝ 结果 ＋ “1” ＋ #换行符<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .判断开始 (数量 ＜ 1 或 数量 ＝ 1 且 数组 [1] ＝ “” 或 取文本右边 (文本, 2) ＝ #换行符)<br />     结果 ＝ 结果 ＋ “1”<br /> .默认<br />     结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 2)<br /> .判断结束<br /> 编辑框2.内容 ＝ 结果<br /> 置剪辑板文本 (结果)

LHL1222

666666666666666666666

E小菜鸟

  

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

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

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

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 行数, 整数型<br /> .局部变量 新文本, 文本型<br /> .局部变量 原文本, 文本型<br /> <br /> 行数 ＝ 到整数 (编辑框3.内容)<br /> 原文本 ＝ 编辑框1.内容<br /> 新文本 ＝ “”<br /> 新文本 ＝ 子文本替换 (原文本, “” ＋ 字符 (10) ＋ 字符 (13), #换行符 ＋ “1” ＋ #换行符, , , 真)<br /> 新文本 ＝ 文本_删除指定文本行 (新文本, 1)<br /> 新文本 ＝ 文本_删除空行 (新文本)<br /> 调试输出 (新文本)<br /> 编辑框2.内容 ＝ 新文本