汉字转化为首位拼音码
汉字转化为首位拼音码
(2009-06-29 12:52:21)
转载
标签：
拼音码
edit
to
if
for
it
分类： vf学习
本例可实现即时的将文本框内的值转化为拼音，经调试，完全可用，在表单上建两个edit控件，在edit2的interactivechange方法中写下
cpychr=''
set collate to 'pinyin'&&设置排序方式为拼音
pycode='八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗'
chzchr=this.value
for i=1 to len(chzchr)
if asc(substr(chzchr,i,1))>160&&判断是否为汉字
hz=substr(chzchr,i,2)
c=''
for j=1 to 26 &&这个FOR循环很有意思
if substr(hz,1,2)<substrc(pycode,j,2)
c=chr(96+j)
字符串截取去掉第一位
j=27
endif
endfor
cpychr=cpychr+lower(c)
i=i+1&&改变I值来控制，第一次使用
else
cpychr=cpychr+lower(substr(chzchr,i,1))&&如果不是汉字，返回原来的码
endif
endfor
thisform.edit1.value=cpychr
fresh

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。