求文本匹配写法！

yanghu

原码：012 123 234 345 456 678 035
匹配码:00 01 32 12 58 45 66

匹配条件：
1.匹配码如果两个一样（如00）那么原码三个数中只要有一个“0”就算匹配成功

2.匹配码如果两个不一样（如01）那么原码三个数字中必须包含0和1才算匹配成功

匹配不用考虑顺序 （如01和10 都匹配成 原码012这一类即可）

调试输出查看结果：如原码012 匹配到00 01 12

求大佬帮帮忙 晚上12点准时结贴



补充内容 (2021-1-21 18:44):
大佬们 “原码”和“匹配码” 只是两个名称而已 没别的特殊用意

welisis

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. .局部变量 原码, 文本型
   
7. .局部变量 匹配码, 文本型, , "0"
   
8. .局部变量 原码组, 文本型, , "0"
   
9. .局部变量 匹配, 文本型
   
10. .局部变量 i, 整数型
    
11. .局部变量 n, 整数型
    
12. .局部变量 逐字, 文本型, , "0"
    
13. .局部变量 m, 整数型
    
14. .局部变量 找到, 整数型
    
15. 
    
16. 原码 ＝ “012 123 234 345 456 678 035”
    
17. 匹配 ＝ “00 01 32 12 58 45 66”
    
18. 原码组 ＝ 分割文本 (原码, “ ”, )
    
19. 匹配码 ＝ 分割文本 (匹配, “ ”, )
    
20. .计次循环首 (取数组成员数 (原码组), i)
    
21.     编辑框1.加入文本 (“======” ＋ 到文本 (原码组 [i]) ＋ “======” ＋ #换行符)
    
22.     .计次循环首 (取数组成员数 (匹配码), n)
    
23.         文本_逐字分割 (匹配码 [n], 逐字)
    
24.         找到 ＝ 0
    
25.         .计次循环首 (取数组成员数 (逐字), m)
    
26.             .如果真 (寻找文本 (原码组 [i], 逐字 [m], , 假) ≠ -1)
    
27.                 找到 ＝ 找到 ＋ 1
    
28.             .如果真结束
    
29. 
    
30.         .计次循环尾 ()
    
31.         .如果真 (找到 ≥ 2)
    
32.             编辑框1.加入文本 (“匹配” ＋ 到文本 (匹配码 [n]) ＋ #换行符)
    
33.         .如果真结束
    
34. 
    
35.     .计次循环尾 ()
    
36. .计次循环尾 ()
    

复制代码