本例可实现即时的将文本框内的值转化为拼音,经调试,完全可用,在表单上建 两个 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 |
|