vfp 汉字转换首拼音

本例可实现即时的将文本框内的值转化为拼音，经调试，完全可用，在表单上建

两个 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