vbs实现的汉字转拼音的函数
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| dd"wen",-12607 d.add"weng",-12597 d.add"wo",-12594 d.add"wu",-12585 d.add"xi",-12556 d.add"xia",-12359 d.add"xian",-12346 d.add"xiang",-12320 d.add"xiao",-12300 d.add"xie",-12120 d.add"xin",-12099 d.add"xing",-12089 d.add"xiong",-12074 d.add"xiu",-12067 d.add"xu",-12058 d.add"xuan",-12039 d.add"xue",-11867 d.add"xun",-11861 d.add"ya",-11847 d.add"yan",-11831 d.add"yang",-11798 d.add"yao",-11781 d.add"ye",-11604 d.add"yi",-11589 d.add"yin",-11536 d.add"ying",-11358 d.add"yo",-11340 d.add"yong",-11339 d.add"you",-11324 d.add"yu",-11303 d.add"yuan",-11097 d.add"yue",-11077 d.add"yun",-11067 d.add"za",-11055 d.add"zai",-11052 d.add"zan",-11045 d.add"zang",-11041 d.add"zao",-11038 d.add"ze",-11024 d.add"zei",-11020 d.add"zen",-11019 d.add"zeng",-11018 d.add"zha",-11014 d.add"zhai",-10838 d.add"zhan",-10832 d.add"zhang",-10815 d.add"zhao",-10800 d.add"zhe",-10790 d.add"zhen",-10780 d.add"zheng",-10764 d.add"zhi",-10587 d.add"zhong",-10544 d.add"zhou",-10533 d.add"zhu",-10519 d.add"zhua",-10331 d.add"zhuai",-10329 d.add"zhuan",-10328 d.add"zhuang",-10322 d.add"zhui",-10315 d.add"zhun",-10309 d.add"zhuo",-10307 d.add"zi",-10296 d.add"zong",-10281 d.add"zou",-10274 d.add"zu",-10270 d.add"zuan",-10262 d.add"zui",-10260 d.add"zun",-10256 d.add"zuo",-10254 functiong(num) ifnum>0andnum<160then g=chr(num) else ifnum<-20319ornum>-10247then g="" else a=d.Items b=d.keys fori=d.count-1to0step-1 ifa(i)<=numthenexitfor next g=b(i) endif endif endfunction functionc(str) c="" fori=1tolen(str) c=c&g(asc(mid(str,i,1))) next endfunction whileex<>"exit" ex=inputbox(c(ex),"字符转拼音",ex) wend |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbs实现的汉字转拼音的函数的所有评论
