本例可实现即时的将文本框内的值转化为拼音,经调试,完全可用,在表单上建
两个 edit 控件,在edit2的 interactivechange 方法中写下
cpychr =''
set collate to ' pinyin '&设置排序方式为拼音
pycode ='八嚓婀发旮铃讥讥咔垃喝拿讴趴七呐仨他哇哇哇夕丫匝呢'
chzchr = this . value
for i = l 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 . editl . value = cpychr
thisform . refresh
联系客服