Function pinyin(ByVal mystr As String, Optional types As Byte = 0) As String
Dim temp   As String, i As Long, j As Long, a, b
With CreateObject("Scripting.Dictionary")
.Add "a", "-20319"
.Add "ai", "-20317"
.Add "an", "-20304"
.Add "ang", "-20295"
.Add "ao", "-20292"
.Add "ba", "-20283"
.Add "bai", "-20265"
.Add "ban", "-20257"
.Add "bang", "-20242"
.Add "bao", "-20230"
.Add "bei", "-20051"
.Add "ben", "-20036"
.Add "beng", "-20032"
.Add "bi", "-20026"
.Add "bian", "-20002"
.Add "biao", "-19990"
.Add "bie", "-19986"
.Add "bin", "-19982"
.Add "bing", "-19976"
.Add "bo", "-19805"
.Add "bu", "-19784"
.Add "ca", "-19775"
.Add "cai", "-19774"
.Add "can", "-19763"
.Add "cang", "-19756"
.Add "cao", "-19751"
.Add "ce", "-19746"
.Add "ceng", "-19741"
.Add "cha", "-19739"
.Add "chai", "-19728"
.Add "chan", "-19725"
.Add "chang", "-19715"
.Add "chao", "-19540"
.Add "che", "-19531"
.Add "chen", "-19525"
.Add "cheng", "-19515"
.Add "chi", "-19500"
.Add "chong", "-19484"
.Add "chou", "-19479"
.Add "chu", "-19467"
.Add "chuai", "-19289"
.Add "chuan", "-19288"
.Add "chuang", "-19281"
.Add "chui", "-19275"
.Add "chun", "-19270"
.Add "chuo", "-19263"
.Add "ci", "-19261"
.Add "cong", "-19249"
.Add "cou", "-19243"
.Add "cu", "-19242"
.Add "cuan", "-19238"
.Add "cui", "-19235"
.Add "cun", "-19227"
.Add "cuo", "-19224"
.Add "da", "-19218"
.Add "dai", "-19212"
.Add "dan", "-19038"
.Add "dang", "-19023"
.Add "dao", "-19018"
.Add "de", "-19006"
.Add "deng", "-19003"
.Add "di", "-18996"
.Add "dian", "-18977"
.Add "diao", "-18961"
.Add "die", "-18952"
.Add "ding", "-18783"
.Add "diu", "-18774"
.Add "dong", "-18773"
.Add "dou", "-18763"
.Add "du", "-18756"
.Add "duan", "-18741"
.Add "dui", "-18735"
.Add "dun", "-18731"
.Add "duo", "-18722"
.Add "e", "-18710"
.Add "en", "-18697"
.Add "er", "-18696"
.Add "fa", "-18526"
.Add "fan", "-18518"
.Add "fang", "-18501"
.Add "fei", "-18490"
.Add "fen", "-18478"
.Add "feng", "-18463"
.Add "fo", "-18448"
.Add "fou", "-18447"
.Add "fu", "-18446"
.Add "ga", "-18239"
.Add "gai", "-18237"
.Add "gan", "-18231"
.Add "gang", "-18220"
.Add "gao", "-18211"
.Add "ge", "-18201"
.Add "gei", "-18184"
.Add "gen", "-18183"
.Add "geng", "-18181"
.Add "gong", "-18012"
.Add "gou", "-17997"
.Add "gu", "-17988"
.Add "gua", "-17970"
.Add "guai", "-17964"
.Add "guan", "-17961"
.Add "guang", "-17950"
.Add "gui", "-17947"
.Add "gun", "-17931"
.Add "guo", "-17928"
.Add "ha", "-17922"
.Add "hai", "-17759"
.Add "han", "-17752"
.Add "hang", "-17733"
.Add "hao", "-17730"
.Add "he", "-17721"
.Add "hei", "-17703"
.Add "hen", "-17701"
.Add "heng", "-17697"
.Add "hong", "-17692"
.Add "hou", "-17683"
.Add "hu", "-17676"
.Add "hua", "-17496"
.Add "huai", "-17487"
.Add "huan", "-17482"
.Add "huang", "-17468"
.Add "hui", "-17454"
.Add "hun", "-17433"
.Add "huo", "-17427"
.Add "ji", "-17417"
.Add "jia", "-17202"
.Add "jian", "-17185"
.Add "jiang", "-16983"
.Add "jiao", "-16970"
.Add "jie", "-16942"
.Add "jin", "-16915"
.Add "jing", "-16733"
.Add "jiong", "-16708"
.Add "jiu", "-16706"
.Add "ju", "-16689"
.Add "juan", "-16664"
.Add "jue", "-16657"
.Add "jun", "-16647"
.Add "ka", "-16474"
.Add "kai", "-16470"
.Add "kan", "-16465"
.Add "kang", "-16459"
.Add "kao", "-16452"
.Add "ke", "-16448"
.Add "ken", "-16433"
.Add "keng", "-16429"
.Add "kong", "-16427"
.Add "kou", "-16423"
.Add "ku", "-16419"
.Add "kua", "-16412"
.Add "kuai", "-16407"
.Add "kuan", "-16403"
.Add "kuang", "-16401"
.Add "kui", "-16393"
.Add "kun", "-16220"
.Add "kuo", "-16216"
.Add "la", "-16212"
.Add "lai", "-16205"
.Add "lan", "-16202"
.Add "lang", "-16187"
.Add "lao", "-16180"
.Add "le", "-16171"
.Add "lei", "-16169"
.Add "leng", "-16158"
.Add "li", "-16155"
.Add "lia", "-15959"
.Add "lian", "-15958"
.Add "liang", "-15944"
.Add "liao", "-15933"
.Add "lie", "-15920"
.Add "lin", "-15915"
.Add "ling", "-15903"
.Add "liu", "-15889"
.Add "long", "-15878"
.Add "lou", "-15707"
.Add "lu", "-15701"
.Add "lv", "-15681"
.Add "luan", "-15667"
.Add "lue", "-15661"
.Add "lun", "-15659"
.Add "luo", "-15652"
.Add "ma", "-15640"
.Add "mai", "-15631"
.Add "man", "-15625"
.Add "mang", "-15454"
.Add "mao", "-15448"
.Add "me", "-15436"
.Add "mei", "-15435"
.Add "men", "-15419"
.Add "meng", "-15416"
.Add "mi", "-15408"
.Add "mian", "-15394"
.Add "miao", "-15385"
.Add "mie", "-15377"
.Add "min", "-15375"
.Add "ming", "-15369"
.Add "miu", "-15363"
.Add "mo", "-15362"
.Add "mou", "-15183"
.Add "mu", "-15180"
.Add "na", "-15165"
.Add "nai", "-15158"
.Add "nan", "-15153"
.Add "nang", "-15150"
.Add "nao", "-15149"
.Add "ne", "-15144"
.Add "nei", "-15143"
.Add "nen", "-15141"
.Add "neng", "-15140"
.Add "ni", "-15139"
.Add "nian", "-15128"
.Add "niang", "-15121"
.Add "niao", "-15119"
.Add "nie", "-15117"
.Add "nin", "-15110"
.Add "ning", "-15109"
.Add "niu", "-14941"
.Add "nong", "-14937"
.Add "nu", "-14933"
.Add "nv", "-14930"
.Add "nuan", "-14929"
.Add "nue", "-14928"
.Add "nuo", "-14926"
.Add "o", "-14922"
.Add "ou", "-14921"
.Add "pa", "-14914"
.Add "pai", "-14908"
.Add "pan", "-14902"
.Add "pang", "-14894"
.Add "pao", "-14889"
.Add "pei", "-14882"
.Add "pen", "-14873"
.Add "peng", "-14871"
.Add "pi", "-14857"
.Add "pian", "-14678"
.Add "piao", "-14674"
.Add "pie", "-14670"
.Add "pin", "-14668"
.Add "ping", "-14663"
.Add "po", "-14654"
.Add "pu", "-14645"
.Add "qi", "-14630"
.Add "qia", "-14594"
.Add "qian", "-14429"
.Add "qiang", "-14407"
.Add "qiao", "-14399"
.Add "qie", "-14384"
.Add "qin", "-14379"
.Add "qing", "-14368"
.Add "qiong", "-14355"
.Add "qiu", "-14353"
.Add "qu", "-14345"
.Add "quan", "-14170"
.Add "que", "-14159"
.Add "qun", "-14151"
.Add "ran", "-14149"
.Add "rang", "-14145"
.Add "rao", "-14140"
.Add "re", "-14137"
.Add "ren", "-14135"
.Add "reng", "-14125"
.Add "ri", "-14123"
.Add "rong", "-14122"
.Add "rou", "-14112"
.Add "ru", "-14109"
.Add "ruan", "-14099"
.Add "rui", "-14097"
.Add "run", "-14094"
.Add "ruo", "-14092"
.Add "sa", "-14090"
.Add "sai", "-14087"
.Add "san", "-14083"
.Add "sang", "-13917"
.Add "sao", "-13914"
.Add "se", "-13910"
.Add "sen", "-13907"
.Add "seng", "-13906"
.Add "sha", "-13905"
.Add "shai", "-13896"
.Add "shan", "-13894"
.Add "shang", "-13878"
.Add "shao", "-13870"
.Add "she", "-13859"
.Add "shen", "-13847"
.Add "sheng", "-13831"
.Add "shi", "-13658"
.Add "shou", "-13611"
.Add "shu", "-13601"
.Add "shua", "-13406"
.Add "shuai", "-13404"
.Add "shuan", "-13400"
.Add "shuang", "-13398"
.Add "shui", "-13395"
.Add "shun", "-13391"
.Add "shuo", "-13387"
.Add "si", "-13383"
.Add "song", "-13367"
.Add "sou", "-13359"
.Add "su", "-13356"
.Add "suan", "-13343"
.Add "sui", "-13340"
.Add "sun", "-13329"
.Add "suo", "-13326"
.Add "ta", "-13318"
.Add "tai", "-13147"
.Add "tan", "-13138"
.Add "tang", "-13120"
.Add "tao", "-13107"
.Add "te", "-13096"
.Add "teng", "-13095"
.Add "ti", "-13091"
.Add "tian", "-13076"
.Add "tiao", "-13068"
.Add "tie", "-13063"
.Add "ting", "-13060"
.Add "tong", "-12888"
.Add "tou", "-12875"
.Add "tu", "-12871"
.Add "tuan", "-12860"
.Add "tui", "-12858"
.Add "tun", "-12852"
.Add "tuo", "-12849"
.Add "wa", "-12838"
.Add "wai", "-12831"
.Add "wan", "-12829"
.Add "wang", "-12812"
.Add "wei", "-12802"
.Add "wen", "-12607"
.Add "weng", "-12597"
.Add "wo", "-12594"
.Add "wu", "-12585"
.Add "xi", "-12556"
.Add "xia", "-12359"
.Add "xian", "-12346"
.Add "xiang", "-12320"
.Add "xiao", "-12300"
.Add "xie", "-12120"
.Add "xin", "-12099"
.Add "xing", "-12089"
.Add "xiong", "-12074"
.Add "xiu", "-12067"
.Add "xu", "-12058"
.Add "xuan", "-12039"
.Add "xue", "-11867"
.Add "xun", "-11861"
.Add "ya", "-11847"
.Add "yan", "-11831"
.Add "yang", "-11798"
.Add "yao", "-11781"
.Add "ye", "-11604"
.Add "yi", "-11589"
.Add "yin", "-11536"
.Add "ying", "-11358"
.Add "yo", "-11340"
.Add "yong", "-11339"
.Add "you", "-11324"
.Add "yu", "-11303"
.Add "yuan", "-11097"
.Add "yue", "-11077"
.Add "yun", "-11067"
.Add "za", "-11055"
.Add "zai", "-11052"
.Add "zan", "-11045"
.Add "zang", "-11041"
.Add "zao", "-11038"
.Add "ze", "-11024"
.Add "zei", "-11020"
.Add "zen", "-11019"
.Add "zeng", "-11018"
.Add "zha", "-11014"
.Add "zhai", "-10838"
.Add "zhan", "-10832"
.Add "zhang", "-10815"
.Add "zhao", "-10800"
.Add "zhe", "-10790"
.Add "zhen", "-10780"
.Add "zheng", "-10764"
.Add "zhi", "-10587"
.Add "zhong", "-10544"
.Add "zhou", "-10533"
.Add "zhu", "-10519"
.Add "zhua", "-10331"
.Add "zhuai", "-10329"
.Add "zhuan", "-10328"
.Add "zhuang", "-10322"
.Add "zhui", "-10315"
.Add "zhun", "-10309"
.Add "zhuo", "-10307"
.Add "zi", "-10296"
.Add "zong", "-10281"
.Add "zou", "-10274"
.Add "zu", "-10270"
.Add "zuan", "-10262"
.Add "zui", "-10260"
.Add "zun", "-10256"
.Add "zuo", "-10254"
a = .Keys
b = .Items
End With
For i = 1 To Len(mystr)
For j = UBound(a) - 1 To 0 Step -1
If Val(b(j)) <= Asc(Mid(mystr, i, 1)) Then Exit For
Next
temp = temp & IIf(types, UCase(Left(a(j), 1)), " " & a(j))
Next
pinyin = Trim(temp)
End Function

hanzi 全拼音 qu de的更多相关文章

  1. JS实现获取汉字首字母拼音、全拼音及混拼音的方法

    本文实例讲述了JS实现获取汉字首字母拼音.全拼音及混拼音的方法.分享给大家供大家参考,具体如下: 这里需要用到一个js获取汉字拼音的插件,可点击此处本站下载. 运行效果如下: 完整示例代码: ? 1 ...

  2. qu de hanzi 首字母

    Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As In ...

  3. 汉字转全拼音函数优化方案(SQLServer),值得你看看

    函数要求实现功能 select 函数名 ('你好,我是追索') 返回的结果(ni hao , wo shi zhui suo) 解决方案一: 解决方案一 /* 根据汉字获取全拼 1.生成所有读音临时表 ...

  4. c#获取文字全拼音

    class Program { /// <summary> /// 获得拼音 /// </summary> /// <param name="str_Spell ...

  5. 【转】SQLServer汉字转全拼音函数

    USE Test go IF OBJECT_ID('Fn_GetQuanPin','Fn') IS NOT NULL DROP FUNCTION fn_GetQuanPin go create fun ...

  6. oracle汉字转拼音(获得全拼/拼音首字母/拼音截取等)

        oracle汉字转拼音(获得全拼/拼音首字母/拼音截取等)   效果如下: Oracle 字符集 GBK 没有问题 , UTF -8 需要修改一下   Sql代码   --oracle汉字转拼 ...

  7. PHP的UTF-8中文转拼音处理类（性能已优化至极致）

    <?php /** * PHP 汉字转拼音 * @author Jerryli(hzjerry@gmail.com) * @version V0.20140715 * @package SPFW ...

  8. php 获取中文的拼音

    注意事项: 无法识别的中文 亳:bo,如果有此字,结果为空,调用此类之前需要手动加判断 蚌:bang,beng,多音字 莞:guan 圳:zhen 儋:dan 漯:luo 濮:pu 泸:lu 衢:qu ...

  9. 关于C++对汉字拼音的处理

    直到目前我没有找到比较合适的输入汉字输出拼音的函数,那么根据网上流传的几个源码进行了改编,写成了输入汉字输出拼音的函数.对于此函数不能说强大,但是至少稳定可用,输出结果还没有发现什么错误. 那么下面我 ...

随机推荐

  1. Python 输入输出 数据类型 变量

    python输入输出 数据类型 变量 输入输出 print()在Python3中是函数 >>>print('hello world') #print注意print前面不要有任何空格 ...

  2. tomcat假死现象（转）

    1.1 编写目的 为了方便大家以后发现进程假死的时候能够正常的分析并且第一时间保留现场快照. 1.2编写背景 最近服务器发现tomcat的应用会偶尔出现无法访问的情况.经过一段时间的观察最近又发现有台 ...

  3. Pomodoro APP

    2015.5.23 UITableView 的数据源刷新问题 本次发过来的版本五,实现了活动清单列表(AllEventsTableViewController).活动详情(AllEventsViewC ...

  4. js事件（事件冒泡与事件捕获）

    事件冒泡和事件捕获分别由微软和网景公司提出,这两个概念都是为了解决页面中事件流(事件发生顺序)的问题. <div id='aa' click='po'> <p id='bb' cli ...

  5. PAT 乙级 1041

    题目 题目地址:PAT 乙级 1041 题解 这道题学到的东西恰好和1037中学到的东西相互补充,总结如下: 在之前的博文中我曾提到过——“结构体在函数内部对数据的操作不能赋给主函数中的实参,函数内部 ...

  6. 【Java_基础】JVM内存模型与垃圾回收机制

    1. JVM内存模型 Java虚拟机在程序执行过程会把jvm的内存分为若干个不同的数据区域来管理,这些区域有自己的用途,以及创建和销毁时间. JVM内存模型如下图所示 1.1 程序计数器 程序计数器( ...

  7. 链式链表的C风格实现

    头文件: #ifndef _LINKLIST_H_ #define _LINKLIST_H_ typedef void LinkList; //将数据的类型分离,相当于句柄 //只是一个小节点 包含着 ...

  8. http过程

    当在浏览器里输入URL地址时,http的通讯过程: 1) 连接 DNS解析:URL——>DNS服务器(找到返回其ip,否则继续将DNS解析请求传给上级DNS服务器) Socket连接:通过IP和 ...

  9. 00031_ArrayList集合中常用的方法

    1.ArrayList集合提供的一些常用方法 import java.util.ArrayList; public class ArrayListDemo01 { public static void ...

  10. CodeBlocks "no such file or directory

    1但编译时还是会报错:no such file or directory;这是为什么呢?   :在项目/构建选项/搜索路径 选项下,点击添加按钮,添加自己的头文件的存放文件夹,搞定... 2.code ...