【vfp开源代码栏目提醒】:网学会员在vfp开源代码频道为大家收集整理了chrtopinyin.prg提供大家参考,希望对大家有所帮助!
LPARAMETER cString
LOCAL cPinyin,i,j,cTemp,cChr
cPinyin=""
SET COLLATE TO "PINYIN" &&设置当前排序方式为拼音方式
PYCode="八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗" &&从b开始每个拼音码的首字符
FOR i=1 TO LEN(cString)
IF ASC(SUBSTR(cString,i,1))>160 &&判断是否为汉字
cChr=SUBSTR(cString,i,2)
cTemp=""
FOR j=1 TO 26
IF SUBSTRC(cChr,1,1)<SUBSTRC(PYCode,j,1) &&进行汉字比较
cTemp=CHR(96+j) &&得到首位拼音码
EXIT
ENDIF
ENDFOR
cPinyin=cPinyin+UPPER(cTemp)
i=i+1
ELSE
cPinyin=cPinyin+UPPER(SUBSTR(cString,i,1))
ENDIF
ENDFOR
RETURN cPinyin
上一篇:
CHEXIAO.PRG
下一篇:
4种小菜缓解孕妈咪不适