过程功能:汉字转拼音首字*(visual foxpro)

******************************************************
*过程名称:hzpy
*过程功能:汉字转拼音首字
*调用方法:?hzpy('汉字拼音') 结果:HZPY
******************************************************PROCEDURE hzpy
PARAMETER HZstr
LOCAL PYstr,i,j,C,hz
PYstr=''
IF TYPE("_PYCode_")="U"
   PUBLIC _PBSTR_
  _PYCode_="吖八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗"
ENDIF
FOR  i=1 to len(HZstr)
   IF ASC(SUBSTR(HZstr,i,1))>160
       hz=SUBSTR(HZstr,i,2)
         C='Z'
           FOR j=1 TO 26
              IF  SUBSTRC(hz,1,1)<SUBSTRC(_PYCode_,j,1)
                C=CHR(95+j)
                EXIT
              ENDIF
           ENDFOR
       PYstr=PYstr+upper(C)
      i=i+1
   ELSE
       PYstr=PYstr+upper(SUBSTR(HZstr,i,1))
   ENDIF
ENDFOR
RETURN PYstr
ENDPROC