程序代码：

*---PY.PRG
PARAMETER cHZCHR
LOCAL cPYCHR,i,j,C,HZ
cPYCHR= " "
*SET COLLATE TO "PINYIN "     &&设置当前排序方式为拼音方式
PYCode= "八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗 "   &&从b开始每个拼音码的首字符
FOR i=1 TO LEN(cHZCHR)
    IF ASC(SUBSTR(cHZCHR,i,1))> 160   &&判断是否为汉字
       HZ=SUBSTR(cHZCHR,i,2)
       C= " "
       FOR j=1 TO 26
           IF SUBSTRC(HZ,1,1) <SUBSTRC(PYCode,j,1)   &&进行汉字比较
              C=CHR(96+j)     &&得到首位拼音码
              EXIT
           ENDIF
       ENDFOR
       cPYCHR=cPYCHR+UPPER(C)
       i=i+1
    ELSE
       cPYCHR=cPYCHR+UPPER(SUBSTR(cHZCHR,i,1))
    ENDIF
ENDFOR
RETURN cPYCHR