不存在文本 和 重复文本处理 求优化写法越简越好。

真冬

来源  不存在文本 和 重复文本处理 求优化写法越简越好。_精易论坛 (125.la)
回答太快了我跟不上了

  

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

' 1.依次向上处理重复文本保留上面的,删除下面的。
编辑框7.内容 ＝ 保留或删除重复文本 (编辑框2.内容, 编辑框1.内容, 真)
编辑框8.内容 ＝ 保留或删除重复文本 (编辑框3.内容, 编辑框2.内容 ＋ #换行符 ＋ 编辑框1.内容, 真)
编辑框9.内容 ＝ 保留或删除重复文本 (编辑框4.内容, 编辑框3.内容 ＋ #换行符 ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框1.内容, 真)
编辑框10.内容 ＝ 保留或删除重复文本 (编辑框5.内容, 编辑框4.内容 ＋ #换行符 ＋ 编辑框3.内容 ＋ #换行符 ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框1.内容, 真)
' 2.用上面四个编辑框的文本对比第五个编辑框文本不存在的话就删除。
编辑框6.内容 ＝ 保留或删除重复文本 (编辑框1.内容, 编辑框5.内容, 假)
编辑框7.内容 ＝ 保留或删除重复文本 (编辑框7.内容, 编辑框5.内容, 假)
编辑框8.内容 ＝ 保留或删除重复文本 (编辑框8.内容, 编辑框5.内容, 假)
编辑框9.内容 ＝ 保留或删除重复文本 (编辑框9.内容, 编辑框5.内容, 假)

子程序名	返回值类型	公开	备 注
保留或删除重复文本	文本型
参数名	类 型	参考	可空	数组	备 注
需要处理的文本	文本型
对比文本	文本型
是否删除重复	逻辑型

变量名	类 型	静态	数组	备 注
zz	正则表达式
a	文本型

a ＝ zz.替换 (需要处理的文本 ＋ #换行符 ＋ “-” ＋ #换行符 ＋ 对比文本, 选择 (是否删除重复, “”, “$0”), 1, , 是否删除重复, zz.创建 (“(\b[0-9]+\b)[^0-9-]*(?=[^-]+-[^-]+\1)”, ))
返回 (取文本左边 (a, 选择 (是否删除重复, 寻找文本 (a, “-”, , 假) － 1, 取文本长度 (a))))

i支持库列表	支持库注释
RegEx	正则表达式支持库

.版本 2<br /> .支持库 RegEx<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> ' 1.依次向上处理重复文本保留上面的,删除下面的。<br /> 编辑框7.内容 ＝ 保留或删除重复文本 (编辑框2.内容, 编辑框1.内容, 真)<br /> 编辑框8.内容 ＝ 保留或删除重复文本 (编辑框3.内容, 编辑框2.内容 ＋ #换行符 ＋ 编辑框1.内容, 真)<br /> 编辑框9.内容 ＝ 保留或删除重复文本 (编辑框4.内容, 编辑框3.内容 ＋ #换行符 ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框1.内容, 真)<br /> 编辑框10.内容 ＝ 保留或删除重复文本 (编辑框5.内容, 编辑框4.内容 ＋ #换行符 ＋ 编辑框3.内容 ＋ #换行符 ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框1.内容, 真)<br /> ' 2.用上面四个编辑框的文本对比第五个编辑框文本不存在的话就删除。<br /> 编辑框6.内容 ＝ 保留或删除重复文本 (编辑框1.内容, 编辑框5.内容, 假)<br /> 编辑框7.内容 ＝ 保留或删除重复文本 (编辑框7.内容, 编辑框5.内容, 假)<br /> 编辑框8.内容 ＝ 保留或删除重复文本 (编辑框8.内容, 编辑框5.内容, 假)<br /> 编辑框9.内容 ＝ 保留或删除重复文本 (编辑框9.内容, 编辑框5.内容, 假)<br /> <br /> .子程序 保留或删除重复文本, 文本型, 公开<br /> .参数 需要处理的文本, 文本型<br /> .参数 对比文本, 文本型<br /> .参数 是否删除重复, 逻辑型, 可空<br /> .局部变量 zz, 正则表达式<br /> .局部变量 a, 文本型<br /> <br /> a ＝ zz.替换 (需要处理的文本 ＋ #换行符 ＋ “-” ＋ #换行符 ＋ 对比文本, 选择 (是否删除重复, “”, “$0”), 1, , 是否删除重复, zz.创建 (“(\b[0-9]+\b)[^0-9-]*(?=[^-]+-[^-]+\1)”, ))<br /> 返回 (取文本左边 (a, 选择 (是否删除重复, 寻找文本 (a, “-”, , 假) － 1, 取文本长度 (a))))

[JavaScript] 纯文本查看 复制代码

.版本 2
.支持库 RegEx

.子程序 _按钮2_被单击

' 1.依次向上处理重复文本保留上面的,删除下面的。
编辑框7.内容 ＝ 保留或删除重复文本 (编辑框2.内容, 编辑框1.内容, 真)
编辑框8.内容 ＝ 保留或删除重复文本 (编辑框3.内容, 编辑框2.内容 ＋ #换行符 ＋ 编辑框1.内容, 真)
编辑框9.内容 ＝ 保留或删除重复文本 (编辑框4.内容, 编辑框3.内容 ＋ #换行符 ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框1.内容, 真)
编辑框10.内容 ＝ 保留或删除重复文本 (编辑框5.内容, 编辑框4.内容 ＋ #换行符 ＋ 编辑框3.内容 ＋ #换行符 ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框1.内容, 真)
' 2.用上面四个编辑框的文本对比第五个编辑框文本不存在的话就删除。
编辑框6.内容 ＝ 保留或删除重复文本 (编辑框1.内容, 编辑框5.内容, 假)
编辑框7.内容 ＝ 保留或删除重复文本 (编辑框7.内容, 编辑框5.内容, 假)
编辑框8.内容 ＝ 保留或删除重复文本 (编辑框8.内容, 编辑框5.内容, 假)
编辑框9.内容 ＝ 保留或删除重复文本 (编辑框9.内容, 编辑框5.内容, 假)

.子程序 保留或删除重复文本, 文本型, 公开
.参数 需要处理的文本, 文本型
.参数 对比文本, 文本型
.参数 是否删除重复, 逻辑型, 可空
.局部变量 zz, 正则表达式
.局部变量 a, 文本型

a ＝ zz.替换 (需要处理的文本 ＋ #换行符 ＋ “-” ＋ #换行符 ＋ 对比文本, 选择 (是否删除重复, “”, “$0”), 1, , 是否删除重复, zz.创建 (“(\b[0-9]+\b)[^0-9-]*(?=[^-]+-[^-]+\1)”, ))
返回 (取文本左边 (a, 选择 (是否删除重复, 寻找文本 (a, “-”, , 假) － 1, 取文本长度 (a))))

56tt

正则表达式，感谢分享，

singlecolor

谢谢大佬分享 支持支持

字小白

更简了些~~ 点赞 又学到新写法~