编辑框里面的文本，如果带有“图片”两字的就整行删除..

iXie5

如标题，这个功能应该有正则式比较容易处理还是分割文本？麻烦大神解答一下！最好有案例

Ruang

  

子程序名	返回值类型	公开	备 注
功能_文本关键词删除整行	文本型
参数名	类 型	参考	可空	数组	备 注
欲操作文本文本	文本型
关键词	文本型

变量名	类 型	静态	数组	备 注
每行文本	文本型		0
计次1	整数型
计次2	整数型
存在数组	整数型		0
返回文本	文本型

每行文本 ＝ 分割文本 (欲操作文本文本, #换行符, )  ' 分割文本
计次循环首 (取数组成员数 (每行文本), 计次1)  ' 逐行查找并记录
如果真 (寻找文本 (每行文本 [计次1], 关键词, , 假) ≠ -1)
加入成员 (存在数组, 计次1)

计次循环尾 ()
变量循环首 (取数组成员数 (每行文本), 1, -1, 计次1)  ' 删除关键词文本行
计次循环首 (取数组成员数 (存在数组), 计次2)
如果真 (计次1 ＝ 存在数组 [计次2])
删除成员 (每行文本, 计次1, 1)

计次循环尾 ()
变量循环尾 ()
计次循环首 (取数组成员数 (每行文本), 计次1)  ' 拼装文本
返回文本 ＝ 返回文本 ＋ 每行文本 [计次1] ＋ #换行符
计次循环尾 ()
返回 (返回文本)

.版本 2<br /> <br /> .子程序 功能_文本关键词删除整行, 文本型<br /> .参数 欲操作文本文本, 文本型<br /> .参数 关键词, 文本型<br /> .局部变量 每行文本, 文本型, , "0"<br /> .局部变量 计次1, 整数型<br /> .局部变量 计次2, 整数型<br /> .局部变量 存在数组, 整数型, , "0"<br /> .局部变量 返回文本, 文本型<br /> <br /> 每行文本 ＝ 分割文本 (欲操作文本文本, #换行符, )  ' 分割文本<br /> .计次循环首 (取数组成员数 (每行文本), 计次1)  ' 逐行查找并记录<br />     .如果真 (寻找文本 (每行文本 [计次1], 关键词, , 假) ≠ -1)<br />         加入成员 (存在数组, 计次1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .变量循环首 (取数组成员数 (每行文本), 1, -1, 计次1)  ' 删除关键词文本行<br />     .计次循环首 (取数组成员数 (存在数组), 计次2)<br />         .如果真 (计次1 ＝ 存在数组 [计次2])<br />             删除成员 (每行文本, 计次1, 1)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .变量循环尾 ()<br /> .计次循环首 (取数组成员数 (每行文本), 计次1)  ' 拼装文本<br />     返回文本 ＝ 返回文本 ＋ 每行文本 [计次1] ＋ #换行符<br /> .计次循环尾 ()<br /> 返回 (返回文本)

补充内容 (2025-7-8 21:37):
未调用模块的方式

精易论坛龙

这个不难，把每行分割放到数组，然后循环数组，如果数组某个元素含有指定字符，该行就清空，最后合并数组，重新赋给编辑框。

Ruang

  

子程序名	返回值类型	公开	备 注
功能_删除关键词文本行	文本型
参数名	类 型	参考	可空	数组	备 注
欲操作文本	文本型
关键词	文本型

变量名	类 型	静态	数组	备 注
每行文本	文本型		0
计次	整数型
存在数组	整数型		0
待返回文本	文本型

待返回文本 ＝ 欲操作文本
每行文本 ＝ 分割文本 (欲操作文本, #换行符, )  ' 分割文本
计次循环首 (取数组成员数 (每行文本), 计次)  ' 逐行查找并记录
如果真 (寻找文本 (每行文本 [计次], 关键词, , 假) ≠ -1)
加入成员 (存在数组, 计次)

计次循环尾 ()
变量循环首 (取数组成员数 (存在数组), 1, -1, 计次)  ' 删除关键词行
待返回文本 ＝ 文本_删除指定文本行 (待返回文本, 存在数组 [计次])
变量循环尾 ()
返回 (待返回文本)

.版本 2<br /> <br /> .子程序 功能_删除关键词文本行, 文本型<br /> .参数 欲操作文本, 文本型<br /> .参数 关键词, 文本型<br /> .局部变量 每行文本, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 存在数组, 整数型, , "0"<br /> .局部变量 待返回文本, 文本型<br /> <br /> 待返回文本 ＝ 欲操作文本<br /> 每行文本 ＝ 分割文本 (欲操作文本, #换行符, )  ' 分割文本<br /> .计次循环首 (取数组成员数 (每行文本), 计次)  ' 逐行查找并记录<br />     .如果真 (寻找文本 (每行文本 [计次], 关键词, , 假) ≠ -1)<br />         加入成员 (存在数组, 计次)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .变量循环首 (取数组成员数 (存在数组), 1, -1, 计次)  ' 删除关键词行<br />     待返回文本 ＝ 文本_删除指定文本行 (待返回文本, 存在数组 [计次])<br /> .变量循环尾 ()<br /> 返回 (待返回文本)

调用精易模块