易语言检测一段文本型字符串中是否包含多音字

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. .程序集变量 多音字表, 文本型, , "0"
   
7. 
   
8. .子程序 初始化
   
9. .局部变量 文本, 文本型
   
10. .局部变量 计数, 整数型
    
11. 
    
12. .变量循环首 (-32768, 32767, 1, 计数)
    
13.     文本 ＝ 到文本 (到字节集 (到短整数 (计数)))
    
14.     .如果真 (取发音数目 (文本) ＞ 1)
    
15.         加入成员 (多音字表, 文本)
    
16.     .如果真结束
    
17. 
    
18. .变量循环尾 ()
    
19. 
    
20. .子程序 __启动窗口_创建完毕
    
21. 
    
22. 初始化 ()
    
23. 调试输出 (是否包含多音字 (“啊啊啊”))
    
24. 调试输出 (是否包含多音字 (“六六六”))
    
25. 调试输出 (是否包含多音字 (“鹅鹅鹅”))
    
26. 调试输出 (是否包含多音字 (“长长长”))
    
27. 调试输出 (是否包含多音字 (“@@@123”))
    
28. 
    
29. 
    
30. 
    
31. 
    
32. 
    
33. 
    
34. .子程序 是否包含多音字, 逻辑型
    
35. .参数 文本, 文本型
    
36. .局部变量 计数, 整数型
    
37. 
    
38. 
    
39. 
    
40. .计次循环首 (取数组成员数 (多音字表), 计数)
    
41.     .如果真 (寻找文本 (文本, 多音字表 [计数], , 假) ≠ -1)
    
42.         返回 (真)
    
43.     .如果真结束
    
44. 
    
45. .计次循环尾 ()
    
46. 返回 (假)
    
47. 
    
48. 
    

复制代码

demon

帮顶吧。。

1心1亿

我也来顶

小莉今年7岁

顶顶顶顶