SQL Server 拼音简码获取

Create Function sf_ShortCode
(
  @Input nvarchar(4000), --输入的文字
  @Kind Int=0            --0:拼音;1:五笔
)
Returns nvarchar(10)
As
Begin
  declare @word nchar(1),@Retu nvarchar(10)
  declare @5A nvarchar(1000),@5B nvarchar(1000),@5C nvarchar(1000),
          @5D nvarchar(1000),@5E nvarchar(1000),@5F nvarchar(1000),
          @5G nvarchar(1000),@5H nvarchar(1000),@5I nvarchar(1000),
          @5J nvarchar(1000),@5K nvarchar(1000),@5L nvarchar(1000),
          @5M nvarchar(1000),@5N nvarchar(1000),@5O nvarchar(1000),
          @5P nvarchar(1000),@5Q nvarchar(1000),@5R nvarchar(1000),
          @5S nvarchar(1000),@5T nvarchar(1000),@5U nvarchar(1000),
          @5V nvarchar(1000),@5W nvarchar(1000),@5X nvarchar(1000),
          @5Y nvarchar(1000)
  if (@Kind<>0)
    Begin
      set @5A='工式匿葚慝萁苷甙芽戒苣荛节荫茸邛蒸菡荪茁芤菰萨芭茎蓣茅苔基莽蕻苊茇戎葫苦蓐萘葳荐葜茬藉藕菲匪若惹苈项蒇茂藏蕨其戡期斟綦勘甚斯蓁欺茏菜艿菔莩藐蒯苴散蕤藤荽芨革鞯鞴邯靶鞣芸芰甘薷鞑芏鞋葑鞲蒜鞘靼薹勒蕾贰鞅苇鞍荸鞠芜芫鞔莰鞫靳某著蓍鞒蔷鞭菱芙靴藿七荆匡莆菁芋廿艹蔫苤蕙蔌芾颟匚巧戈弋莱葬薤茉廾苹荚萋荑牙蘧芷苜菽苫颐赜熙臣卧邪鸦迓雅茈东茳蕖范菹薄萍蒲菠莎藻荡鸫蒎菏落藩汞茫蒗划蕞莫蓦墓幕暮募慕摹萌昔莳草菖蔓葛鹊蓝茧郾或葺蕺叵鄞堇勤惑觐匮蒉颧莒鹳萼莴功茵蒽蔑苗薯匣茄茴荔葸莲瞢甍薨萝鹋菌匦苏贡芟英苒茼匝萜苘苋黄芮巩跫蛩恐銎世苠艺芑巨蔚蔬葭忒薜贳蕊芯荬蓼苡荩蒌薮芝菪茔蔻莞蒙苎萱莹荥萤营劳荤茕菅荧莺菀蓥荦荣蓉蓿萦区芪苑葡茚藓蓟瓯荀敬苟茗擎檠警菟殴苞菊欧鸥萄葱蔸芴获茆莸荻艾匹萏芡芍茑鸢匠葩菝茱芹萆苛茜苯蘸葙蕈菥菘攻苌医荞翳蓬莠芊荇莛董翘薰尧蓰莉蓖薇蕃藜蘅莪萎莓蘩燕蒴莘薏蕲菩蔽蒂蒡蒋茭茨薪蒺蒹蔺切艽菇薅茛荨萧茹苕萸芄共苍蓊茯蔡荟茌苻葵荃莶蔹莜芥葆巷孽蘖恭薛茶荷荼荏莅蓓芬巫觋苁花蕉苓萑劐芩药荭芎荮莼蕴芗芘荜蒈芳蔗蓠茺苄蔼荠蓑蒿藁芒匾荒芦葶蘑蘼蔟莨萃菸蓄蕹'
      set @5B='陈子陬耶取陉聂颞聚鄹娶承隋隳随堕陌陇阴阻际孺陡阱陆阮陵卫耳隔陋阢陕耻陂蚩陟骘屮阽孙函丞卺隙逊阳陧隅隰职亟聩陨阵孟隈勐出祟聃聘粜了也卩阝凵孑孔耿辽院耽聍陀隐孢陶聊陷孤阪隍隗陴阿耵降聒阡隆陲阼孜联隧障陪聪隘限队附坠险阶除聆陛防孓孩陔'
      set @5C='戏颈骐弁刭劲迳驱骁巯邓骤预予驰豫矛骛鹜鹬瞀蝥蟊矜鍪柔婺双又垒叠颡桑骖驿骀骏驭骚参叁毵畚骑驮能驵甬勇恿通熊对圣怼骊骒台邰驯怠炱迨驶劝驷骡观骋马骣巴厶驼允驹驳驺欢鸡骝牟骠矣骄骆骢骈骥艰难驸验逡皴骅骓驻叉蚤骧驴骗骟骇'
      set @5D='左厮砑礴厝磺砸碟礞奁砹硗砌礤硭顾耷础厄友磉碜码雄大磊靥砺飙碱厦厌厣硕厉励魇套餍胡郁硼有髻髡髭鬟髯鬃鬓鹕髟髦鬏鬈髫鬣髹夺奔磕砝辰辱蜃唇硅奎矸奈夸刳匏砖瓠奢压三研硎砘古硬咸厨感礓碛戌厂石犬砰硖威碡丰在戛存破慧酆砉彗戚蹙砧艳夏契恝挈砂耢磲耔耙耨硝耕耘耩耒耥耖耦耜耧耗泵耪耠耱百厚非裴韭蜚辈悲翡斐厘碍砷奄鹌碣右夼历夯奋砗厍面碘碳碉硐布而耐鸸厕恧耍矶砚砜页矾成碾臧嘏尴虿趸劢盛迈尥砀万尤尢尬戊灰盔磷达碹碇碗牵砣克磔砥兢确砾爽砍矽鸪原斫愿碑厅硒厢碴奇剞欹帮邦寿焘砟硌硇砭硪故磁劂厥磙磋砬辜鹩碚碰磅碲肆厩碌春砼奉奏硷磴仄泰蠢秦舂雁赝礁碓龙龚聋砻垄砩砒袭太礅硫丈态碥戍矿碎'
      set @5E='肛腻胨腊膜朦服郛孕孚乳肥胫胎盈戤须肱胯腓腌腼腠胧肽朋貘脬貊月豺豳燹鹏豹豸邈貌肜貉貔貂貅豚肝肢脚肚虢肼膨臌腩肟脖朊爰肤肘且肫县悬脯膊腈胚膈助肺豕雎胰胩鼐胪膛胱尕胆刖胂腽腥肿腭臊脶肋胭胛腮爵胁肌腆股胴觅肭甩脲肠膦脒爱受脓脘腙腚逐腕舜膑胺腔膣胸胝脆朐胞脎肷遥胍腺鹞繇脾采彩膘腰膝用胀胜胙腹胳乃彡胶胼腾塍滕膳媵朕胖臆脱膀膪妥腿舀腱腴脸胗脍腧脞脂奚及脑脏脐膻肮肪脉胲臁腑腋臃'
      set @5F='载堪霰霸坩卉堰哉域戴贲堞栽截塔裁地邗支却动盍劫翅运魂埃去云城震垮埯霏坜雳需颥顸塬垅圾堋霾埒寺坛圭土封填埴卦款圬雩恚堵墙二垤博埔圩干十士寸雨坏坯埂垣塥垭坪直越墟趣坡趄矗赶址趔赴趟亍坫盐起赳垆赵趋趱走趑超真趁颠示霄霪霈未嫠墚求裘逑救进戟朝埋韩埘坦堤遘觏刊坤亓井墁塌埸乾翰斡吉颉袁埕圳露酃埚埙喜鼓彭鼙瞽嘉甏熹协雷塄南垌击垲垛献坝坍志堀韦霞韫违韬韧墀霹馨磬罄謦圮圯声场卖觌亏块坭专赤郝赧赫赭赦螫过勃孛鹁垸壹彀觳懿毂壳悫壶索坨无坻元顽堍鼋雹坞远均坎垢坂圻埤坼霜堙坷霖才孝教霆考埏者都翥煮雾垧圪老耋耆耄霉增丧幸垃境培啬墒霎雪垠埭埽霓夫替辇逵规埠堠赍麴堆零霍埝坶坳坟墩垴霁霭壤坑坊垓壕圹雯塘墉'
      set @5G='开邢琪形武琊鹉弄型刑瑾瑛璜珙屯珥顿到至郅臻致玛天瑚蚕吞顼忝琦珑表青瑗甫逋敷靓靛瑷静瑶琢于珐球盂玮迂玩五一琶王戋环瑟琴琵珏下琥璩玻正焉鄢玷丐忑璨政不甭歪邳丕否琐还珧孬理墼軎亘芈惠瑁丌更琨事吾囊蠹璐橐束整剌赖速敕卅噩副逼融鬲翮带吏豆豇豌豉逗画盏柬珈琏现曹遭瑞再珮刺棘枣珊璎玑责丙邴两璀丽郦鹂逦与珉琚欤瑕瓦来严亚戬垩晋恶璞灭赉琰琮珲琬琛列殛殆殂殍殖殪麸残歹裂虺烈殒殃殁殡殉殊歼聱骜獒鳌螯赘熬遨鏊殇敖殚兀殓殄餮死玖珠碧珀瑰末玎珂琳玫珩瓒珞璁麦平璋夹郏颊妻瑙珍玳瑜玢玲互纛毒素夷玉璃琉斑琼班璇琅瑭玟'
      set @5H='虎虐遽眶瞒虞瞄虏彪虑虚觑眍虍虔皮颇眙眸攴睃睚肯瞬睬睦歧瞌眭睹睛盹盱眄凸睐睫上止目丨卡矍氍瞿眦卜步叔督频颦瞠眺眇旧卓桌占战觇乩点卤卣鹾贞卢眠瞰鼎颅鸬瞩忐眯瞵瞎壑睿瞑眈餐粲瞻眵睁睥盯瞟睡瞅眨瞳睇眼瞍睨具齿龄龈龌龃龊龆龉龅龀龇龋瞪睽睑盼瞧睢此砦些赀觜柴雌紫訾眩'
      set @5I='江湛漭澌淇泔懑满漠灌潢汇泄渠渫涝潆滢沤鸿柒浇沏潇洪港池滠洱涵凼泐滁汉泾渗涌泽治滩浚汊尖湖洧涯溽沽沣滟尜淹沥湎源涛潦溱泷汰肖浮淝沮削逍淫滔溪汲涿法灞溘濡尘洼汗汁滇潮瀚洁澎澍污渎渤沅渚潜汪沌添清溥浦沔洹滞浯涑濑漱渍沛漕涞洌沫浅浃小滤滹波婆泪涉淑濒渺淖沾浈泸瀣濉水消淼淌洮沙裟鲨挲娑浊瀑沓涅汨汩温漫溻湿渴滥混灏澡涓溃潞浞渑漶涡渐涸洇渭溷涠泗淠洄涟泅漯没澧湍泱滑油洞溅汕测沿尚氅敞涔沁泯澉潺汛漏渥湄涮汜汤烫泌泼濯泥淡瀵学黉浓尝淙浣演泻渲淀泶渖溟党裳堂常赏掌棠浑沉觉涫沈鲎滨泞喾滓深溶沱光汹沟淆浠澹鼗淦渔泺洵浼涣泡耀逃辉淘泖潴漪兆汐溜泊湃派湟浜沂洙汽浙激洒漂湮酒汀湘潭渣河淅淋潸漤溧漆淞沐沭少洚沲活鋈沃洗浩省溴洎濞涎潲洛劣洫澳汔渊潘湫泛涤滗海洋溯滚湔泮泣润澜漾漳潼涧涪滴滂溢滋涕当溉津浔汝溲渌沼洳淄浸染梁粱涩兴沧脊举浍洽瀹渝潋澄濮滏涂溆汾湓浴沦淮泠雀誉涨泓沸溺潍注渡淳漓流鎏澈汴济浏沩澶沆沪泳漉瀛湾滦濠洲游浒漩濂浪溏液淬淤泫汶氵'
      set @5J='虹蜞蟒蚶螨蚜蜡蟆蜮蠛蟥蝶蠓蝾晓蛲暴蠖最蜢紧肾蛹坚蛏蚂贤蛑竖晨蛎蝴蝰蛄蚌晟螈昃蝽螓明蜉暖蛆盟暧时野墅昙里蠕蛙旰昧旱蟛蝻暑蚨量是蛭昊晴蜻晡旦旺韪题匙虾蟪晤蝠师螬蛱早冒刂蠼申勖曰畅虫晃蛸螳晁昌曝蛳晶日蝎蜴蜾蝇蜈蜗曙曼蛊蝈蛔螺遇蛐映蚺蜩蚰帅愚禺虮蚬蚋电暇虬遢曜昵显炅蝼晕暄螟暝晖蜿晏蛇晚昂蟾蟓煦冕易剔昴昀歇曷遏蝗蚯昕蛛蜱果颗螵晒蚵夥晰蜥杲昨蜂蛞蜘蚝蜓星戥曛蚱晷螅蜒蜊蝮晌虼蟋蟠蛾蝌晦临监鉴览暗蛘蜷蟮蜣昱蚪曦蝉蟑蜕螃蛟蝤归旯螋昭照蛤蚣暌蝓蚧蜍晔暹蛉晗昆曳蚓蚴蚍景暾螭蛀影颢晾蛴曩虻蝙蚁旷蝣蠊螂螗蟀蚊'
      set @5K='呀嘶喏嘞哐噶喵咂呓喋唠哎呕哓哄嗒嗬嚆啊嗫叩嗤咄吼戢吧邑嗓啜嗵吗吮哞唉唆叹顺呃喹咕喊嘎嗄嘁啡喱呖咴哒噘嘹唪嗪咙吠呔吸咀嚼嗳鹃啄叶喷吱嗑嚅哇吐嗔味嘲嘻嘭咭鄙喃哧噎嚏嗦呒哮嘟嗜呋嚯呈吨郢吴哺吁吓呸哽喇囔唔嗝嗽啧嘈号饕哑逞咧嗷唛咦嗉中距噱嘘躇唬跷蹀蹒躏蹑踊跆蹂跨跋踌蹰跖蹶啃蹊踩蹈趿趺跬践趼贵遣遗趾跛踔咔跳踏踢蹋踝躁盅躅跏跺蹦跚踹忠踞跽蹼躞踪蹿跎跑跪跞趵跌踬路跃踵鹭踟蹯躜跹跣踽足蹉踯蹲蹄蹭踣跤跟躐踺趴啮跄跗蹬嘴跸呲卟蹁踱踉躔跻踮蹴吵哨啵唢咣嗨虽嘬哩呻唱喁黾喝吕骂器嚣哭鄂鹗颚串患品口噪鼍咒另咽嗯喟嘿啭喂呷别咖叻员嗣郧喘嘣啁吊勋嘤叽哕哚呐剐呙呗叫叼喔噼唰嘱呢吣噗啖喽咪喧哝噻啶嘧咛喀咤嚓史兄唏噜唤咆呜哆吻啕唿吹鸣听唣呱嗥哌啪哳啤啦呆嘌哂叮喳呵啉噤呼噬吒唾咱嗅咋川咯响噢吃啾哦咚啼嗍咩嗟吖喑噫噌嘀咬唼嗌哪呶唧哏嗖啸叨只呛嗡咐哙啥哈喻噔喉嗲咻吩咿唑哗叭呤噙唯吟噍哟喙吲呦叱吡哔咝喈吆嘛哼唷唁哜嚷吭咏唳咳嚎嗾啷啐'
      set @5L='轼羁囝辄轻轰辍因轭固囿罟轱罪罨恩畸畴辏畎胃轩罢罴畦置辕罱转围黑默黩黪墨黥黯黠黝黜黔黟黢园团署圉车国囤轾畏圊辅圃罡罘畀辐圄辆四罩皿囗甲轳辊加辑驾回贺圆迦架哿轵袈男圜田勰嬲轴辋思辗轧罹辚边辖连畹罗轹蜀逻囫软鸭斩畈堑暂錾椠轶困町轲力轿略辂图轷畋较圈畔疃罾轨囡轺辎轫办轸畛输辁囚界轮囵囹累毗罚辙詈辘'
      set @5M='曲贼嵌岈岽崂嵘岖典邮凤岜峄贻殳峻央贿岩赈崖岸岵崴崦盎遄颛炭鸯崎骨髓骷崩胄髁髑骰髅髂髋髌鹘骶骺髀骼骱骸岌财岐冉峙巅赇周雕赎赌同赋岍赙屿崃夙贱峡由帱帏幅帻帖帔帧帽幔幌巾贴帜帼帆冂幄贝幞帕帙帐幡幢幛帷峭嵴则赐岿迥贶崭崮岬崽册岫凹删峒兕山岗岘岚罂婴鹦岂岷崛嵋剀凯觊屺赆赕嶙嵝迪崇贮崆风见购赡崤飓冈刚峋刿岣飚网飑峁岁峥飕贩凰嵬朵剁岢崾崧几账峰峤赂屹贬峨嵊巍败赠嵯嶂赔赚嵫罔内赊嵛嶝肉峪崔岭岑嶷凡崞丹彤赃嵩赅'
      set @5N='民展惬异羿惜懵屉怄懂愍殿臀慌敢孱慑屈屙憨怪惨怿怡悛居惰恹怙憾剧悱怖忧恢导愤层恸怯忮丑懦恃慎慰尉熨迅悖怃屠悻忖怀屋刁情怔恒司悟悚懒怦愫收眉戕奘爿胥遐疋蛋悼鹛惧疏悄屑尿惝恍犀慢悭悍悝怛愠惕惺憬避悒忡愦愕辟臂襞壁甓鐾擘檗劈嬖譬璧惭翼悃愣届惴怏惆恫刷恻恺惘忆巽忸己巳尸书局乙已忌乜快怩羽屡屎忱恽惋懈恂惚怕惶忻忾愧憷怵必怅悸发恬尾屐忏忤性怍屣虱愎属恪恤懊愀屦履悔改习屏羼买翌飞惮憧悦憎慊悌悯恨慨怊忉尻愉怆忪戮鹨恰惟戳怜翟憔尼惯怫屁心以恼惦忄忭尺惊昼咫懔忙迟尽慷慵翠悴'
      set @5O='煤炬炼烧烘粪籽烃糅糁粑类粝糊煳炻烦燎粗爝灶糯炜烤业邺炖精粳焐炳糟凿黻黹黼粘焯炒烛爆焊熳煜炽燥烟煨灿籼炯断糈熠炀炔烬炎郯剡火焱迷烷粽煊熔炮遴粼烯燃烁焕焰炊灼熘煌粕灯粞烽糙炸糗糌熄烙燠燔烀敉料烊燧烂粒糕焙熵焖糍娄煺数粉炝煅烩糇烨焓糨米炷炕炉煸煽燮粮糖糠粹炫灬'
      set @5P='宽宦寞字害宏寡宥宕宸割豁寄寮宠家宜农冢守宗寒骞褰塞蹇赛搴寨謇完寇冠定室宇宣富寅写宝寂宵审幂寓冥宴宫军郓寰皲宙冗官甯寐寤逭密蜜宓寥廴灾之宛剜冤鸩宾牢宁宋客宅宪额实褡衩裰褥衫衬褂褚襦袜裱补被衤裆宰袒褴褐裼裸裎裢袖衲袂裾褶褛袍裨褫襟襻袄衽袼袢褙裥初寝裉裙褪裕袱裣袷衿褓襁裤褊安宄案空窍穿窃窿突宿罕窦察窥窒窀窕窠窜窝穷帘窟窭穸窑窳窗窄窖窆穴窨邃究窘容窬穹窈鹤它社祺祁祷祓禊祜祖祛禧福祆祉祯礻祧神祝祸视冖祠礼祀辶祢祗祈祚祥禅禚禄宀禳'
      set @5Q='氏锘钳舛铘桀错镆昏钷锚钜钺铽铹铙镬氐邸鸱凶镊铒钌眢锰怨迎鸳锕色铎勾钯钗然危郄钹肴铕锛钴锲希郗钸欷铖铸镣镢詹钛角锊锾钥觫锄觥触觖觚钐觞斛觯解蟹邂针钍镇镭锗铐铑钱鲽鳓印鲰钝鲐鳋鱿鲅鲱鲔鲕鳜铺锖鳐匍鱼鲑鳍鲒鲼鲮鳕鲆鲭鲠鲡钙钲鲇鲈盥钚鲁鳗鲤鲣鲥鲳鳎鲲匐镉鳄鳃鲴鳏鲢鲷鳢鲺鳞铼鲩鲍鳇鳔鲧鳅鲦鳆稣鲜鳟鳝鲛铗鲟鲫鲻鲵鲋鲶鲸鳊鳙鲚鲂钰外铍钼钻钋乐销玺锁铴迩镗铫钞尔铛旬郇铿象锂钽锝刈钊镘龟锡锞锟名句锃钏钟铝锷劬锅铞免鸲勉逸够兔甸锢铟钿钾锶链锣镯镙负奂铀铜铡铅铠钢钠钡钒包饶馍馑馓饣饵饴锯馁钮饽乌邬馕饨饯镅蚀馒刨馄馈饥钆钇饲锔饧馔馆饮馏饱馋馅饭饩馇饿饫饪饰饷饬铋饼馐饺馊馀铌炙鬯镤锬镂钬锭镓夤镔铵镩镲镕铊多匈钩铯镥铄铭钨鑫金锪铩铆爻钧铮钦镏钓铁钣勿铂铢刎锦忽兜锨匆钉弑镖钵刹镡钶杀儿猎狨猫獾犯卯狲猛狁犸猱狻锋猢獠猗犹獗犭狙锈钎铥猿犴猪锆铤铣橥锸狂猜锤锺獭钅逛狭镍独狸猩狮猖猓铬狷狎猥猬猡猾狈勹狃猸夕锹逖狄狞狩狗狰獬狍狐锇猹猁獯狡獐獍狠卿犰猊猴狯猃猞狳狒狴猕狼狱猝狺犷匀锩钭镁锎镧锌镜锏镱锐锫镝钔镨镑铰锵铲镒锑争邹银刍键钕皱锼铷锱急锓煞雏欠锻铨铪镎镫锉铧锥铃飧镌钤镄镪锴久镀镦铳锍訇铱锿勺镶镐铈钪钫鹱袅鸟岛凫镳枭鸵灸卵孵镞镟镰贸锒镛留遛铉'
      set @5R='找拭皂撕撒扛措摸揠描拒揲拣捞抠挠拱搭搽报揶摄拯拙反拚抒揉掇搡掺捅择抬把返挨摊瓜搔瓞拓扼拔振捱拜捺皋翱挎撼排掩颀扰挞掎撩撅捧揍拢扔援捋拥授摇持技挂盾遁擀拮撷擂质抟挝抚拷扶撵攉后邱卮丘掭捕搏皇扌攮捂逅岳遑抹乒挟抨捷兵乓年掳摅卸披看扯攫掉牛拈扑爬爪朱邾捎撑搅挑抄泉挡提撮捍捏担抻揭揽拽扣揖挹捐捉操拐捌损押摁摆舞擐掴捆撂摞抽缸罐投揣帛罅制掣缶撄缺皑摧所抿搌气掘撖氢据氪氖扭握氰氩氘氲擗氚氤氙扎撰氮氨扬摺拨氕氡氧摒氯氛抉擢氟拟氦搂擞近迫皖揎挥摈拧按控撺擦挖探的换抵抑鬼魃魑魈魁魅魍魉撸拘挽搀抱掬揿掏掐挣欣捣折扳皈拍搋抓蜇哲踅逝掀魄白捭拆誓打揸手托拖括挢搬插郫鹎扦卑皓攒撬挺捶擤攥揪播皤斤拉拼搠搓掷拦拌抖撞掸揞掊摘撇扪皎撙搁接搛扫挪搜招抛殷拶捃执垫鸷絷蛰势贽热挚失抢拊拴揆捡揄拾搿迭扮掰挫抡扒拎擒携推捻批掾掼拇指拂拗搦揩扩摭撤拄掂斥掠挤攘擅搞抗护捩掮邀敫搪掖摔搐'
      set @5S='械栉棋榧椹柑杠框栋模槿横柜檬枢柩桡李椰椭权杼橘懋桶树柽杩杷梭杈枯柘橱楔槭枥顶椅梆橛棒楱椿榛栊杖极桴楹棚杉村鄄枝桂樗杜甄杆植樾标剽飘票柰瓢桔檑楠椟材楮栲栳樯棱本醋酣醛酏酸桎酉醐酤醢酞酹酝酵酐酎枉酽酾丁醵西杯醒桓醍梗醌梧酲楝柄槽酮醴配醑醪朽醚桠醭酡酌酗酩杌酊栈酢酷酪醺酰酶酥枰醅酚醮酴酯醉醇酿酬醣醯相椒棹桢想栌朴档梢桫樘桃桄杪榉查杳覃榻棵槛榄棍可楫杏枵榀哥歌枳楞柙枷椤机柚桐栅樱桤枫枧贾枘杨橄椐栩楣榍樨札杞杰粟楼棕楦棺枕槟柠桉榨檫榕榷柁构柢桅檐桷槲橹栎橡枸攀樊柳榴杓析板槔柏栀株棉槐皙檄柝林郴彬禁栖楂柯梵楚焚梦森木栗婪棼麓格枨桥栝橇杵桁梏梃棰柞榭楸覆梅枚样槎栏梓樟榈榜校榇樽梯要概根楗桕棣棂检枪松椴桧栓榆橙槌枞桦椎柃檎榫樵楷椽橼枇术椁梳桩槠柱椋榱檀檩杭柿槁枋核述榔'
      set @5T='长筇箕簸篚箬筐箧逄升笸筑簧簪乇彻筮季迤么径笆笃笞私知矩甜榘舌短舔箴逢夭籍乔徘刮智岙乱稽嵇适鸹舐敌筹矫憩矮矢辞矬雉笼矧秀舡艨稃艋租徂艚舻舟艄舯盘筋般磐舳舢船舰艉透舵舶舨徭舸舾艇舴艏艟稻艘舱舭航舫舣笈舷行丢壬竺街等待秆稹徒竿午篝千郜靠告秸鹄造德毛毪氇氆毡毳毯毽迁廷迕先赞选筠箸乖穑歃生垂笄箐竽征眚惩重穗筻衙籁簌熏甥策箦徕笺秣秤秉处算彼自篡纂臭乍怎迮片版牍牌牒牖徙衢昝咎鼻鼾齄劓鼽息延臬秒稍筲衍愆簿徜箔得香笪筛利犁梨稞复篮馥各和程种篑稆禹积雒务血篾备睾箅徊笳惫衄粤笾箩囱囟衅稷向秃役身射躺颓躯躲躬秧笛稠微筒徽徵币奥秽笕秘乞笥筷迄秋释番鄱翻釉悉簖愁篓管稼乏箢箜称稀衡衔徇笱移笏篼黎黧稳筝我物箍箝筢箨犄牯特犊牡循徨篁牾御篪犋笊穆筘鹅籀牺牧稗牲牿牦犍秩牝徼犏犒条笨箱簟篥秫笔笑篷筅竹笙攵笮筵丿篦夂秭笫禾彳科徉箭笠乎简箪螽税冬乘剩委很簋律箫笤逶魏笋答筏符筌签簦筱黍黏篌徐稚稔第篆胤每鳘繁毓敏系後秕筚入篱往汆穰稿篙彷篇簏籴簇稂'
      set @5U='并疳瓶疟冻瘼阈癀迸痨瘩闻疗疖瘾逆朔塑癃槊冯痉闯痛衮冶兖疤竣瘫瘙关差郑卷闳羟羧闫豢减着眷瘛头羊痱判阉羯疬羰羞羌翔疠疣送闼羝鲞拳叛桊鄯善券凑羚状誊养前疽翦煎剪痈毅遂阌瘃半阖兰闺痔壮阗癫斗闱痣闭凌装闰闩美靖症痞辣痦竦瘌癞痘盖阑病恙羔羹痖冽羲羡瘗姜凄冱痍癍站疲阒癯丫夔疵冰痧阔瘠间鄣彰音郸冁童单疸闽章阊瘟意竟竭韵歆赣戆韶部问瓿冲剖癌闾总况兑竞曾痼兽痹甑闸痂瘸阃瘰商疫端凋敝弊鳖瞥蹩憋疝瘿疯飒决癜阚翊瘕闷癖疡瘳普痰瘘帝啻旁交阍郊奖将癣浆阄痪疱桨酱效净阎次咨盗资瓷恣粢姿疚瘤瓣亲瘭尊奠猷酋遵遒闲疔疴鹇新凇疾痴瘢颜彦冼首痄馘道瘪痢阁疙疼痿产立阙痒瘥阐瘅瘴癔阅痫妆痕妾瘦兼鹣歉阋瘐闪阀疮疹瘵痊阕疥益蠲瘊痤准冷北邶背弟鹈剃递冀凝辫兹孳鹚慈六冫疰疒辛丬门闵凉凛闹闶阂辨辩阆瘁阏瘀痃'
      set @5V='毁媒姬舁嫫妪娆好媸她婀妈既暨即孥妤驽始努帑胬怒弩奴姑娠奶垦媛姐艮恳退嫒寻那妓娃奸聿建妹媾嬉妩孀姥嫱姨妍婧婊嫣嫩娅婕叟肀录隶肃剥逮嫦逯姚妙旭旮娌妲娼媪巢剿如邵邕娟召娱劭娲恕迢絮舅姻甾邋嫘妯娉姗刀妞彐媚婿妃巛娓鼠鼷鼯鼬鼢鼹妮姒灵巡嫁婶帚婉嫔姹婚娩舄妁鸠姝婢杂嫖九妖娇尹妊姓臼媳群郡君媲姊娥嫌姘婵嫜嫡姣娴嫉馗娣妇娜嫂女臾妗姆妣妨刃丸妫嬗妒忍婷嬷娘'
      set @5W='代偌仝垡伢借偃黛贷岱僭儆伛牮伐侥供袋他戗仓仔佴创公颂俑瓮翁侔俟俊傩仅估佐侑侉仨佰俳俺佑段优倚做俦僚傣俸伏仗仍俘佣会偾郐刽伎儒侍佳仁仕什值祭畲佘俅舍舒佶僖舆璺爨伟传佬佞付全倒侄癸傅倩俞愈毹逾觎伍剑佥敛便合龠命鸽盒凳颌翕使拿登歙龛僵俩债俪佤兮俨例傲侠个企佧倬侦候修倏悠攸俱仆偿俏倘傥佻氽介俚但伸倡偶偈倮保俣促仲侣侃堡煲佃偎儇伽儡仂仙倜佩侗俜侧仉催亿倔倨伺假僻阜追侯伲似伙偻侬伫倌傧倥佗你低爷仰爸儋釜您像佝侈爹斧偬父伯件侏傀俾佚休体仃何僳鸺傈作伥叙仫侨任仟仵赁凭恁亻俐伤傻仡途俄余斜佟倭侮八们倦佯伴位伞僮倍僧傍佼分颁健坌盆贫岔仇忿侵倪伊仞从人耸伧佾俎坐侩傺丛俭偷价谷鹆欲怂份众俗伦伶僬化仑倾华佛货仳偕信禽令邻领瓴翎依隽储隼隹住僦侪售伪伉仿偏今衾含贪颔念焦鹪劁停仪集食俯雠'
      set @5X='红绒绀缂练绁绕弛弭绌经弪纾缀绎绐弘顷绂毋绔缛缄弼绯缅绮绑缭级绷缓组蠡绶彖绥结纭疆缜缬贯续纬鸨绪绫纣线纯缚纡绠缰绩彝缙母彘引缈绰纱颍绡绱糸旨缇绅弗缦费艴缆绲强缉绢缋缱犟绳缲织细缳幼缌辔缧纲绸缨纳纪缗纽弓纠幻幺缪继缕粥鬻综绽绾缤缩约纸绝弥绚绉绵弧缴缥缃张绛颖疑肄缝乡绣纤绗缵缍绺络匕纥绦终飨弱缮绻绊弹缯缔绞缣缢绨绿缫绍缁纫纨给缎绘缏缑缒纷纵纶维比畿缘毕丝鸶毙绋幽毖皆纟纰纺缡统缠缟编纩弦纹'
      set @5Y='度试诫诺谌谋讧诓讶谟谨廑席谍讵庹庶鹧遮讴谮诬谎离郭诹享邝邡亨诎烹鹑敦憝熟塾孰充弃序袤谲育诵译诒诶庆诂诔诽齑庵斋诚诙庞衣谖诅裔谣哀诼计庋庄诗诖讦讲诘谳读讳庑诸讨斌请证语谏廒评让谑店卞讣就应鹫诮谠京刘廛齐剂谩谒课裹训吝误衰衷谴襄谔瓤识为谓亩库禀颤谡高亢设庙颃调讪市敲讥讽讷记邙戾扉户肩肓望讯诩词盲永昶鹿麝麈麟麂麋鏖麇麒启扈赢嬴蠃羸遍扁扃翩氓扇忘刻肇綮谧劾颏亥废戽亡妄廖谬雇诀房变弈孪奕蛮峦脔恋谈迹谜鸾銮挛栾亦娈弯这谊豪膏诨亮亭毫诧亳义底诋诡谵廨询谗庖诳诌谄诤诉诟诛庳亵订床谭诃麻魔麽靡磨縻麾糜摩放旗施话旖诱膂旅许诰庭诜旆诈诞谢旃旋讫旎族旌旄诿诲州旒说详庠谫谰斓谙谪谱谤谛谘谚谦廉谥良朗郎庸裒唐康诏庚庾赓谀认讼诊府腐诠谕褒庥夜於座膺卒鹰谶论讹谁谂谯率紊诣畜雍饔壅玄庀庇谐方主廓谆亠广文谅丶廪访讠谝庐该议廊谇'
    end
  set @Input=upper(@Input)
  set @Retu=''
  while len(@Input)>0 and len(@Retu)<10
    begin
      set @word=left(@Input,1)
      if (unicode(@word) between 19968 and 19968+20901)
         if (@kind=0)
           set @Retu=@retu+
               (select top 1 Code
                from (select 'A' as Code,N'驁' as word
                      union all select 'B',N'簿'
                      union all select 'C',N'錯'
                      union all select 'D',N'鵽'
                      union all select 'E',N'樲'
                      union all select 'F',N'鰒'
                      union all select 'G',N'腂'
                      union all select 'H',N'夻'
                      union all select 'J',N'攈'
                      union all select 'K',N'穒'
                      union all select 'L',N'鱳'
                      union all select 'M',N'旀'
                      union all select 'N',N'桛'
                      union all select 'O',N'漚'
                      union all select 'P',N'曝'
                      union all select 'Q',N'囕'
                      union all select 'R',N'鶸'
                      union all select 'S',N'蜶'
                      union all select 'T',N'籜'
                      union all select 'W',N'鶩'
                      union all select 'X',N'鑂'
                      union all select 'Y',N'韻'
                      union all select 'Z',N'咗') T
                where word>=@word
                collate Chinese_PRC_CS_AS_KS_WS
                order by Code ASC)
         else
           set @Retu=@retu+
               (case
                when Charindex(@word,@5A)>0 then 'A'
                when Charindex(@word,@5B)>0 then 'B'
                when Charindex(@word,@5C)>0 then 'C'
                when Charindex(@word,@5D)>0 then 'D'
                when Charindex(@word,@5E)>0 then 'E'
                when Charindex(@word,@5F)>0 then 'F'
                when Charindex(@word,@5G)>0 then 'G'
                when Charindex(@word,@5H)>0 then 'H'
                when Charindex(@word,@5I)>0 then 'I'
                when Charindex(@word,@5J)>0 then 'J'
                when Charindex(@word,@5K)>0 then 'K'
                when Charindex(@word,@5L)>0 then 'L'
                when Charindex(@word,@5M)>0 then 'M'
                when Charindex(@word,@5N)>0 then 'N'
                when Charindex(@word,@5O)>0 then 'O'
                when Charindex(@word,@5P)>0 then 'P'
                when Charindex(@word,@5Q)>0 then 'Q'
                when Charindex(@word,@5R)>0 then 'R'
                when Charindex(@word,@5S)>0 then 'S'
                when Charindex(@word,@5T)>0 then 'T'
                when Charindex(@word,@5U)>0 then 'U'
                when Charindex(@word,@5V)>0 then 'V'
                when Charindex(@word,@5W)>0 then 'W'
                when Charindex(@word,@5X)>0 then 'X'
                when Charindex(@word,@5Y)>0 then 'Y'
                else 'Z'
                end)
      else
        set @Retu=@Retu+
            (case
             when (Ascii(@word) between 65 and 90) or (Ascii(@word) between 48 and 57) then @word  --A~Z,0~9
             when Charindex(@word,'~!@#$%^&*()_+`{}[]|/:;<,>.?/') > 0 then @word                   --其他字母
             when Unicode(@word) between 8544 and 8544+8 then char(49+Unicode(@word)-8544)         --ⅠⅡⅢⅣⅤⅥⅦⅧⅨ
             when Unicode(@word) between 65313 and 65313+25 then char(65+Unicode(@word)-65313)     --Ａ～Ｚ
             when Unicode(@word) between 913 and 913+2 then char(65+Unicode(@word)-913)            --ΑΒΓ
             else ''
             end)
   set @Input=right(@Input,Len(@Input)-1)
 end
  return @Retu
end;
GO