【文件属性】：
文件名称：pb拼音码程序
文件大小：3KB
文件格式：TXT
更新时间：2009-03-15 02:52:39
另类其它 控件 源码 资源
//*************************************************************************//* 1.程 序 名 称: f_pym_zh *//* 2.程序功能描述: 汉字字符串 -> 声母码 *//* 3.程序调用方式: f_pym_zh(as_stringparm,1) *//* 4.入口参数说明: as_stringparm :汉字字符串 *//* ai_dyz :是否考虑多音字 1考虑多音字，0不考虑多音字 *//* 5.出口参数数明: ls_rtnchar :声目码 *//* 6.引用与被引用: *//* 7.开发人；dolphin 版本号: Ver 1.00 **********************************************************************string ls_rtnchar,ls_word,ls_ssls_rtnchar=""long ll_iistring ls_wordpy[1]FOR ll_ii=1 TO len(trim(as_stringparm)) IF pos("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",mid(as_stringparm,ll_ii,1))<>0 then ls_rtnchar=ls_rtnchar+UPPER(mid(as_stringparm,ll_ii,1)) end if if ll_ii=161 AND ASC(mid(as_stringparm,ll_ii+1,1))>=161 then ls_word=mid(as_stringparm,ll_ii,2) ls_wordpy[1]=‘‘ if pos("行参调重长乐朝卡校传便会率降呆壳藏奇提弹强给恶",ls_word)<>0 and ai_dyz=1 then openwithparm(w_pym_sr,ls_word) ls_wordpy[1]=message.stringparm ls_rtnchar=ls_rtnchar+ls_wordpy[1] ll_ii=ll_ii+1 continue end if choose case ls_word CASE is<‘啊‘ ls_wordpy[1]=‘‘ CASE is<‘芭‘ ls_wordpy[1]=‘A‘ CASE is<‘擦‘ ls_wordpy[1]=‘B‘ CASE is<‘搭‘ ls_wordpy[1]=‘C‘ CASE is<‘蛾‘ ls_wordpy[1]=‘D‘ CASE is<‘发‘ ls_wordpy[1]=‘E‘ CASE is<‘噶‘ ls_wordpy[1]=‘F‘ CASE is<‘哈‘ ls_wordpy[1]=‘G‘ CASE is<‘击‘ ls_wordpy[1]=‘H‘ CASE is<‘喀‘ ls_wordpy[1]=‘J‘ CASE is<‘垃‘ ls_wordpy[1]=‘K‘ CASE is<‘妈‘ ls_wordpy[1]=‘L‘ CASE is<‘拿‘ ls_wordpy[1]=‘M‘ CASE is<‘欧‘ ls_wordpy[1]=‘N‘ CASE is<‘啪‘ ls_wordpy[1]=‘O‘ CASE is<‘期‘ ls_wordpy[1]=‘P‘ CASE is<‘然‘ ls_wordpy[1]=‘Q‘ CASE is<‘撒‘ ls_wordpy[1]=‘R‘ CASE is<‘塌‘ ls_wordpy[1]=‘S‘ CASE is<‘挖‘ ls_wordpy[1]=‘T‘ CASE is<‘西‘ ls_wordpy[1]=‘W‘ CASE is<‘压‘ ls_wordpy[1]=‘X‘ CASE is<‘匝‘ ls_wordpy[1]=‘Y‘ CASE is<‘做‘ ls_wordpy[1]=‘Z‘ CASE is>‘做‘ ls_wordpy[1]=‘‘ end choose ls_ss=ls_wordpy[1] ls_rtnchar=ls_rtnchar+ls_ss ll_ii=ll_ii+1 end if end ifnextreturn ls_rtnchar
