汉字转换拼音

查过

下个学习一下

year1970

感谢分享

ZHuanR

新技能已get√

君子慎独

哈哈 很有想法

police0909

  

窗口程序集名	保 留	保 留	备 注
两个取拼音函数
变量名	类 型	数组	备 注
全局_拼音表	表
全局_拼音二维数组	文本型	0

子程序名	返回值类型	公开	备 注
取拼音_数组_初始化			如果打包成模块, 将初始化代码,放入到 _启动子程序 即可   本函数只需要执行一次

变量名	类 型	静态	数组	备 注
拼音_数组	文本型		0
i	整数型
字符	文本型
字符_字节集	字节集

重定义数组 (全局_拼音二维数组, 假, 256, 256)
拼音_数组 ＝ 分割文本 ( #拼音字典, “,”, )
计次循环首 (取数组成员数 (拼音_数组), i)
字符 ＝ 取文本左边 (拼音_数组 [i], 2)
如果真 (取文本长度 (字符) ＝ 2)
字符_字节集 ＝ 到字节集 (字符)
全局_拼音二维数组 [字符_字节集 [1]] [字符_字节集 [2]] ＝ 取文本右边 (拼音_数组 [i], 取文本长度 (拼音_数组 [i]) － 2)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
取拼音_数组	文本型		本源码来自易语言资源网(www.eyuyan.la)
参数名	类 型	参考	可空	数组	备 注
文本	文本型				欲取拼音的文本
保留非汉字	逻辑型				默认假，不保留原文本里的符号和数字等非国标汉字字符；真则保留。
分隔符	文本型				默认用空格分割

变量名	类 型	静态	数组	备 注
bytes	字节集
bytesLen	整数型
i	整数型
result	文本型

如果真 (是否为空 (分隔符))
分隔符 ＝ “ ”
bytes ＝ 到字节集 (文本)
bytesLen ＝ 取字节集长度 (bytes)
i ＝ 1
判断循环首 (i ＜ bytesLen)
判断 (bytes [i] ＞ 128)  ' 中文
result ＝ result ＋ 全局_拼音二维数组 [bytes [i]] [bytes [i ＋ 1]] ＋ 分隔符
i ＝ i ＋ 2
判断 (bytes [i] ＝ 13 且 bytes [i ＋ 1] ＝ 10 且 保留非汉字)  ' 换行符 特殊处理
result ＝ result ＋ #换行符  ' 这里我就不加分隔符了, 各位大佬可以随心修改
i ＝ i ＋ 2
' ascii 不含13,10
如果真 (保留非汉字)
result ＝ result ＋ 字符 (bytes [i]) ＋ 分隔符
i ＝ i ＋ 1

判断循环尾 ()
如果真 (i ＝ bytesLen 且 保留非汉字)
result ＝ result ＋ 字符 (bytes [i])

返回 (删尾空 (result))

i支持库列表	支持库注释
EDataStructure	数据结构支持库

.版本 2<br /> .支持库 EDataStructure<br /> <br /> .程序集 两个取拼音函数<br /> .程序集变量 全局_拼音表, 表<br /> .程序集变量 全局_拼音二维数组, 文本型, , "0"<br /> <br /> .子程序 取拼音_数组_初始化, , , 如果打包成模块, 将初始化代码,放入到 _启动子程序 即可   本函数只需要执行一次<br /> .局部变量 拼音_数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 字符, 文本型<br /> .局部变量 字符_字节集, 字节集<br /> <br /> 重定义数组 (全局_拼音二维数组, 假, 256, 256)<br /> 拼音_数组 ＝ 分割文本 (#拼音字典, “,”, )<br /> .计次循环首 (取数组成员数 (拼音_数组), i)<br />     字符 ＝ 取文本左边 (拼音_数组 <i>, 2)<br />     .如果真 (取文本长度 (字符) ＝ 2)<br />         字符_字节集 ＝ 到字节集 (字符)<br />         全局_拼音二维数组 [字符_字节集 [1]] [字符_字节集 [2]] ＝ 取文本右边 (拼音_数组 <i>, 取文本长度 (拼音_数组 <i>) － 2)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 取拼音_数组, 文本型, 公开, 本源码来自易语言资源网(<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a>)<br /> .参数 文本, 文本型, , 欲取拼音的文本<br /> .参数 保留非汉字, 逻辑型, 可空, 默认假，不保留原文本里的符号和数字等非国标汉字字符；真则保留。<br /> .参数 分隔符, 文本型, 可空, 默认用空格分割<br /> .局部变量 bytes, 字节集<br /> .局部变量 bytesLen, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 result, 文本型<br /> <br /> .如果真 (是否为空 (分隔符))<br />     分隔符 ＝ “ ”<br /> .如果真结束<br /> bytes ＝ 到字节集 (文本)<br /> bytesLen ＝ 取字节集长度 (bytes)<br /> i ＝ 1<br /> .判断循环首 (i ＜ bytesLen)<br />     .判断开始 (bytes <i> ＞ 128)  ' 中文<br />         result ＝ result ＋ 全局_拼音二维数组 [bytes <i>] [bytes [i ＋ 1]] ＋ 分隔符<br />         i ＝ i ＋ 2<br />     .判断 (bytes <i> ＝ 13 且 bytes [i ＋ 1] ＝ 10 且 保留非汉字)  ' 换行符 特殊处理<br />         result ＝ result ＋ #换行符  ' 这里我就不加分隔符了, 各位大佬可以随心修改<br />         i ＝ i ＋ 2<br />     .默认<br />         ' ascii 不含13,10<br />         .如果真 (保留非汉字)<br />             result ＝ result ＋ 字符 (bytes <i>) ＋ 分隔符<br />         .如果真结束<br />         i ＝ i ＋ 1<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> .如果真 (i ＝ bytesLen 且 保留非汉字)<br />     result ＝ result ＋ 字符 (bytes <i>)<br /> .如果真结束<br /> <br /> 返回 (删尾空 (result))

kiss0459

汉字转换拼音

police0909

  

子程序名	返回值类型	公开	备 注
文本_取汉字拼音	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型

变量名	类 型	静态	数组	备 注
数组	文本型		0
i	整数型
新文本	文本型
拼音	文本型
数量	整数型

文本_逐字分割 (源文本, 数组)
数量 ＝ 取数组成员数 (数组)
计次循环首 (数量, i)
拼音 ＝ 取拼音 (数组 [i], 1)
判断 (数量 ＝ i)
新文本 ＝ 新文本 ＋ 到大写_汇编 (取文本左边_汇编 (拼音, 1)) ＋ 取文本右边_汇编 (拼音, 取文本长度_汇编 (拼音) － 1)
新文本 ＝ 新文本 ＋ 到大写_汇编 (取文本左边_汇编 (拼音, 1)) ＋ 取文本右边_汇编 (拼音, 取文本长度_汇编 (拼音) － 1) ＋ “ ”

计次循环尾 ()
返回 (新文本)

.版本 2<br /> <br /> .子程序 文本_取汉字拼音, 文本型<br /> .参数 源文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 新文本, 文本型<br /> .局部变量 拼音, 文本型<br /> .局部变量 数量, 整数型<br /> <br /> 文本_逐字分割 (源文本, 数组)<br /> 数量 ＝ 取数组成员数 (数组)<br /> .计次循环首 (数量, i)<br />     拼音 ＝ 取拼音 (数组 <i>, 1)<br />     .判断开始 (数量 ＝ i)<br />         新文本 ＝ 新文本 ＋ 到大写_汇编 (取文本左边_汇编 (拼音, 1)) ＋ 取文本右边_汇编 (拼音, 取文本长度_汇编 (拼音) － 1)<br />     .默认<br />         新文本 ＝ 新文本 ＋ 到大写_汇编 (取文本左边_汇编 (拼音, 1)) ＋ 取文本右边_汇编 (拼音, 取文本长度_汇编 (拼音) － 1) ＋ “ ”<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (新文本)