易语言将汉字转换为首字母

bugaosuni1314

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
初始文本	文本型
结果文本	文本型
次	整数型

' 编辑框2.内容 ＝ 取拼音 (编辑框1.内容, 1)'取汉字的首字母
' 编辑框2.内容 ＝ 到文本 (取代码 (编辑框1.内容, ))取汉字代码
初始文本 ＝ 编辑框1.内容
判断循环首 (取文本长度 (编辑框1.内容) ＞ 次)  ' 被比较值大于比较值时返回真，否则返回假，运算符号为"> 进入循环赋值
如果 (取代码 (初始文本, 1) ≥ 161 或 取代码 (初始文本, 1) ＜ 0)  ' 限制字符的范围
结果文本 ＝ 结果文本 ＋ 取文本左边 (取拼音 (初始文本, 1), 1)  ' 取出字母的
次 ＝ 次 ＋ 2  ' 字母的位置
结果文本 ＝ 结果文本 ＋ 取文本左边 (初始文本, 1)  ' 将字截取出来
次 ＝ 次 ＋ 1
初始文本 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 次)  ' 取文本长度减去对应的位置
判断循环尾 ()
编辑框2.内容 ＝ 到大写 (结果文本)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 初始文本, 文本型<br /> .局部变量 结果文本, 文本型<br /> .局部变量 次, 整数型<br /> <br /> ' 编辑框2.内容 ＝ 取拼音 (编辑框1.内容, 1)'取汉字的首字母<br /> ' 编辑框2.内容 ＝ 到文本 (取代码 (编辑框1.内容, ))取汉字代码<br /> 初始文本 ＝ 编辑框1.内容<br /> .判断循环首 (取文本长度 (编辑框1.内容) ＞ 次)  ' 被比较值大于比较值时返回真，否则返回假，运算符号为"> 进入循环赋值<br /> <br />     .如果 (取代码 (初始文本, 1) ≥ 161 或 取代码 (初始文本, 1) ＜ 0)  ' 限制字符的范围<br />         结果文本 ＝ 结果文本 ＋ 取文本左边 (取拼音 (初始文本, 1), 1)  ' 取出字母的<br />         次 ＝ 次 ＋ 2  ' 字母的位置<br />     .否则<br />         结果文本 ＝ 结果文本 ＋ 取文本左边 (初始文本, 1)  ' 将字截取出来<br />         次 ＝ 次 ＋ 1<br /> <br />     .如果结束<br />     初始文本 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 次)  ' 取文本长度减去对应的位置<br /> .判断循环尾 ()<br /> 编辑框2.内容 ＝ 到大写 (结果文本)

hhf4977

感谢分享

meiqingbo

感谢分享

皮皮君

被比较值大于比较值时返回真，否则返回假，运算符号为"> 进入循环赋值 写的详细的没边了/ai写的吗

阿白不爱吃菜

被比较值大于比较值时返回真，否则返回假，运算符号为"> 进入循环赋值
写的详细的没边了/ai写的吗

亿万

感谢分享

胖子葛格

感谢大神分享~！

renhe2018

很实用的功能

kyo9766

学习一下怎么转换，感谢分享

低调编程人

感谢分享