无聊的时候用易写的 谐音词生成器 之 笔画最少的

QAQ

调用了取汉字笔画模块，可能是易语言自带的，或者自行度娘搜索。

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. .局部变量 处理的文本, 字节集
   
9. .局部变量 汉字计数, 整数型
   
10. .局部变量 返回值, 文本型
    
11. 
    
12. 置随机数种子 ()
    
13. 
    
14. 处理的文本 ＝ 到字节集 (“测试字符串”)  ' 只能是汉字，不能有空格以及任何符号，对于取不到拼音的生僻字也可能会出错。
    
15. .变量循环首 (1, 取字节集长度 (处理的文本), 2, 汉字计数)
    
16.     返回值 ＝ 返回值 ＋ 拼音反查汉字 (取拼音 (到文本 (取字节集中间 (处理的文本, 汉字计数, 2)), 1), 真)
    
17. 
    
18. .变量循环尾 ()
    
19. 调试输出 (返回值)
    
20. 结束 ()
    
21. 
    
22. .子程序 拼音反查汉字, 文本型
    
23. .参数 拼音, 文本型
    
24. .参数 允许多音字, 逻辑型, 可空
    
25. .局部变量 汉字计数, 整数型
    
26. .局部变量 汉字, 文本型
    
27. .局部变量 出现的, 文本型, , "0"
    
28. .局部变量 笔画, 整数型
    
29. .局部变量 按笔画排序的汉字, 文本型, , "64"
    
30. .局部变量 发音数计数, 整数型
    
31. .局部变量 发音数目, 整数型
    
32. 
    
33. 
    
34. ' 检查同拼音的
    
35. .变量循环首 (1, 41803, 2, 汉字计数)
    
36.     汉字 ＝ 到文本 (取字节集中间 (#所有的汉字, 汉字计数, 2))
    
37.     .如果 (允许多音字 ＝ 真)
    
38.         发音数目 ＝ 取发音数目 (汉字)
    
39.     .否则
    
40.         发音数目 ＝ 1
    
41.     .如果结束
    
42.     .计次循环首 (发音数目, 发音数计数)
    
43.         .如果真 (取拼音 (汉字, 发音数计数) ＝ 拼音)
    
44.             加入成员 (出现的, 汉字)
    
45. 
    
46.         .如果真结束
    
47. 
    
48.     .计次循环尾 ()
    
49. .变量循环尾 ()
    
50. 
    
51. 调试输出 (出现的)
    
52. 
    
53. ' 寻找笔画最少的
    
54. .计次循环首 (取数组成员数 (出现的), 笔画)
    
55.     按笔画排序的汉字 [模块_取汉字笔画 (出现的 [笔画])] ＝ 出现的 [笔画]
    
56. .计次循环尾 ()
    
57. .计次循环首 (64, 笔画)
    
58.     .如果真 (按笔画排序的汉字 [笔画] ≠ “”)
    
59.         返回 (按笔画排序的汉字 [笔画])
    
60.     .如果真结束
    
61. 
    
62. .计次循环尾 ()
    
63. 
    
64. 
    
65. 返回 (“”)
    
66. 
    
67. 
    

复制代码

520

我来瞅瞅是神秘物质

demon

感谢分享。。。

Cute

66大顺

这又是什么梗

Kuni7wa

小萌 发表于 2017-9-3 13:32

这又是咋滴了

璁哄潧

Kuni7wa 发表于 2017-9-13 19:31
这又是咋滴了

应该没什么问题。

星期零

这是什么谐音。

地图

什么鬼了回复可见