存儲過程 生成拼音碼與五筆碼

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

 

select dbo.sf_ShortCode('你好',0)