精易论坛

标题: 汉字转换拼音 支持 中英 逗号 数字 混合 [打印本页]

作者: yppy988    时间: 2018-8-16 18:45
标题: 汉字转换拼音 支持 中英 逗号 数字 混合
本帖最后由 yppy988 于 2018-8-16 18:45 编辑

新手作品  大佬勿喷
  
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
字符数整数型 
分割字符文本型0
分割拼音文本型0
x整数型 
n整数型 
字符数 = 取文本长度 (到全角 (编辑框1.内容)) ÷ 2  ' 转换全部为中文字符 这样比较好处理
n = 1
计次循环首 (字符数, )  ' 逐字分割
加入成员 (分割字符, 取文本中间 (到全角 (编辑框1.内容), n, 2))
n = n + 2
计次循环尾 ()
计次循环首 (取数组成员数 (分割字符), x)  ' 还原原有的 半角字符
如果 (取文本长度 (到半角 (分割字符 [x])) = 1)
加入成员 (分割拼音, 到全角 (分割字符 [x]))
加入成员 (分割拼音, 取所有发音 (分割字符 [x]))

计次循环尾 ()
编辑框2.内容 = “”
计次循环首 (取数组成员数 (分割拼音), x)
编辑框2.加入文本 (分割拼音 [x]“ ”)
计次循环尾 ()

123.e

4.28 KB, 下载次数: 78, 下载积分: 精币 -2 枚


作者: 你呆哪哪凉块    时间: 2018-8-16 20:04
谢谢楼主分享
作者: 咱得有自己独特    时间: 2018-8-16 20:54
本帖最后由 咱得有自己独特 于 2018-8-16 21:35 编辑

感谢分享。改良了一下
  
子程序名返回值类型公开备 注
文本_到拼音文本型 
参数名类 型参考可空数组备 注
欲转换的文本文本型
变量名类 型静态数组备 注
分割字符文本型0
分割拼音文本型0
临时数组文本型0
count整数型 
l整数型 
temp文本型 
count = 文本_逐字分割 (欲转换的文本, 分割字符)
计次循环首 (count, l)
临时数组 = 取所有发音 (分割字符 [l])
如果 (取数组成员数 (临时数组) > 0)
加入成员 (分割拼音, 临时数组 [1])
加入成员 (分割拼音, 分割字符 [l])

计次循环尾 ()
计次循环首 (count, l)
temp = temp + 分割拼音 [l]“ ”
计次循环尾 ()
temp = 取文本左边 (temp, 取文本长度 (temp) - 1)
返回 (temp)




作者: yanzhaop    时间: 2018-8-17 09:22
为什么   女  这个字 是错误的   翻译过来 是 nu    求解!!
作者: 848022520    时间: 2018-8-18 23:54
厉害了厉害了,不看代码还真不会
作者: yppy988    时间: 2018-8-19 21:33
yanzhaop 发表于 2018-8-17 09:22
为什么   女  这个字 是错误的   翻译过来 是 nu    求解!!

V 代替的 ǚ
作者: 海洋玫瑰    时间: 2018-8-31 10:31
感谢大佬分享
作者: Breathless    时间: 2018-10-9 15:55
厉害了我的大神,出的不错
作者: 音乐屋    时间: 2018-12-29 21:53
好东东啊谢谢6666
作者: 音乐屋    时间: 2019-1-21 00:17
好东西下来看看
作者: wuxiaotong    时间: 2019-2-11 22:19
66666666666666666
作者: yoobaby    时间: 2019-3-24 01:43
#在这里快速回复#换全部为中文字符 这样比较好处理换全部为中文字符 这样比较好处理




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4