开发工具:
文件大小: 3kb
下载次数: 0
上传时间: 2006-02-23
详细说明： //*************************************************************************//* 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(& ;quot;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 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
