易语言 取汉字拼音

参考上一篇博客：https://blog.csdn.net/yixin8/article/details/104332830

 

根据代码得出：常用汉字为6725个。

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 wjh, 整数型
.局部变量 a, 文本型
.局部变量 b, 文本型, , "0"
.局部变量 b2, 文本型
.局部变量 c, 文本型
.局部变量 i, 整数型

wjh ＝ 打开文件 (“C:\Users\Desktop\中文.txt”, , )
调试输出 (wjh)
.判断循环首 (是否在文件尾 (wjh, ) ＝ 假)
    a ＝ 读入一行 (wjh)
    b ＝ 取所有发音 (a)
    .如果真 (取数组成员数 (b) ＞ 0)
        b2 ＝ “”
        .如果 (取数组成员数 (b) ＝ 1)
            c ＝ c ＋ a ＋ “----” ＋ b [1] ＋ #换行符
        .否则

            .计次循环首 (取数组成员数 (b), i)
                b2 ＝ b2 ＋ b [i] ＋ “,”
            .计次循环尾 ()
            c ＝ c ＋ a ＋ “----” ＋ b2 ＋ #换行符
        .如果结束

    .如果真结束

.判断循环尾 ()