一个文本寻找逻辑问题

一刀破伤风

简陋点 能有效果就OK

汉族

写的有些绕 能不能看懂就是你的事了。截图也是核心代码  
分割文本后定义了二维数组方式

  

子程序名	返回值类型	公开	备 注
cha
参数名	类 型	参考	可空	数组	备 注
str	文本型
cstr	文本型

变量名	类 型	静态	数组	备 注
i	整数型
zd	逻辑型
tmp	文本型
lj	逻辑型

编辑框2.内容 ＝ “”
变量循环首 (取数组下标 (str, ), 1, -1, i)
' 调试输出 (str [i] [1], “-”)
如果 (取反 (zd))
如果真 (cstr ＝ str [i] [1])
zd ＝ 真
tmp ＝ str [i] [2]
lj ＝ 假

判断 (lj 且 zd)
如果 (str [i] [1] ＝ tmp)
tmp ＝ str [i] [1]
lj ＝ 真
到循环尾 ()

如果 (str [i] [1] ＝ tmp)
tmp ＝ str [i] [2]
lj ＝ 假
到循环尾 ()


如果真 (zd)
调试输出 (tmp)
编辑框2.加入文本 (tmp ＋ “,”)

变量循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 cha<br /> .参数 str, 文本型, 数组<br /> .参数 cstr, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 zd, 逻辑型<br /> .局部变量 tmp, 文本型<br /> .局部变量 lj, 逻辑型<br /> <br /> 编辑框2.内容 ＝ “”<br /> .变量循环首 (取数组下标 (str, ), 1, -1, i)<br />     ' 调试输出 (str <i> [1], “-”)<br />     .如果 (取反 (zd))<br />         .如果真 (cstr ＝ str <i> [1])<br />             zd ＝ 真<br />             tmp ＝ str <i> [2]<br />             lj ＝ 假<br />         .如果真结束<br /> <br />     .否则<br />         .判断开始 (lj 且 zd)<br />             .如果 (str <i> [1] ＝ tmp)<br />                 tmp ＝ str <i> [1]<br />                 lj ＝ 真<br />             .否则<br />                 到循环尾 ()<br />             .如果结束<br /> <br />         .默认<br />             .如果 (str <i> [1] ＝ tmp)<br />                 tmp ＝ str <i> [2]<br />                 lj ＝ 假<br />             .否则<br />                 到循环尾 ()<br />             .如果结束<br /> <br />         .判断结束<br /> <br />     .如果结束<br />     .如果真 (zd)<br />         调试输出 (tmp)<br />         编辑框2.加入文本 (tmp ＋ “,”)<br />     .如果真结束<br /> <br /> .变量循环尾 ()

汉族

当然也可以这样简化

  

子程序名	返回值类型	公开	备 注
cha1			汉族无聊编写
参数名	类 型	参考	可空	数组	备 注
str	文本型
cstr	文本型

变量名	类 型	静态	数组	备 注
i	整数型
zd	逻辑型
tmp	文本型
lj	逻辑型

编辑框2.内容 ＝ “”
tmp ＝ cstr
变量循环首 (取数组下标 (str, ), 1, -1, i)
如果 (str [i] [1] ＝ tmp)
tmp ＝ str [i] [2]
到循环尾 ()
调试输出 (tmp)
编辑框2.加入文本 (tmp ＋ “,”)
如果 (str [i] [1] ＝ tmp)
tmp ＝ str [i] [2]
lj ＝ 假
到循环尾 ()

变量循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 cha1, , , 汉族无聊编写  <br /> .参数 str, 文本型, 数组<br /> .参数 cstr, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 zd, 逻辑型<br /> .局部变量 tmp, 文本型<br /> .局部变量 lj, 逻辑型<br /> <br /> 编辑框2.内容 ＝ “”<br /> tmp ＝ cstr<br /> .变量循环首 (取数组下标 (str, ), 1, -1, i)<br />     .如果 (str <i> [1] ＝ tmp)<br />         tmp ＝ str <i> [2]<br />     .否则<br />         到循环尾 ()<br />     .如果结束<br />     调试输出 (tmp)<br />     编辑框2.加入文本 (tmp ＋ “,”)<br />     .如果 (str <i> [1] ＝ tmp)<br />         tmp ＝ str <i> [2]<br />         lj ＝ 假<br />     .否则<br />         到循环尾 ()<br />     .如果结束<br /> <br /> .变量循环尾 ()

补充内容 (2025-3-16 09:55):
这种思路是  一个查一个记