Oracle 五笔码函数

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