易语言中文转拼音.doc

学习资料收集于网络，仅供参考.版本 2.程序集 窗口程序集1.子程序 自动取汉字声母2, 文本型.参数 文本, 文本型.局部变量 格式化文本, 文本型.局部变量 文字, 文本型.局部变量 temp, 文本型.局部变量 拼音, 文本型.局部变量 字节集, 字节集.局部变量 i, 整数型字节集 到字节集 (文本).计次循环首 (128, i) 字节集 子字节集替换 (字节集, 到字节集 (字符 (i), 到字节集 (“”), , ).计次循环尾 ()格式化文本 到文本 (字节集).计次循环首 (取文本长度 (格式化文本) 2, i) temp 取文本右边 (格式化文本, 取文本长度 (格式化文本) 2 (i 1) 文字 取文本左边 (temp, 2) 拼音 拼音 到小写 (取文本左边 (取拼音 (文字, 1), 1) 取文本右边 (取拼音 (文字, 1), 取文本长度 (取拼音 (文字, 1) 1).计次循环尾 ()返回 (拼音).子程序 自动取汉字声母, 文本型.参数 文本, 文本型.局部变量 格式化文本, 文本型.局部变量 文字, 文本型.局部变量 temp, 文本型.局部变量 拼音, 文本型.局部变量 字节集, 字节集.局部变量 i, 整数型字节集 到字节集 (文本).计次循环首 (128, i) 字节集 子字节集替换 (字节集, 到字节集 (字符 (i), 到字节集 (“”), , ).计次循环尾 ()格式化文本 到文本 (字节集).计次循环首 (取文本长度 (格式化文本) 2, i) temp 取文本右边 (格式化文本, 取文本长度 (格式化文本) 2 (i 1) 文字 取文本左边 (temp, 2) 拼音 拼音 到大写 (取文本左边 (取拼音 (文字, 1), 1) 取文本右边 (取拼音 (文字, 1), 取文本长度 (取拼音 (文字, 1) 1).计次循环尾 ()返回 (拼音).子程序 _按钮2_被单击.局部变量 分本组, 文本型, , 0.局部变量 i, 整数型.局部变量 temp, 文本型分本组 分割文本 (待转换编辑框.内容, #换行符, ).计次循环首 (取数组成员数 (分本组), i) temp temp 自动取汉字声母 (分本组 i) #换行符.计次循环尾 ()转换后编辑框.内容 temp置剪辑板文本 (temp).子程序 _按钮4_被单击待转换编辑框.内容 “请在这里粘贴要转换的汉字.”转换后编辑框.内容 “”待转换编辑框.获取焦点 ()待转换编辑框.被选择字符数 -1.子程序 _按钮3_被单击销毁 ().子程序 _按钮1_被单击.局部变量 分本组, 文本型, , 0.局部变量 i, 整数型.局部变量 temp, 文本型分本组 分割文本 (待转换编辑框.内容, #换行符, ).计次循环首 (取数组成员数 (分本组), i) temp temp 自动取汉字声母2 (分本组 i) #换行符.计次循环尾 ()转换后编辑框.内容 temp置剪辑板文本 (temp).子程序 _待转换编辑框_按下某键, 逻辑型.参数 键代码, 整数型.参数 功能键状态, 整数型.如果真 (功能键状态 #Alt键 且 键代码 #A键) 待转换编辑框.被选择字符数 -1.如果真结束.子程序 _转换后编辑框_按下某键, 逻辑型.参数 键代码, 整数型.参数 功能键状态, 整数型.如果真 (功能键状态 #Alt键 且 键代码 #A键) 转换后编辑框.被选择字符数 -1.如果真结束.子程序 _启动窗口_创建完毕待转换编辑框.获取焦点 ()待转换编辑框.