删除编辑框内容

wxhscc

检测 编辑框 行内容小于20字符的 行都删除了

111111111111111111111111111155
222222222222222222222222222222
123

比如这3行
123没满足 20 字符 删掉

编辑框1=内容
编辑框2 = 结果

瑾色长安

这样是吧                 

鹏书

  

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

变量名	类 型	静态	数组	备 注
a	文本型		0
i	整数型

a ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框2.内容 ＝ “”
计次循环首 (取数组成员数 (a), i)
如果真 (取文本长度 (a [i]) ≥ 20)
编辑框2.加入文本 (a [i] ＋ #换行符 )

计次循环尾 ().版本 2

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

变量名	类 型	静态	数组	备 注
a	文本型		0
i	整数型

a ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框2.内容 ＝ “”
计次循环首 (取数组成员数 (a), i)
如果真 (取文本长度 (a [i]) ≥ 20)
编辑框2.加入文本 (a [i] ＋ #换行符 )

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮5_被单击<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> a ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 编辑框2.内容 ＝ “”<br /> .计次循环首 (取数组成员数 (a), i)<br />     .如果真 (取文本长度 (a <i>) ≥ 20)<br />         编辑框2.加入文本 (a <i> ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ().版本 2<br /> <br /> .子程序 _按钮5_被单击<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> a ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 编辑框2.内容 ＝ “”<br /> .计次循环首 (取数组成员数 (a), i)<br />     .如果真 (取文本长度 (a <i>) ≥ 20)<br />         编辑框2.加入文本 (a <i> ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

补充内容 (2022-4-20 11:58):
多黏贴了一次

mufu

111.e (900.37 KB, 下载次数: 2)

2022-4-20 11:58 上传

点击文件名下载附件

Ls60

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
局_计次	整数型

文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框2.内容 ＝ “”
计次循环首 (取数组成员数 (a), i)
如果真 (取文本长度 (文本 [局_计次]) ≥ 20)
编辑框2.加入文本 (文本 [局_计次] ＋ #换行符 )

计次循环尾 ()

子程序名	返回值类型	公开	备 注
GB_取字符大小	整数型		返回指定字节位置的字符的字节数，失败返回 -1
参数名	类 型	参考	可空	数组	备 注
文本	文本型
字节位置	整数型

变量名	类 型	静态	数组	备 注
buffer	字节集

如果真 (字节位置 ＞ 取文本长度 (文本) 且 字节位置 ≠ 0)
返回 (-1)

buffer ＝ 到字节集 (文本)
' 原理：GB2312 编码中，如果一个字符的第一个字节大于 161，那这个字符就占 2 个字节
如果真 (buffer [字节位置] ≥ 161)
如果真 (字节位置 ≠ 取字节集长度 (buffer) 且 buffer [字节位置 ＋ 1] ≥ 161)  ' 防止下标溢出
返回 (2)
返回 (2)
返回 (1)

子程序名	返回值类型	公开	备 注
GB_取文本长度	整数型		获取文本的字符个数（非字节个数）
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
buffer	字节集
i	整数型
字数	整数型
字符大小	整数型

如果真 (文本 ＝ “”)
返回 (0)

buffer ＝ 到字节集 (文本)
i ＝ 1
判断循环首 (i ≤ 取字节集长度 (buffer))
字符大小 ＝ GB_取字符大小 (文本, i)
字数 ＝ 字数 ＋ 1
i ＝ i ＋ 字符大小
判断循环尾 ()
返回 (字数)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> <br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 编辑框2.内容 ＝ “”<br /> .计次循环首 (取数组成员数 (a), i)<br />     .如果真 (取文本长度 (文本 [局_计次]) ≥ 20)<br />         编辑框2.加入文本 (文本 [局_计次] ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 GB_取字符大小, 整数型, , 返回指定字节位置的字符的字节数，失败返回 -1<br /> .参数 文本, 文本型<br /> .参数 字节位置, 整数型<br /> .局部变量 buffer, 字节集<br /> <br /> .如果真 (字节位置 ＞ 取文本长度 (文本) 且 字节位置 ≠ 0)<br />     返回 (-1)<br /> .如果真结束<br /> <br /> buffer ＝ 到字节集 (文本)<br /> <br /> ' 原理：GB2312 编码中，如果一个字符的第一个字节大于 161，那这个字符就占 2 个字节<br /> .如果真 (buffer [字节位置] ≥ 161)<br />     .如果真 (字节位置 ≠ 取字节集长度 (buffer) 且 buffer [字节位置 ＋ 1] ≥ 161)  ' 防止下标溢出<br />         返回 (2)<br />     .如果真结束<br />     返回 (2)<br /> .如果真结束<br /> 返回 (1)<br /> <br /> .子程序 GB_取文本长度, 整数型, , 获取文本的字符个数（非字节个数）<br /> .参数 文本, 文本型<br /> .局部变量 buffer, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 字数, 整数型<br /> .局部变量 字符大小, 整数型<br /> <br /> .如果真 (文本 ＝ “”)<br />     返回 (0)<br /> .如果真结束<br /> <br /> buffer ＝ 到字节集 (文本)<br /> i ＝ 1<br /> <br /> .判断循环首 (i ≤ 取字节集长度 (buffer))<br />     字符大小 ＝ GB_取字符大小 (文本, i)<br />     字数 ＝ 字数 ＋ 1<br />     i ＝ i ＋ 字符大小<br /> .判断循环尾 ()<br /> <br /> 返回 (字数)