*****************************
*程序名称: ZBHZ2PY.PRG
*功    能: 返回汉字串的拼音码
*调用方式: PYM=ZBHZ2PY(HZ,LEN)
*编    制: (2001.09.18)
*****************************
PARAMETERS TMP_HZ,TMP_SLEN
PRIVATE ALL LIKE TMP_*
IF PARAMETERS()=0
   RETURN ""
ENDIF
TMP_FLAG=.T.
IF PARAMETERS()=1
   TMP_FLAG=.F.
ENDIF
TMP_HZ=STRTRAN(TMP_HZ," ")
TMP_LEN=LEN(TMP_HZ)
TMP_NHZ=""
FOR TMP_I=1 TO TMP_LEN
    TMP_DZ=SUBSTR(TMP_HZ,TMP_I,1)
    IF ASC(TMP_DZ)>160
       TMP_NHZ=TMP_NHZ+TMP_DZ
    ENDIF
ENDFOR
TMP_HZ=TMP_NHZ
TMP_HZS=LEN(TMP_HZ)/2
TMP_PY=""
FOR TMP_I=1 TO TMP_HZS
    TMP_DZ=SUBSTR(TMP_HZ,(TMP_I-1)*2+1,2)
    TMP_PY=TMP_PY+ZBDZ2PY(TMP_DZ)
ENDFOR
IF TMP_FLAG
   TMP_PY=PADR(TMP_PY,TMP_SLEN,"*")
ENDIF
RETURN TMP_PY