重组reassembly汉化:汉字转化为首位拼音码

来源:百度文库 编辑:九乡新闻网 时间:2024/04/18 22:40:36

汉字转化为首位拼音码

(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)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
thisform.refresh