【原创】取某个或N个汉字的拼音简码

阿杰 · 发表于 2009-11-11 21:35:50

************************************** **函数名：hzsx **功  能：取某个或N个汉字的拼音简码 **整理人：吕志杰 **日  期: 2008年4月9日 **例  子：?hzsx("中华人民共和国") **************************************
FUNCTION hzsx(hz AS STRING)  PRIVATE II , JJ , FF，SM  II = 1  SM = ''  DO WHILE II <= LEN(ALLTRIM(hz))   IF  .NOT. ASC(SUBSTR(hz,II,2)) >= 122    SM = SM + SUBSTR(hz,II,1)    II = II + 1    LOOP   ENDIF   JJ = SUBSTR(hz,II,2)   DO CASE    CASE JJ >= '啊' AND JJ < '芭'     SM = SM + 'a'    CASE JJ >= '芭' AND JJ < '擦'     SM = SM + 'b'    CASE JJ >= '擦' AND JJ < '搭'     SM = SM + 'c'    CASE JJ >= '搭' AND JJ < '蛾'     SM = SM + 'd'    CASE JJ >= '蛾' AND JJ < '发'     SM = SM + 'e'    CASE JJ >= '发' AND JJ < '噶'     SM = SM + 'f'    CASE JJ >= '噶' AND JJ < '哈'     SM = SM + 'g'    CASE JJ >= '哈' AND JJ < '击'     SM = SM + 'h'    CASE JJ >= '击' AND JJ < '喀'     SM = SM + 'j'    CASE JJ >= '喀' AND JJ < '拉'     SM = SM + 'k'    CASE JJ >= '拉' AND JJ < '妈'     SM = SM + 'l'    CASE JJ >= '妈' AND JJ < '拿'     SM = SM + 'm'    CASE JJ >= '拿' AND JJ < '哦'     SM = SM + 'n'    CASE JJ >= '哦' AND JJ < '啪'     SM = SM + 'o'    CASE JJ >= '啪' AND JJ < '期'     SM = SM + 'p'    CASE JJ >= '期' AND JJ < '然'     SM = SM + 'q'    CASE JJ >= '然' AND JJ < '撒'     SM = SM + 'r'    CASE JJ > '撒' AND JJ < '塌'     SM = SM + 's'    CASE JJ >= '塌' AND JJ < '挖'     SM = SM + 't'    CASE JJ >= '挖' AND JJ < '昔'     SM = SM + 'w'    CASE JJ >= '昔' AND JJ < '压'     SM = SM + 'x'    CASE JJ >= '压' AND JJ < '匝'     SM = SM + 'y'    CASE JJ >= '匝'     SM = SM + 'z'   ENDCASE   II = II + 2  ENDDO  RETURN (SM) ENDFUNC

账号		自动登录	找回密码
密码			加入我们

[算法] 【原创】取某个或N个汉字的拼音简码

贡献奖

关注奖

人气王

精英奖

乐于助人勋章