*********************************************************** ****
* Procedure Name: Hzpy
* Process function: Chinese characters turn the first word
* Call method:? Hzpy ('Chinese character pinyin "results: 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)
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
