1、轉成拼音首字母（這個很多我也是網上覆制使用的）
CREATE OR REPLACE FUNCTION F_TRANS_PINYIN_CAPITAL(P_NAME IN VARCHAR2) RETURN VARCHAR2 AS
V_COMPARE VARCHAR2(100);
V_RETURN VARCHAR2(4000);
FUNCTION F_NLSSORT(P_WORD IN VARCHAR2) RETURN VARCHAR2 AS
BEGIN
RETURN NLSSORT(P_WORD, 'NLS_SORT=SCHINESE_PINYIN_M');
END;
BEGIN
FOR I IN 1..LENGTH(P_NAME) LOOP
V_COMPARE := F_NLSSORT(SUBSTR(P_NAME, I, 1));
IF V_COMPARE >= F_NLSSORT(' 吖 ') AND V_COMPARE <= F_NLSSORT('驁 ') THEN
V_RETURN := V_RETURN || 'a';
ELSIF V_COMPARE >= F_NLSSORT('八 ') AND V_COMPARE <= F_NLSSORT('簿 ') THEN
V_RETURN := V_RETURN || 'b';
ELSIF V_COMPARE >= F_NLSSORT('嚓 ') AND V_COMPARE <= F_NLSSORT('錯 ') THEN
V_RETURN := V_RETURN || 'c';
ELSIF V_COMPARE >= F_NLSSORT('咑 ') AND V_COMPARE <= F_NLSSORT('鵽 ') THEN
V_RETURN := V_RETURN || 'd';
ELSIF V_COMPARE >= F_NLSSORT('妸 ') AND V_COMPARE <= F_NLSSORT('樲 ') THEN
V_RETURN := V_RETURN || 'e';
ELSIF V_COMPARE >= F_NLSSORT('發 ') AND V_COMPARE <= F_NLSSORT('猤 ') THEN
V_RETURN := V_RETURN || 'f';
ELSIF V_COMPARE >= F_NLSSORT('旮 ') AND V_COMPARE <= F_NLSSORT('腂 ') THEN
V_RETURN := V_RETURN || 'g';
ELSIF V_COMPARE >= F_NLSSORT('妎 ') AND V_COMPARE <= F_NLSSORT('夻 ') THEN
V_RETURN := V_RETURN || 'h';
ELSIF V_COMPARE >= F_NLSSORT('丌 ') AND V_COMPARE <= F_NLSSORT('攈 ') THEN
V_RETURN := V_RETURN || 'j';
ELSIF V_COMPARE >= F_NLSSORT('咔 ') AND V_COMPARE <= F_NLSSORT('穒 ') THEN
V_RETURN := V_RETURN || 'k';
ELSIF V_COMPARE >= F_NLSSORT('垃 ') AND V_COMPARE <= F_NLSSORT('擽 ') THEN
V_RETURN := V_RETURN || 'l';
ELSIF V_COMPARE >= F_NLSSORT('嘸 ') AND V_COMPARE <= F_NLSSORT('椧 ') THEN
V_RETURN := V_RETURN || 'm';
ELSIF V_COMPARE >= F_NLSSORT('拏 ') AND V_COMPARE <= F_NLSSORT('瘧 ') THEN
V_RETURN := V_RETURN || 'n';
ELSIF V_COMPARE >= F_NLSSORT('筽 ') AND V_COMPARE <= F_NLSSORT('漚 ') THEN
V_RETURN := V_RETURN || 'o';
ELSIF V_COMPARE >= F_NLSSORT('妑 ') AND V_COMPARE <= F_NLSSORT('曝 ') THEN
V_RETURN := V_RETURN || 'p';
ELSIF V_COMPARE >= F_NLSSORT('七 ') AND V_COMPARE <= F_NLSSORT('裠 ') THEN
V_RETURN := V_RETURN || 'q';
ELSIF V_COMPARE >= F_NLSSORT('亽 ') AND V_COMPARE <= F_NLSSORT('鶸 ') THEN
V_RETURN := V_RETURN || 'r';
ELSIF V_COMPARE >= F_NLSSORT('仨 ') AND V_COMPARE <= F_NLSSORT('蜶 ') THEN
V_RETURN := V_RETURN || 's';
ELSIF V_COMPARE >= F_NLSSORT('侤 ') AND V_COMPARE <= F_NLSSORT('籜 ') THEN
V_RETURN := V_RETURN || 't';
ELSIF V_COMPARE >= F_NLSSORT('屲 ') AND V_COMPARE <= F_NLSSORT('鶩 ') THEN
V_RETURN := V_RETURN || 'w';
ELSIF V_COMPARE >= F_NLSSORT('夕 ') AND V_COMPARE <= F_NLSSORT('鑂 ') THEN
V_RETURN := V_RETURN || 'x';
ELSIF V_COMPARE >= F_NLSSORT('丫 ') AND V_COMPARE <= F_NLSSORT('韻 ') THEN
V_RETURN := V_RETURN || 'y';
ELSIF V_COMPARE >= F_NLSSORT('帀 ') AND V_COMPARE <= F_NLSSORT('咗 ') THEN
V_RETURN := V_RETURN || 'z';
END IF;
END LOOP;
RETURN V_RETURN;
END;
--結束
測試案例：select F_TRANS_PINYIN_CAPITAL('你是十二') FROM DUAL；
2、轉五筆首字母（網上沒找到一個直接可用的，自己根據別人的改編的）
CREATE OR REPLACE FUNCTION fn_getwb(Str VARCHAR2) RETURN VARCHAR2
IS
RESULT VARCHAR2(200) ;
i INTEGER ;
j INTEGER ;
k INTEGER ;
Tmpstr VARCHAR2(3);
Tmpstr2 VARCHAR2(2000);
Tmpstr3 VARCHAR2(3);
Strlen INTEGER;
Strlen2 INTEGER;
TYPE WB IS VARRAY(500) OF VARCHAR2(2000);
v_WB WB := WB( 'A鞴韝鞣鞫韉鞔鞽韃鞅靼銎跫綦翳蛩顢鸛鶓鶇鳶慝覲覡貰甌戡檠迓甙忒弋撖摁廾蘼櫱蘩蘅蘧藿藜藁蘚薰薷薹薅薜藪蕹薏薇薨薤蕻蘄蕃瞢蕺蕞蕤蕨蕈蕙蓼蓿蔻蕖藺蔟蘞蓰蔸甍蔌蕷鎣蒗蒴蒹蒡蘺蒺蒿蓊蓓蒽驀蓐蓍蓁葭萱蒎蔞葶葩葆萼葸蕢葺蒈蕆葳葙葚葑葜菡菰縈菀菅菪菹菸萃萏菟菔萆萑萸萜菖菽菝萋萘堇菘菥萁菁蓴鶯莨莞莘荻蕕荽莩薟荼蒞莜莓莪莠萵蒔荸莰葤葒蓀蕒藎茛蕁滎犖茳茺茭薺茗荀薈荃荇荏茯蕎莛茱茴茼莒茈蓽蕘荑茜苕苠煢塋茆茚蔦苓苻茌檾苒苴苜茇蘢苤苷茉苡芤苧苄芟芪芡芴芩蓯萇莧芮芷芘苣苊藶芰芾芸芫芙薌芑芎芄芨芊芏艿艽艹鄞郾邛劐蒯賾匾匱匭叵匚廿茁著芝蒸斟蔗蘸藻葬匝蘊苑芋熒營螢瑩英蔭茵藝頤醫藥堯燕雅牙芽鴉薛靴蓄芯薪邪鞋蕭巷項匣熙昔蕪巫臥蔚萎葦藤萄苔蓑蒜蘇斯薯蔬世式甚芍苫莎散薩若蕊茹榮蓉茸戎惹鵲顴區擎芹勤蓮荔莉蕾勒勞藍萊葵匡苦恐苛勘菌巨菊鞠敬警莖荊靳芥藉戒節蕉匠蔣薦繭莢薊基惑或獲葷茄切翹鞘巧薔其七欺期蒲菩葡莆萍蘋匹蓬藕毆鷗歐孽蔫匿慕募幕暮墓某莫蘑摹蔑藐苗蒙萌茂茅莽茫芒蔓落蘿蘆菱黃荒劃花葫菏荷邯菇苟共貢汞鞏恭功攻工葛革戈甘芬匪菲芳範藩貳董東蒂蕩蔥茨臣茶茬草藏蒼蔡菜菠鞭蔽蓖苯薄苞靶芭鞍艾藹',
'B糶蚩顳聵聒聹聆聃耵騭孢孓孑屮隳凵勐鄹隰隗隍隈陴陲陬隉陟陔陘陂阼阽阪阱阡阢阝巹亟丞阻子孜墜職陣障隕院隅隱陰也耶陽遜限陷險隙衛陀陶孫祟隧隨隋陝阮孺娶取了遼聊聯孔聚階降際聘陪聶陌孟陸陋隴隆陵函孩孤耿隔附防耳墮隊陡耽聰除出恥承陳陛隘阿',
'C鍪蟊蝥顙矜皴鷸鶩甬瞀懟炱毿驤驥驏驄驃騸騮騖驂騅騍騏驪駢驊驍駘驛騶駙駟駔婺逡迨逕巰畚弁厶邰剄駐驟蚤允馭豫預予又勇恿以矣驗馴熊戲駝馱通臺雙駛聖騷桑叄柔勸驅壘駿駒頸勁驕艱雞騎騙能難牟矛馬駱騾驢歡駭觀對疊鄧怠馳騁叉參駁巴',
'D鬣鬟鬢鬏鬈髹髭髻髫髯髦髡髟魘蹙躉翡舂蜚蜃蠆耱耨耩耬耦耥耮耠耜耖耔耒鷯鶘鵪鴯鴣瓠礴礞礤礓磴礅磲磉磙磔碥碹碲碣碡磣碇碚碓磧硪硌硇硐磽硤硭硎砩砣砬砥砼砟礱礪砹砝碸砭斫砑砘硨砉碭矸磯恧恝燾斐飆欹腴挈臧戛彗尷尬尥尢匏耷奩夼勱酆劂剞刳贗靨廝厥厴厝厙仄嘏左奏鬃磚砧丈在砸耘願原鬱右友有尤硬頁雁硯厭豔奄研壓戌雄硝廂鹹夏廈襲矽硒戊威萬碗廳套碳態太泰碎肆碩爽耍戍壽石盛砷奢砂三辱確犬秦歷礫勵厲釐磊奎盔礦夸克磕砍廄韭兢礁礆鹼慧灰磺牽砌契奇戚破砒碰硼砰裴耪碾奈耐面邁碼碌壟聾龍硫磷胡厚耗夯硅顧故古辜龔耕感奉豐奮非礬而厄奪碟碉碘大達磋存磁蠢脣春礎廚成辰廠碴廁布泵奔輩悲碑磅幫邦百耙礙',
'E雎貔貘貅貊貂豸豕繇鷂燹膦臁羶臊朦臌膪膣滕臏膈媵塍腧齶膃靦腩腠腱腚腙腓醃腈脲脘脬脞腡豚脒朕胼胲脎膾胭胴胱脛胝朐胗胍胙胂胛臚胩腖朧肷肭肫肱肽朊肼肜肟刖虢爰戤孚尕邈彡豳奚垡郛鼐助逐肘腫脂肢脹髒孕月用臃盈臆胰腋舀遙腰懸須胸腥脅腺縣膝腕妥脫腿腆騰膛胎舜甩受勝膳腮乳臉肋臘胯爵腳膠及肌且腔臍脾鵬朋膨胚胖膿膩腦乃膜覓貌脈貉股胳肛肝腹腑脯服膚肺肥肪肚膽脆腸彩採膊脖豹胞膀骯胺愛',
'F黿霾霰靄霪霎霏霈霽霆雯靂雩謦赭赧趲趑趔趄赳麴翥裘箐罄螫顥頡頇耋鵓盍瞽磬愨恚熹觳轂彀耄覯覿齎賁耆甏戟輦韜韞嫠遘逵逑懿鼙馨墀墚墉墁塬塥堠塄堙堞堀埭埽堍堋埝埤埸垵埴垸埒壎堝塒埕垠堖垧埏塏垌垤埡坳坶坭坨坻坼壚坫壠坩阪圻壢圯圮壙圳圪圬圩酃邗卦嗇孛亓兀亍走專煮志址直支震真者趙增載哉栽運雲越遠袁垣元域雨壹堰嚴鹽雪需墟幸協孝霄獻現霞喜霧塢無斡未違韋頑土填替趟塘坦壇坍塔塌索寺霜士示十聲赦墒喪韌壤卻去趣趨求雷老垃坤虧款塊垮坑殼坷考坎堪刊均救境井進劫截教嘉吉圾擊魂卉牆乾起埔坡坪霹坯彭培霓南黴賣埋露零霖壞壺赫郝壕翰韓過圭規鼓垢埂趕幹赴夫封墳坊二垛墩堆堵都動顛地堤戴寸矗翅赤城趁朝超場才裁埠勃博雹霸壩埃',
'G餮饜鰲鏊靚豉豇麩纛翮蠹螯虺聱鵡鸝忑歟敕賚戩戔軎殪殯殛殫殍殮殞殄殤殂歿獒橐瓚璩璨璞璋璇璁璀瓔璜瑾瑭璦瑙瑕瑗瑜瑁琚琛琬琮琰琨琥琦瑛琪璉琿珞珧珩琊頊珙珥珈珉珀玳玷瓏珂珏玟玢瑋璣玎驁遨邐逋忝墼堊鄢酈郅郟邳邴剌羋噩孬鬲亙丕卅丐琢贅珠致至殖政正整臻珍盞責棗遭再玉與盂於迂夷一瑤殃焉亞殉邢形型刑下五武吾王玩豌歪瓦屯吞天瑣速素死束殊事蝕珊瑟瑞融球瓊青琴裂列兩璃麗理琅賴來開玖靜晉柬殲頰夾棘霍惠妻平琵琶弄囊末滅玫麥瑪琉玲琳烈還環畫互瑚瑰更副甫敷否琺惡頓毒逗豆靛到殆帶歹刺曹殘蠶不玻丙表碧逼甭班斑熬敖',
'H虍瞿齷齪齬齦齜齠齙齟齔訾觜鹺粲虔顰顬鸕瞵瞰瞠瞟瞑瞌睽瞍睿睥睢睨睚睃睇瞼睞眸眵眥眭眙眈眇盹瞘眄盱砦忐氍覷覘貲攴遽壑矍卣乩丨紫桌卓矚止睜貞戰佔瞻眨虞眼眩虛些瞎凸瞳眺瞬睡叔上齲眶肯卡具舊睛睫瞧歧頗頻皮盼虐睦目瞄眠眯瞞慮虜滷顱盧齡虎睹督鼎盯點瞪此雌瞅齒柴餐睬步卜彪',
'I鯊鱟鎏鋈裟淼澩沓懣氅挲尜娑逍灞灝瀵瀹瀛瀣瀚濯濠濞濮濡濂澶澹澧濉瀨潺潼潲潸澌澍澉漩漉漪瀦瀲漶漯滹漕漤瀟瀠潢溟滂溏滏溴潷溷溻溽溧溥瀅漭灄溘溱灩湄渥渲湔湓漵湟溲湫湎湮渫涮淥涫瀋淙淝淦澠淠涿瀆淞淅淇渚浣浼浠浜涔涓浞潿淶浯涑洳潯滸瀏洚洵洮澮洫洎洙洄洇湞浹洌洧洹涇泯泓沱泮泫濼泖泠沲泗泱瀘瀧沭泔泐潙沆汶汴汩汨沌沔沐沅灃汊汜汔氵嚳凼黌鞀漬滓淄滋注洲治滯汁浙兆沼漲掌漳湛沾渣澤澡源淵浴譽漁渝淤遊油涌泳淫溢沂液耀漾洋演淹涯汛學洶興瀉泄肖小淆消削湘涎洗汐溪污沃渦溫渭濰汪灣窪湍塗汀添涕淘逃滔濤燙淌棠堂湯潭灘汰溯水漱淑溼省滲沈深涉少裳尚賞汕沙澀灑潤汝溶染雀渠泅清沁潦粱樑漣瀝漓淚澇浪濫瀾潰渴浚覺沮舉酒浸津潔澆江澗濺漸尖濟脊汲激活混渾匯輝淺潛洽泣汽沏柒漆瀑浦婆潑漂澎沛泡潘派湃漚濃濘涅溺泥淖漠沫渺泌沒漫滿洛淪灤濾潞漏流溜淋劣渙淮滑滬湖洪鴻涸河浩漢汗涵海光灌沽溝港溉涪浮汾沸泛法洱渡洞澱滇滌滴黨當淡淬淳滁池澄沉塵澈潮敞常嘗測滄泊渤波濱瀕澳',
'J蠼蠛蠊蟾蠓蠖蟮蟠蟪蟛蟀蟑蟓蟋螳螵螬蟥螃螗螭螅螈蟆蟒蟎螓蝙蝤螻蝣蝓螋蝮蝌蝰蝠蝻蠑蝽蜢螂蜿蜷蜩蜱蜴蟈蜾蜮蜥蜞蜻蜣蜉蜍蜊蜈蛸蛑蛘蛟蠐蛞蜓蛐螄蛭蟯蛺蚴蟶蛉蚯蚱蚺蚰蠣蚵蛄蚶蚓蚪蚣蚧蠔蜆蚋蚍蚨虻虼蟣虯煦曩曦曜曛暾暝曖暌暄晷晗晡暉晏晁曄晟暱昱昴曷炅昀昕昃杲曇昊旰旯戥韙暹遢夥勖刂禺昨最蛀蛛蜘照昭早暈曰遇愚蛹映影蠅易蟻曳野蜒蚜星蠍歇曉顯賢暇蝦晰晤蝸蚊旺晚蛙蛻題剔帥墅豎曙暑是時師腎申蛇晌曬蠕日蛆晴晾量裏覽蠟昆顆景晶緊鑑堅監晦蛔晃蝗曝暖螟明冕盟昧冒曼螞螺臨蝴虹旱果滾歸蠱蛤蜂遏蛾蝶電旦蟲匙晨暢昌蟬暴蚌昂暗',
'K饕鼉黽躞躦躐躔躪躅蹴蹯蹼蹶躕蹊蹣躡蹂蹁蹉踱踽踵踹蹀踺躑踣踮躓踟踝踔跽踉跤躋躚跣蹕蹺跬跆跛跏跎躒跚跗跖蹌趺趼趿趵顎鷺鶚戢璐囔嚯嚓嚅噼噻噫噱噤嚆噔噌嚕噙噢噍嘬噗嘹噘嘭嘧嘀嗾嘣嚶嘁嘌嘈嘞嗤嗵嗨嗍嗌噯嗲嗥嗯嗄嗝嗦嗔嗬囁嗑嘟嗉嗷嗪喙喔嘍嗟喑嗖啾喟喁喈喹喱喃嗒喋啜唰唳啷啶啵啖唷唼啐唿啕啁囀啉喵喏嘖唪唧唑唏唣嗩哳唔哽嘮哧嘜哞哏噥吒咪咩嚌哚噲哌咿咻噦咣呲嗶嘵咦咧噠咴哂咭哐噝呦呶咄嚀咚呤呱呷咔咂吲唚咼唄吡呃嚦呔囈嘸呋吆吖吒叻叨叩嘰叱卟郢嘴足蹤啄囑咒忠盅中只趾吱咋喳噪躁咱鄖躍員喻籲詠踊喲吟邑遺葉噎咬唁咽啞呀勳喧噓嗅兄嘯囂哮響嚇吸嘻吳嗚嗡吻喂味唯哇唾吐聽跳嚏啼蹄踢嘆踏蹋唆雖嗽嗣嘶順吮噬嗜史呻哨啥嗓嚷哩啦喇曠跨哭口吭啃咳咯咖喀鵑踞距咀叫嚼踐嗆遣器品啤噴呸跑咆趴啪嘔哦齧呢吶哪鳴嗎嘛罵呂路嚨另喚患譁唬呼吼喉哄哼嘿喝呵號嚎喊哈貴跪剮咕跟嘎噶咐吩吠啡鄂跺哆蹲噸叮跌吊叼蹬蹈呆躥吹串喘川躇躊吃逞呈吵嘲唱蹭踩哺別鄙蹦跋吧叭唉哎啊',
'L黯黲黥黷黢黟黠黝黜鏨袈罾羈罹罱羆罨詈罟罡罘疃畹畛畈畋畎畀町轔轆輳輜輟輞輒輅輇輊軾軺轢軤軫軼軹轤軻軲軛軔槧嬲迦圜圉圊圄囿囹囫圇囡囝囗勰哿罪濁轉軸置轍罩輾斬軋暫圓園轅因鴨軒轄胃畏圍團圖田四思蜀署輸軟圈囚輕輛連力累困界較轎駕架甲加輯畸回塹黔畦圃毗畔男默墨皿邏羅輪略轟黑賀國輥軌固輔輻罰恩囤疇車邊辦罷',
'M髑髕髖髂髏髀髁骼骺骶鶻骷骰骱罌顓鸚殳飈颼颶颮胄覬賻賧賕賑贐賅貽貺遄迥巔嶷嶝嶙嶂嵴嵩嵊嵫嶁嵯嵛嵬崽崴崾嶸崆崞崤崮崦崧崍嶗崢峋嶠峒嶧岷峁岣岫岬崬岢岵岜嵐岑峴岈嶇岐岍屺岌幡襆幛幔幄帷幗幘幬帔帙幃兕夙罔冂剴劌賺貯周峙幟幀賬帳嶄贈賊則贓峪嶼郵由嬰屹鴦央巖崖峽巍網彤同帖貼炭歲髓贖賒贍刪山肉冉曲巋凱峻巾見賤幾賄幌凰峭嵌豈崎賠帕內帽賂嶺骸骨購崗剛岡賦幅鳳風峯販凡帆峨剁朵賭雕典迪丹崔賜幢崇冊財貶崩貝敗凹盎岸',
'N鐾羿襞胥疋鷚鶥愍熨擘甓檗璧嬖羼屨屣孱屙屐咫尻遐戕爿懵懍憷憧憔憬慵慊愫愎愀惴愣愕憒慍悴惚惆惘惝悱悻愜悛悌悒悃悝慳悚悖惲恪恂愷惻懨慟怡懌怊怫怩怍怏怛怦怵怙忸忭忪愴悵愾忤忡慪忮憮懺忖忉忄嵋崛奘巽乜晝怔展憎悅羽愉憂翌翼異憶乙已迅恤性惺心忻屑懈習犀惜悟屋慰尉尾惟惋臀屠恬屜惕巳司刷屬書疏收恃屎蝨屍慎懾屈情憐懶愧快慷慨劇懼局居驚盡屆忌悸己悔恢恍惶怯悄恰屏譬屁劈怕懦尿尼惱憫民眉忙慢買屢履戮慌懷恆恨悍憾憨慣怪敢改憤飛發惰恫懂刁殿惦翟悼導蛋憚翠戳醜尺遲忱層慘慚怖避臂壁闢必懊',
'O糨糗糅糈餈糌餱糝糉粼粞糲粑敉秈黼黻黹灬爝燧燔燠熠熵熳熘煺煸煊煅煨煜煳焱焯燜焓焐烊燁炫炷烀炻熗燉煒煬遴燮郯鄴剡籽灼燭粘炸燥竈鑿糟業焰炎煙烯熄烷烴糖爍數燒煽熔燃炔料燎糧煉粒類烙爛烤炕糠炬炯粳精燼火燴煌粕炮糯米迷煤爐婁煥糊烘焊糕烽糞粉煩斷燈粹粗錘炊熾炒糙燦炳焙爆',
'P衤窳窶皸襻襦襁褶褫襤褊褸褓褙褡裰裾裨裼褚裱襉襝裎褳裉袼袷襠袢袂衿衽衲衩窨窬窠竇窕窈窆窀穹穸鴆禳禧禚禊禪祺祧禎祠祗禰祚祓祜祛祉祆祀礻邃逭辶謇蹇寰褰寮寤搴騫甯宸宥宓宕宄宀廴鄆冥冢冖剜祖宗字祝宙窒之寨窄宅宰災冤裕寓宇寅宜揖窯宴穴宣袖寫宵祥憲窩宛完襪褪突袒它宿宋守視室實審神社衫賽塞褥冗容裙窮寢寥簾禮牢窺寬褲窟寇空客軍究窘襟窖家寂寄禍豁竊竅祁祈袍農寧寞冪密蜜寐裸祿窿宦宏鶴褐罕寒害冠官褂寡宮割富袱福額定禱竄窗穿初寵襯察補賓被寶襖案安',
'Q鱧鱒鱔鱖鱅鰻鱈鰾鰳鰩鰥鰨鰭鰠鯿鰉鰒鰍鱷鰈鱝鯔鯴鯛鮎鯢鯝鯧鯤鯡鯫鯪鯖鯽鯇鯀鰷鰣鰹鰱鱺鯁鱘鮫鱭鮞鮪鮚鮭鮐鮒穌鱸鮎鮃鮁魴魷鑫觶觫觥觚觴觖斛嫋鸌鴟鴝鍾鑣鑔鐿鐲鑊鐙鏹鑹鐠鑭鐓鑥鏷钁鐔鏑鏇鏃鏞鏍鏝鏜鏢鑌鎵鎰鎦鎿鐫鎘鏌鎇鐨鏘鏤鎄鍰鎪鍤鍔鍶鍇鍥錙錟錈錇鍃錮錕錁鍀錛鍩錆錒鋦鋟鋃鐗鐦鋶鋝銼鋨鋯鋰鋥鏗鋱錸鐒銣銨鐋銃銫錚銚鎩鉿銓鏵銩鋌銖鎧銦銱鐺鋣鐃鋏鋮銪鉺銠銬鐸鈹鈮鉍鉈鉉鈰鑠鈿鉭鉬鉞鈸鈽鉕鈳鈷鉦鈺鈀鈥鈄鈧鈁鈐鈑鉅鈦鈈釹釵鍆釤釧釷釕釗釙釔釓釒盥眢欷餚櫫桀梟璽邂遛逖邇饢饌饊饉饈饃餿餷餛餘餑餉飴飭飫飪餼飩餳飠夤飧舛獾獯獬獠獗獍獐猱猸蝟猥猹猢獼猝猞猊玀猓猗狻狺獫狳猁狷狴猻狩獪狨狒狍狎狁狃獁獷犴犰犭弒鬯劬奐芻郗郇郄邸鄔鳧匐訇匍勹刎刈氐爻丌鑽鄒錐鑄豬皺鍾炙爭猙鎮針鍺詹鍘勻鑰怨猿鴛獄魚猶鈾迎印飲銀逸銥旬鏽匈兇猩鋅蟹銷象鑲餡鮮杴狹銑夕希錫勿烏鎢危外鴕兔銅鐵銻獺鎖飼氏飾獅勺煞剎殺色鰓銳饒然卿鐐鏈鐮吏鯉狸鐳樂狼饋狂鈞句鋸狙灸久鏡鯨錦金解餃角狡鉸餞鍵鉀急飢昏欽鍬欠鉗錢鉛釺鋪刨鈕獰鎳鑷鳥餒鈉名銘勉免猛錳鎂貿卯鉚錨貓饅鑼卵鋁魯留餾鈴獵猾狐忽猴狠鍋龜逛館夠狗勾鉤鉻鎬鋼鈣負孵鋒飯犯釩餌爾兒餓多鈍鍛鍍獨兜錠釘釣甸狄島錯匆觸雛鋤鈔猖鏟饞猜鉑鉢狽鋇鮑飽包鎊',
'R魑魍魈魎魃魅踅縶罅缶蜇頎鵯鷙瓞皤皓皎皈敫氳氪氤氬氡氚氙氘氕搿掰贄遑逅攮攥攉擢擤擗擐擀攛撙擼擷摺摭攖摞搡搦搌搠搛搋攄掾揆摒揎揞揄撳揠揸揲摜掮捩掊掬捭摑掎捺捱揶掭捃捋挹拶撟拮拗拚拊抻摶捫扌郫邾卮揍拙捉撞撰拽爪抓拄朱質制擲摯指執拯掙振蟄哲折找招摘扎擇皁攢嶽援擁殷抑掖搖邀氧揚掩押欣卸攜挾掀舞捂握撾皖挽挖拓託拖推投捅挺挑提掏搪探攤擡撻所損擻搜撕拴摔抒授手勢逝誓拭拾失攝捎擅掃搔撒揉扔熱擾攘缺泉邱丘氰氫擒撂撩擂撈攬攔拉擴括捆魁挎扣摳控拷抗扛看揩掘抉攫撅捐據拒拘揪近斤捷接揭攪撿揀技擠揮皇撬搶扦掐氣撲迫魄乒拼撇披批捧抨拋乓排拍爬挪扭牛擰捏捻攆年拈擬撓氖拇抹摸抿描掄掠氯擄摟攏拎換護後捍撼氦鬼罐拐掛瓜拱擱搞皋缸撫氟拂扶氛返反扼掇遁盾抖迭掉墊掂抵的搗擋氮撣擔打搭挫措搓撮摧捶揣搐抽斥持撐掣撤扯抄摻攙拆搽插操擦捕帛搏撥播兵擯膘卑報抱拌扮扳搬拜擺白把拔扒捌翱按氨皚挨',
'S醺醴醵醯醮醭醪醣醢醑醍醐醅醌酹酴酲釃釅酯酩酰酡酢酤酏酎酐酊覃皙懋檫檁檐檑櫞橘樨樽櫓檎樵橛樾橄槲樘樗槭檣槿榍櫧榕檳槁榱槔榭榫榻榧榛楹楣楦櫸槎櫚櫬槌椴楸榀楫欖楝楂楠椹楱椐棣楗槨椋棰欏棹櫝棼楮櫺桫梓桷桴梏梵栩桉檜桁樺桕栝梃榿桄楨桎橈椏栳栲檉柁櫟柢枸柃梔柝枳柚枵柙櫨枰柩櫳柘櫛柰杼杷枋樅棖杵梘枘杳杪枇櫪榪杈杞杓杌鄄剽柞醉棕酌椎樁柱株植枝枕甄杖樟棧榨柵札醞榆酉櫻椅椰要樣楊酗朽杏醒械楔校橡想相檄西析梧桅枉橢桶酮桐梯桃檀酞梭酸粟酥鬆栓樹述術梳樞柿梢杉森榷醛權慄李楞棱酪榔欄婪框酷枯可棵柯楷禁傑桔酵椒檻檢賈枷極機橋橇槍棋棲樸票瓢飄棚配攀檸釀木模棉醚夢檬酶梅枚麓樓柳榴林桓槐橫核杭酣棍櫃桂棺構梗根格歌哥槓柑杆概覆楓焚酚樊杜棟頂丁檔村醋醇椿椽楚櫥酬橙郴查槽材柄彬標本杯棒榜梆板柏',
'T齇鼾鼽黧鰵雒艨艟艚艏艋艉艄舾舴舳艫舸舫舨舯舭艤舢舡衄臬籀籟簸簦簪簟簋籪簏篼篾簌篪篦篥篚篝篌篁簣箴簫箢箜簞箅籜箝箬箸篋簀筱筲筢筻筮筠箏筌筵筅篳筘笞籩笳笤笥笠笱笮笙笪笸筇笏笫笊筧笄篤笈竽竺舐螽鵠鴰穰馥黏穡稷稹稔稞稂稃嵇穭秫秣秭秕雉矬矧眚憩愆歃牖牒牘攵氆氌毽毳毪犒犏犍犋犄牿牾牯犛牝昝榘逶逄迤迮迕夂衢徼徵徭徨徜徙徠後徉徇徂彷彳嶴鄱郜糴汆劓睾毓胤囟夭乇丿纂租自篆築竹舟重種稚秩智知徵氈乍怎造贊粵御禹釉役移秧衍延衙循薰血選徐秀行釁笑向箱香舷銜先系悉息稀犧務物午我穩魏委微往頹徒禿透筒艇廷條舔甜特躺毯筍穗算艘私稅黍釋適矢剩升牲甥生身射舌稍扇篩入壬軀秋利籬黎犁梨籃筐筷科靠矩咎徑筋街秸矯艦箭簡箋稼季籍箕積稽穢徽簧喬籤遷千迄乞片篇篷磐盤徘牌穆牧牡敏秒祕每麼毛籮亂律簍籠徊乎衡很和禾航管乖刮箍躬各告稿篙稈竿復符逢繁翻番乏筏鵝舵躲短犢冬丟第笛敵等得德稻待答篡簇囪辭垂船處臭籌愁稠秤懲程乘稱徹長策艙簿舶箔秉幣彼筆鼻笨憊備版般稗笆奧矮',
'U鯗蹩翦粢羲羰羯羧羥羝竦翊癯癲癖癜癔癩癍瘳癮癃瘵癭瘰瘭癀瘠瘢瘼瘛瘙瘕瘻瘥瘊瘞瘌癉瘀瘐痿痼痱瘃痧癇痤痦癆痣痍瘂痂痃疰皰痄疸痾疳疣癧疝癘癤疔疒鶼鶿鵜鷳蠲戇恣恙颯歆旮甑瓿猷槊桊孳妾遒丬闞闕闐闔闋闃閼閽閿鬩閶閾閬鬮閫閭闥閌閔閎闈閆閂啻鄯鄣邶凇冼冽冱冫袞兗夔囅馘遵尊總姿資諮茲着準狀壯妝裝痔鄭症疹瘴彰章站閘曾韻閱癰音益毅意疫冶養癢羊瘍彥沿閻顏閹丫癬羞新辛效翔羨閒問聞瘟頭痛童剃謄疼痰癱遂塑送朔獸瘦首韶商善閃閏瘸券拳痊酋親療涼立痢冷蘭闌辣闊況竣決卷眷疽疚淨競竟靖痙疥竭郊交醬獎槳漿將將姜減剪兼煎間冀疾羌歉前悽普剖瓶瞥痞疲旁叛判瘧凝逆鬧閩悶門美六瘤凌羚凜豢瘓痕閡閨關羹閣疙羔贛蓋馮瘋閥兌端痘鬥凍凋奠遞弟帝盜道鄲單瘩瘁湊次瓷慈疵闖瘡衝癡闡產差部並病冰癟憋鱉辮辯辨弊敝閉痹迸背北半瓣疤癌',
'V鼷鼴鼯鼬鼢暨艮舄舁臾鳩聿肀邕甾巛駑孥孀嬤嬗嬉嫜嫘嫦嫖嬙嫣媸嬪嬡媲嫫媾婷媛媼胬嬋婢娼婕婊婧婀娓娣嫺媧娉娌奼姘姣姝嬈婭姍妯妲姒妤妞嬀姊妗妣嫗嫵妍妃妁弩彐邋逯帑叟劭馗帚召雜娛尹姻姨姚妖巡尋婿絮旭姓嫌媳婉丸娃退迢她肅恕鼠始嬸娠邵嫂如妊刃忍羣隸姥懇墾郡君娟舅臼九姐剿嬌建奸嫁妓既嫉即姬婚毀女怒努奴娘妮嫩奶娜那姆妙娩媚妹媒媽錄靈好姑婦妨娥妒嫡刀逮巢剝',
'W黛讎雋隼隹翕翎衾頷頜鷦鵒鵂畲龕恁爨煲歙毹牮覦瓴戧璺岱坌鄶兮龠俎僉佘氽仝儋儇僮僦僬僭儆僖傺儺儐儻僂傯偎偈偕偃僨倨倥倌倜俾倭倮倏倬俳偌倩俸俟俑俜俁俚俅儷儼儔侔儂佼儕佻佾侏侃侉侑佴佶伽伲佗佟佝佚攸佧佞佇伉傖倀仵佤伢仳傴仞仫仡仨仂仉仃亻劁坐作做佐仔追住衆仲侄值偵仗債欲愈逾俞餘輿佑悠優傭億倚儀伊依爺仰佯敘修休信斜像仙俠侮伍甕翁位僞偉途偷停體倘貪他僳俗頌慫聳似伺舒售侍仕使食什伸舍傷傻僧傘儒仍任人仁全傾禽侵僚斂倆俐例傈儡佬傀儈俊倔倦俱僅今介借僥焦僵劍健件儉價假佳祭伎集貨夥會俏僑仟企僕憑貧偏僻盆佩偶您念你倪拿命們侖倫侶令領伶賃鱗鄰化華候侯盒合何含劊癸谷估公供個鴿父阜付傅斧釜俯俘伏佛忿份分仿伐俄段侗爹佃低凳登倒但袋貸代傣催促叢從創傳儲仇侈倡償豺岔側倉伯餅便倍堡保傍伴頒佰爸八傲俺',
'X饗糸蠡潁鷥鴇犟畿幺纘繯繰繾繮繒繚纈繅繆縲縵縹繽縑縊縭縞縟縝縉緡縋緱緶緦繢緲緹緗緙緇綰綣綹綬綞緄鞝緋綺綾綈綃綆絳絎絝紿絀紼縐紱紲紺紓紕紜纊紈紇紂紆糹鬻弼艴弭弳彘彖轡匕組縱綜綴粥終紙旨織張綻約緣幼幽穎纓引繹肄彝疑絢續緒繡鄉線弦纖細毋紋緯維統絛縮綏絲繩紳紹繕紗弱絨紉繞頃練纜絕絹糾經結皆絞繳疆緘紀繼級緝績繪強紐納母緬綿彌絡綸綠縷幻緩弧紅弘貫弓給綱縛弗縫紛費紡緞締彈綽純綢弛纏編毖斃畢比繃綁絆',
'Y麟麝鏖麒麋麈麇麂縻麾麼饔鑾綮翩頦頏鷲鷓鶉鸞憝扉扈扃戽戾旖旒旎旌旃旄旆於斕齏膂肓昶欒孌膺廩廨廛廑廒賡庳庾庵庹庠庥庖庋廡庀奕弈壅塾劾邡邙鄺讖譫讞譎譙譖譾謫謐諡謖讜謨諞諮諦諳諼諭諤謁謔諫諶誶諂諗諛諉諑諏誒誑誥誚詡諢諍詮詬詵詼詰詿誄誆詒詘詔詆訶詁訥詎謳訕訌訐訁羸蠃嬴稟裒臠褻袤亳亠丶座詛族卒諄莊主誅諸謅州衷證診這遮肇齋詐育語誘永雍庸贏應鷹譯誼議詣義裔亦衣夜謠諺言訝訊訓詢玄旋畜序許謝諧享詳襄席誤誣紊文謂爲妄忘望亡彎庭亭討唐談譚訴誦訟說誰衰庶熟孰試市識詩施設認讓瓤慶請廖諒亮良戀廉離朗郎廊讕廓庫課刻亢康訣就京謹誡講肩記計劑譏跡誨諱謊敲譴謙訖棄啓旗齊譜評烹龐諾畝謀魔摩磨謬廟謎糜靡氓盲謾蠻麻論孿攣巒率旅鹿廬劉吝話戶亨毫豪亥裹郭詭廣僱庚膏高該訃腐府諷廢誹放訪房方訛敦度讀訂諜調店底誕詞牀充誠顫讒詫斌遍卞變扁庇褒謗哀',
'！@#%…&*（）—；：”’？《》，。、');
BEGIN
Strlen :=LENGTH(Str);
RESULT :='';
FOR i IN 1 .. Strlen LOOP
Tmpstr := Substr(Str,i,1);
IF (Ascii(Tmpstr) >= 1 AND Ascii(Tmpstr)<=254) THEN
RESULT :=RESULT || Lower(Tmpstr);
ELSE
j := 1;
LOOP
Tmpstr2 := v_WB(j);
Strlen2 := Length(Tmpstr2);
k := 2;
LOOP
Tmpstr3 := Substr(Tmpstr2,k,1);
IF(j = v_WB.COUNT) THEN
RESULT :=RESULT || Tmpstr;
k := Strlen2;
j := v_WB.COUNT;
END IF;
IF(Ascii(Tmpstr) = Ascii(Tmpstr3)) THEN
RESULT :=RESULT || Substr(Tmpstr2,1,1);
k := Strlen2;
j := v_WB.COUNT;
END IF;
EXIT WHEN k = Strlen2;
k := k + 1;
END LOOP;
EXIT WHEN j = v_WB.COUNT;
j := j + 1;
END LOOP;
END IF;
END LOOP;
RETURN(RESULT);
END fn_getwb;
--結束
轉五筆碼首字母函數：fn_getwb，例子select fn_getwb('中國') from dual;