qpy.prg

来自「用于餐厅管理以及各种人事」· PRG 代码 · 共 21 行

*取拼音函数
function qpy
    parameters mch  
    py=""  &&拼音初值为空
    do while len(alltrim(mch))<>0  &&查找拼音
        mch1=asc(substr(mch,1,1))  &&取首字符
        if mch1<=126      &&首字符为字母
            py=py+substr(mch,1,1)
            mch=alltrim(substr(mch,2,len(alltrim(mch))-1))  &&去除首字母
        else    &&查找字的拼音缩写
           zi=substr(mch,1,2)  &&取字
           if len(alltrim(mch))>=2
               mch=alltrim(substr(mch,3,len(alltrim(mch))-2))  &&去除首字
               sele 拼音
               loca for 汉字=zi  &&查找字
               py=alltrim(py)+拼音
           endif
      endif
  enddo
  return py
endfunc