不知道哪裏記錄下來的文章了，記錄一下，方便以後查看
create or replace package body Pkg_Krs_Utils is
--
----------------------------------------------------------------------------------------------------------------------------------------------------
--
function GetPY(
Name in varchar2,
p_PYType number, -- 判斷拼音首字母 0 或 拼音全拼 1
out_code out number --返回值（0=成功 -9=失敗）
)
return varchar2 is
i_Insert number;
out_word varchar2(32767);
----返回拼音首字母使用變量
lv_temp varchar2(4000);
lv_bytes Varchar2(200);
lv_char Varchar2(10);
li_bytes Integer;
li_pos Integer;
--返回拼音全字母變量
s varchar2(32767):='吖1a0阿1a1嗄1a2哎2ai1啀2ai2毐2ai3艾2ai4安2an1玵2an2垵2an3犴2an4骯3ang1岇3ang2枊3ang4凹2ao1坳2ao4柪2ao1敖2ao2抝2ao3嶴2ao4八2ba1叐2ba2把2ba3壩2ba4挀3bai1白3bai2百3bai3唄3bai4扳3ban1阪3ban3'||
'辦3ban4邦4bang1綁4bang3玤4bang4勹3bao1窇3bao2嫑4biao2雹3bao2寶3bao3勽3bao4萡2bo2陂3bei1北3bei2鉳3bei3貝3bei4奔3ben1本3ben3坌3ben4伻4beng1甭4beng2埄4beng3泵4beng4皀2bi1荸2bi2匕2bi3幣2bi4邊4bian1貶4bian2扁4bian3卞4bian4'||
'灬4biao1表4biao2俵4biao4憋3bie1別3bie2癟3bie3彆3bie4汃3bin1擯3bin4冫4bing1丙4bing3並4bing4癶2bo1仢2bo2蚾2bo3譒2bo4峬2bu1轐2bu2卜2bu3不2bu4嚓2ca1礤2ca3遪2ca4偲3cai1才3cai2採3cai3菜3cai4參3can1殘3can2慘3can3'||
'燦3can4倉4cang1匨4cang2賶4cang4撡3cao1曺3cao2艹3cao3肏3cao4冊2ce4嵾3cen1岑3cen2叉3cha1秅3cha2衩3cha3奼3cha4拆4chai1犲4chai2茝4chai3蠆4chai4辿4chan1嬋4chan2產4chan3懺4chan4倀5chang1長5chang2廠5chang3悵5chang4抄4chao1牊4chao2吵4chao3'||
'仦4chao4車3che1扯3che3屮3che4抻4chen1塵4chen2趻4chen3闖6chuang3襯4chen4阷5cheng1丞5cheng2侱5cheng3秤5cheng4吃3chi1弛3chi2尺3chi3彳3chi4充5chong1蟲5chong2寵5chong3銃5chong4抽4chou1仇4chou2醜4chou3臭4chou4榋3chu1芻3chu2杵3chu3處3chu4搋5chuai1'||
'膗5chuai2揣5chuai3啜5chuai4巛5chuan1傳5chuan2舛5chuan3汌5chuan4刅6chuang1囪4cong1瘡6chuang1牀6chuang2傸6chuang3創6chuang4吹4chui1垂4chui2旾4chun1純4chun2偆4chun3踔4chuo1辶4chuo4呲2ci1詞2ci2此2ci3朿2ci4從4cong2匆4cong1叢4cong2憁4cong4湊3cou4粗2cu1'||
'徂2cu2促2cu4汆4cuan1攅4cuan2竄4cuan4崔3cui1漼3cui3伜3cui4邨3cun1存3cun2刌3cun3寸3cun4搓3cuo1髊2ci1虘3cuo2脞3cuo3剉3cuo4咑2da1達2da2打2da3大2da4?ta4呆3dai1歹3dai3代3dai4丹3dan1伔3dan3旦3dan4當4dang1擋4dang3'||
'氹4dang4刀3dao1捯3dao2導3dao3到3dao4恴2de2的2de1揼4beng4扥3den4燈4deng1等4deng3鄧4deng4仾2di1廸2di2氐2di3地2di4嗲3dia3敁4dian1典4dian3電4dian4刁4diao1扚4diao3弔4diao4爹3die1苵3die2丁4ding1奵4ding3訂4ding4丟3diu1東4dong1'||
'董4dong3動4dong4吺3dou1艔3dao4鬥3dou4阧3dou3豆3dou4剢2du1毒2du2篤2du3芏2du4耑4duan1短4duan3段4duan4垖3dui1隊3dui4鐓3dun1盹3dun3伅3dun4多3duo1仛3duo2朵3duo3刴3duo4妸1e1訛1e2枙1e3厄1e4奀2en1峎2en3摁2en4'||
'鞥3eng1乻2er1兒2er2尒2er3二2er4發2fa1乏2fa2佱2fa3琺2fa4帆3fan1凡3fan2反3fan3氾3fan4匚4fang1防4fang2仿4fang3放4fang4飛3fei1肥3fei2朏3fei3吠3fei4分3fen1坆3fen2粉3fen3份3fen4豐4feng1馮4feng2諷4feng3鳳4feng4仏2fo2'||
'佛2fu2紑3fou2缶3fou3夫2fu1乀2fu2嘸2fu3父2fu4猤3gui4旮2ga1釓2ga2尕2ga3尬2ga4侅3gai1忋3gai3丐3gai4幹3gan1仠3gan3旰3gan4岡4gang1港4gang3槓4gang4皋3gao1夰3gao3告3gao4戈2ge1呄2ge2哿2ge3個2ge4給3gei3根3gen1'||
'哏3gen2亙3gen4更4geng1郠4geng3亙3gen4堩4geng4喼3jie1嗰2ge3工4gong1廾4gong3共4gong4贑3gan4勾3gou1岣3gou3坸3gou4估2gu1鶻2gu2夃2gu3固2gu4瓜3gua1剮3gua3卦3gua4乖4guai1拐4guai3夬4guai4關4guan1館4guan3卝4guan4光5guang1廣5guang3'||
'俇5guang4歸3gui1宄3gui3攰3gui4丨3gun3棍3gun4咼3guo1囯3guo2果3guo3鐹3guo4鉿2ha1咍3hai1孩3hai2海3hai3亥3hai4爳3han1邗3han2罕3han3鬫3kan4漢3han4夯4hang1魧4hang2沆4hang4茠3hao1蠔3hao2好3hao3號3hao4訶2he1禾2he2賀2he4'||
'?hei1嬒3hui4拫3hen2佷3hen3恨3hen4亨4heng1姮4heng2啈4heng4堼4feng1囍2xi3乊2ho1叿4hong1仜4hong2晎4hong3訌4hong4侯3hou2吼3hou3後3hou4乎2hu1囫2hu2乕2hu3互2hu4花3hua1華3hua2化3hua4蘳3hui1懷4huai2壞4huai4歡4huan1還4huan2'||
'睆4huan3輐3wan4緩4huan3攌4huan4巟5huang1皇5huang2怳5huang3滉5huang4灰3hui1囘3hui2悔3hui3卉3hui4昏3hun1忶3hun2繉5sheng1轋3hun1諢3hun4吙3huo1佸3huo2火3huo3沎3huo4蒦3huo4夻3hua4丌2ji1跡2ji4剞2ji1亼2ji2幾2ji3彐3xve3彑2ji4'||
'加3jia1圿3jia2岬3jia3價3jia4戔4jian1籛4jian3見4jian4江5jiang1講5jiang3匞5jiang4艽4jiao1臫4jiao3叫4jiao4階3jie1卩3jie2她2ta1姐3jie3丯3jie4藉2ji2繲3xie4巾3jin1僅3jin3伒3jin4坕4jing1井4jing3妌4jing4冂5jiong1冏5jiong3丩3jiu1九3jiu3'||
'匛3jiu4居2jv1局2jv2咀2jv3巨2jv4姢4jvan1卷4jvan3奆4jvan4噘3jve1亅3jve2軍3jvn1呁3jvn4咔2ka1卡2ka3開3kai1凱3kai3愾3kai4刊3kan1冚3kan3看3kan4忼4kang1扛4kang2亢4kang4尻3kao1丂3kao3考3kao4?ke1殼2ke2翗2ke3克2ke4'||
'肎3ken3掯3ken4劥4keng1孔4kong3控4kong4摳3kou1口3kou3叩3kou4扝2ku1狜2ku3庫2ku4誇3kua1侉3kua3挎3kua4蒯4kuai3巜4kuai4寬4kuan1梡4kuan3匡5kuang1抂5kuang2夼5kuang3鄺5kuang4虧3kui1奎3kui2傀3kui3尯3kui4坤3kun1悃3kun3困3kun4擴3kuo4'||
'垃2la1旯2la2臘2la4來3lai2唻3lai4蘭3lan2覽3lan3爛3lan4啷4lang1勆4lang2朗4lang3埌4lang4唥4leng2撈3lao1勞3lao2老3lao3澇3lao4仂2le4雷3lei2厽3lei3淚3lei4塄4leng2冷4leng3倰4leng4唎2li1刕2li2禮2li3力2li4倆3lia3嫾4lian2'||
'斂4lian3練4lian4良5liang2両5liang3亮5liang4蹽4liao1遼4liao2釕4liao3尥4liao4咧3lie2埓3lie4厸3lin2菻3lin3吝3lin4拎4ling1伶4ling2袊4ling3令4ling4溜3liu1劉3liu2柳3liu3六3liu4囖3luo2咯2ge1龍4long2隴4long3哢4long4婁3lou2嶁3lou3陋3lou4'||
'露2lu4嚕2lu1盧2lu2滷2lu3圥2lu4孿4luan2卵4luan3亂4luan4掄3lun1侖3lun2論3lun4捋3luo1羅3luo2剆3luo3濼3luo4驢2lv2呂2lv3慮2lv4掠3lve4嘸2fu3呣3mou2亇2ma1蔴2ma2馬2ma3榪2ma4嗎2ma1埋3mai2買3mai3勱3mai4顢3man1'||
'悗3man2屘3man3曼3man4牤4mang1吂3man2莽3man3貓3mao1毛3mao2冇3mao3冃3mao4庅2me1沒3mei2毎3mei3妹3mei4椚3men1門3men2掹4meng1氓4mang2罞3mao2莔4meng2勐4meng3孟4meng4咪2mi1彌2mi2米2mi3冖2mi4宀4mian2丏4mian3靣4mian4喵4miao1'||
'苗4miao2杪4miao3妙4miao4乜3mie1滅3mie4民3min2皿3min3名4ming2佲4ming3命4ming4謬3miu4摸2mo1尛2mo2抹2mo3末2mo4哞3mou1牟3mou2某3mou3母2mu3木2mu4拏2na2乸2na3那2na4孻3nai2乃3nai3奈3nai4囡3nan1男3nan2赧3nan3婻3nan4'||
'囔4nang1乪4nang2擃4nang3儾4nang4孬3nao1呶3nao2堖3nao3鬧3nao4疒2ne4呢2ne1娞3nei3內3nei4嫩3nen4妮2ni1尼2ni2伱2ni3檷2ni4拈4nian1年4nian2涊4nian3卄4nian4娘5niang2釀5niang4鳥4niao3尿4niao4捏3nie1圼3nie4脌3nin1囜3nin2拰3nin3'||
'寧4ning2矃4ning3佞4ning4妞3niu1牛3niu2忸3niu3農4nong2繷4nong3弄4nong4羺3nou2啂3nou4奴2nu2努2nu3怒2nu4奻4nuan2渜4nuan3郍2na4挪3nuo2諾3nuo4女2nv3衂2nv4瘧3nve4筽2ou1吘2ou3慪2ou4妑2pa1杷2pa2帊2pa4拍3pai1俳3pai2'||
'哌3pai4眅3pan1爿3pan2坢3pan3冸3pan4乓4pang1龎4pang2嗙4pang3炐4pang4拋3pao1刨3pao2奅3pao4呸3pei1阫3pei2俖3pei3伂3pei4噴3pen1瓫3pen2呠3pen3喯3pen4匉4peng1芃4peng2捧4peng3掽4peng4丕2pi1皮2pi2匹2pi3屁2pi4片4pian1駢4pian2'||
'覑4pian3騙4pian4剽4piao1瓢4piao2殍4piao3票4piao4氕3pie1撇3pie3嫳3pie4姘3pin1玭3pin2品3pin3牝3pin4乒4ping1平4ping2釙2po1婆2po2叵2po3廹2po4剖3pou1抔3pou2咅3pou3僕2pu2攴2pu1圤2pu2樸2pu3舗2pu4七2qi1亓2qi2乞2qi3'||
'氣2qi4掐3qia1拤3qia3圶3qia4千4qian1仱4qian2凵4qian3欠4qian4嗆5qiang1強5qiang2搶5qiang3熗5qiang4悄4qiao1喬4qiao2巧4qiao3俏4qiao4切3qie4苆3qie1茄3qie2且3qie3厒3qie4親3qin1庈3qin2赾3qin3吢3qin4靑4qing1夝4qing2檾4qing3慶4qing4宆5qiong2'||
'丘3qiu1叴3qiu2搝3qiu3區2qv1佢2qv2取2qv3厺2qv4峑4qvan2犭4qvan3勸4qvan4炔3qve1瘸3qve2卻3qve4夋3qvn1峮3qvn2亽2ra1呥3ran2冄3ran3穣4rang2蕘3rao2擾3rao3繞3rao4惹2re3熱2re4人3ren2忍3ren3刃3ren4扔4reng1仍4reng2日2ri4'||
'戎4rong2冗4rong3厹3rou2韖3rou3肉3rou4嶿2ru2汝2ru3入2ru4堧4ruan2阮4ruan3桵3rui3汭3rui4閏3run4挼3ruo2叒3ruo4仨2sa1灑2sa3卅2sa4愢3sai1賽3sai4壭3san1傘3san3俕3san4桒4sang1嗓4sang3喪4sang4掻3sao1掃3sao3瘙3sao4色2se4'||
'森3sen1僧4seng1殺3sha1傻3sha3倽3sha4篩4shai1曬4shai4山4shan1閃4shan3訕4shan4傷5shang1裳5shang3丄5shang4弰4shao1勺4shao2少4shao3劭4shao4奢3she1舌3she2舍3she4申4shen1神4shen2審4shen3腎4shen4升5sheng1澠5sheng2省5sheng3聖5sheng4屍3shi1十3shi2'||
'史3shi3士3shi4収4shou1扌4shou3壽4shou4書3shu1秫3shu2屬3shu3朮3shu4刷4shua1耍4shua3誜4shua4衰5shuai1甩5shuai3帥5shuai4閂5shuan1涮5shuan4雙6shuang1爽6shuang3誰4shui2氵4shui3帨4shui4吮4shun3順4shun4說4shuo1妁4shuo4厶2si1死2si3巳2si4忪4song1'||
'慫4song3訟4song4凁3sou1螋3sou3瘶3sou4蘇2su1俗2su2玊2su4狻4suan1匴4suan3祘4suan4夊3sui1綏3sui2膸3sui3亗3sui4孫3sun1損3sun3潠3sun4唆3suo1所3suo3逤3suo4侤2ta1塔2ta3撻2ta4囼3tai1臺3tai2太3tai4坍3tan1壇3tan2忐3tan3'||
'嘆3tan4湯4tang1鏜4tang2帑4tang3燙4tang4仐3tao1匋3tao2討3tao3套3tao4忑2te4膯4teng1疼4teng2霯4teng4剔2ti1厗2ti2體2ti3戻2ti4天4tian1田4tian2忝4tian3舚4tian4旫4tiao1芀4tiao2宨4tiao3眺4tiao4怗3tie1鐵3tie3飻3tie4廳4ting1邒4ting2'||
'圢4ting3炵4tong1仝4tong2統4tong3慟4tong4偷3tou1亠3tou2妵3tou3透3tou4凸2tu1図2tu2土2tu3兎2tu4湍4tuan1團4tuan2疃4tuan3彖4tuan4推3tui1頹3tui2俀3tui3退3tui4吞3tun1黗3tun2氽3tun3乇3tuo1驝3tuo2彵3tuo3拓3tuo4屲2wa1瓦2wa3'||
'襪2wa4歪3wai1崴3wai3外3wai4乛3wan1丸3wan2宛3wan3萬3wan4尣4wang1亡4wang2網4wang3妄4wang4危3wei1囗3wei2偉3wei3衛3wei4昷3wen1文3wen2刎3wen3問3wen4翁4weng1甕4weng4撾2wo1我2wo3仴2wo4烏2wu1無2wu2五2wu3兀2wu4夕2xi1'||
'習2xi2杫2xi3匸2xi4呷3xia1匣3xia2閜3xia3丅3xia4仙4xian1伭4xian2冼4xian3縣4xian4鄉5xiang1瓨5xiang2享5xiang3向5xiang4灱4xiao1洨4xiao2小4xiao3孝4xiao4些3xie1劦3xie2寫3xie3伳3xie4忄3xin1枔3xin2伈3xin3伩3xin4興4xing1刑4xing2睲4xing3'||
'杏4xing4兇5xiong1雄5xiong2詗5xiong4休3xiu1苬3xiu2糔3xiu3秀3xiu4戌2xv1俆2xv2許2xv3旭2xv4吅4xvan1玄4xvan2選4xvan3怰4xvan4疶3xve1穴3xve2雪3xve3血3xve4坃3xve1廵3xvn2馴3xvn4杊3xvn2卂3xvn4丫2ya1牙2ya2厊2ya3劜2ya4咽3yan1'||
'訁3yan2夵3yan3厭3yan4央4yang1揚4yang2岟4yang3怏4yang4幺3yao1爻3yao2仸3yao3穾3yao4亪2ye1爺2ye2也2ye3業2ye4一2yi1乁2yi2乙2yi3乂2yi4囙3yin1冘3yin2廴3yin3印3yin4應4ying1盁4ying2矨4ying3用4yong4優3you1尢3you2友3you3'||
'又3you4扜2yv1於2yv2與2yv3蘌2yv4囦4yvan]元4yvan2遠4yvan3夗4yvan4曰3yve1月3yve4蒕3yvn1雲3yvn2允3yvn3孕3yvn4帀2za1雜2za2災3zai1宰3zai3再3zai4兂3zan1咱3zan2昝3zan3暫3zan4牂4zang1駔4zang3奘4zang4髒4zang1塟4zang4傮3zao1'||
'鑿3zao2早3zao3竈3zao4啫2ze2夨2ze4賊3zei2怎3zen3囎4zeng1曾4ceng2増4zeng1鋥4zeng4吒3zha1閘3zha2厏3zha3乍3zha4夈4zhai1宅4zhai2窄4zhai3債4zhai4沾4zhan1讝4zhan2佔4zhan4張5zhang1漲5zhang3丈5zhang4佋4zhao1爫4zhao3召4zhao4蜇3zhe1厇3zhe2'||
'者3zhe3這3zhe4貞4zhen1屒4zhen3圳4zhen4爭5zheng1氶5zheng3正5zheng4之3zhi1執3zhi2夂3zhi3至3zhi4中5zhong1腫5zhong3仲5zhong4州4zhou1妯4zhou2肘4zhou3紂4zhou4朱3zhu1竹3zhu2丶3zhu3佇3zhu4抓4zhua1爪4zhua3拽5zhuai1專5zhuan1轉5zhuan4妝6zhuang1壯6zhuang4'||
'隹4zhui1沝4zhui3墜4zhui4宒4zhun1準4zhun3訰4zhun4卓4zhuo2拙4zhuo1蠿4zhuo2仔2zi2孖2zi1籽2zi3字2zi4宗4zong1總4zong3縱4zong4鄒3zou1赱3zou3奏3zou4租2zu1卆2zu2詛2zu3躦4zuan1繤4zuan3鑽4zuan4厜3zui1嶊3zui3栬3zui4尊3zun1僔3zun3'||
'捘3zun4昨3zuo2左3zuo3讓4rang4作3zuo4談3tan2學3xue2';
l integer:=length(s);
c1 varchar2(32767):='';
c2 varchar2(2);
c3 varchar2(10);
c4 varchar2(10);
c5 varchar2(16);
type t is table of varchar2(10) index by binary_integer;
tc3 t;
c6 varchar2(2);
p1 integer;
p2 integer;
p3 integer;
begin
If Name Is Null Then
Return '' ;
End If;
if p_PYType = 0 then --返回漢字拼音的首字母
For i In 1..length(Name) Loop
lv_char := substr(Name,i,1);
--ZHS16GBK
If lengthb(lv_char) = 2 Then
Select replace(substrb(dump(lv_char,1010),instrb(dump(lv_char,1010),'ZHS16GBK:')),'ZHS16GBK: ','') Into lv_bytes from dual;
--UTF8
elsIf lengthb(lv_char) = 3 Then
Select replace(substrb(dump(convert(lv_char,'ZHS16GBK','UTF8'),1010),instrb(dump(convert(lv_char,'ZHS16GBK','UTF8'),1010),'UTF8:')),'UTF8: ','')
Into lv_bytes from dual;
end if;
if lv_bytes is not null then
li_pos:=instr(lv_bytes,',');
li_bytes:=substr(lv_bytes,1,li_pos-1)*256+substr(lv_bytes,li_pos+1);
if ( li_bytes < to_number('B0A1','xxxx')) Then
lv_temp:=lv_temp||'*';
Elsif ( li_bytes < to_number('B0C5','xxxx')) Then
lv_temp:=lv_temp||'a';
Elsif ( li_bytes < to_number('B2C1','xxxx')) Then
lv_temp:=lv_temp||'b';
Elsif ( li_bytes < to_number('B4EE','xxxx')) Then
lv_temp:=lv_temp||'c';
Elsif ( li_bytes < to_number('B6EA','xxxx')) Then
lv_temp:=lv_temp||'d';
Elsif ( li_bytes < to_number('B7A2','xxxx')) Then
lv_temp:=lv_temp||'e';
Elsif ( li_bytes < to_number('B8C1','xxxx')) Then
lv_temp:=lv_temp||'f';
Elsif ( li_bytes < to_number('B9FE','xxxx')) Then
lv_temp:=lv_temp||'g';
Elsif ( li_bytes < to_number('BBF7','xxxx')) Then
lv_temp:=lv_temp||'h';
Elsif ( li_bytes < to_number('BFA6','xxxx')) Then
lv_temp:=lv_temp||'j';
Elsif ( li_bytes < to_number('C0AC','xxxx')) Then
lv_temp:=lv_temp||'k';
Elsif ( li_bytes < to_number('C2E8','xxxx')) Then
lv_temp:=lv_temp||'l';
Elsif ( li_bytes < to_number('C4C3','xxxx')) Then
lv_temp:=lv_temp||'m';
Elsif ( li_bytes < to_number('C5B6','xxxx')) Then
lv_temp:=lv_temp||'n';
Elsif ( li_bytes < to_number('C5BE','xxxx')) Then
lv_temp:=lv_temp||'o';
Elsif ( li_bytes < to_number('C6DA','xxxx')) Then
lv_temp:=lv_temp||'p';
Elsif ( li_bytes < to_number('C8BB','xxxx')) Then
lv_temp:=lv_temp||'q';
Elsif ( li_bytes < to_number('C8F6','xxxx')) Then
lv_temp:=lv_temp||'r';
Elsif ( li_bytes < to_number('CBFA','xxxx')) Then
lv_temp:=lv_temp||'s';
Elsif ( li_bytes < to_number('CDDA','xxxx')) Then
lv_temp:=lv_temp||'t';
Elsif ( li_bytes < to_number('CEF4','xxxx')) Then
lv_temp:=lv_temp||'w';
Elsif ( li_bytes < to_number('D1B9','xxxx')) Then
lv_temp:=lv_temp||'x';
Elsif ( li_bytes < to_number('D4D1','xxxx')) Then
lv_temp:=lv_temp||'y';
Elsif ( li_bytes < to_number('D7FA','xxxx')) Then
lv_temp:=lv_temp||'z';
Else
lv_temp:=lv_temp||'*';
End If;
Else
lv_temp:=lv_temp||lv_char;
End If;
End Loop;
----DBMS_OUTPUT.put_line('test'||lv_temp);
out_word :=upper(lv_temp);
elsif p_PYType=1 then --返回漢字拼音
--DBMS_OUTPUT.put_line('NAME='||name||'p_PYType='||p_PYType);
for i in 1..length(name)
loop
c2:=substr(name,i,1);
p1:=floor(ascii(c2)/256);
p2:=mod(ascii(c2),256);
--DBMS_OUTPUT.put_line('start if c2='||ascii(c2));
if ascii(c2) between 1 and 128 then --ascii
c5:=c2;
elsif p1=127 or p2=255 or (p2 between 0 and 63) then
if not (nlssort(c2,'NLS_SORT=SCHINESE_STROKE_M')>nlssort('鶑','NLS_SORT=SCHINESE_STROKE_M')
and nlssort(c2,'NLS_SORT=SCHINESE_STROKE_M')<nlssort('︰','NLS_SORT=SCHINESE_STROKE_M'))
or ascii(c2) in (41398,41399)then
c5:=c2 ;
else
c5:='.';
end if;
else
p1:=to_number(instr(s,c2,1,1));
--DBMS_OUTPUT.put_line(' else p1='||p1);
if p1>0 then
p2:=to_number(substr(s,p1+1,1));
--DBMS_OUTPUT.put_line(' else p2='||p2);
c3:=substr(s,p1+2,p2+1);
--DBMS_OUTPUT.put_line(' else c3='||c3);
else
if tc3.count<2 then
p1:=1;
for i in 1..4000 --得到排序字符串的SQL
loop
exit when p1>=l;
p2:=substr(s,p1+1,1);
c4:=substr(s,p1,p2+3);
tc3(tc3.count+1):=c4;
p1:=p1+length(c4);
end loop;
end if;
for i in 2..tc3.count
loop
if nlssort(substr(tc3(i),1,1),'nls_sort=schinese_pinyin_m')>
nlssort(c2,'nls_sort=schinese_pinyin_m') then
c3:=tc3(i-1);
exit;
elsif i=tc3.count then
c3:=tc3(i);
end if;
end loop;
c3:=substr(c3,3);
end if;
if instr(c3,'ia',1,1)>0 or
instr(c3,'ua',1,1)>0 or
instr(c3,'va',1,1)>0 then --取要注音的元音，ia注音在a上，其它在第一個元音上
c6:='a';
elsif instr(c3,'ue',1,1)>0 or
instr(c3,'ie',1,1)>0 or
instr(c3,'ve',1,1)>0 then
c6:='e';
elsif instr(c3,'ui',1,1)>0 or
instr(c3,'ai',1,1)>0 then
c6:='i';
elsif instr(c3,'uo',1,1)>0 or
instr(c3,'io',1,1)>0 then
c6:='o';
elsif instr(c3,'iu',1,1)>0 then
c6:='u';
else
c6:=substr(c3,1,1);
if not c6 in ('a','e','i','o','u','v') then
c6:=substr(c3,2,1);
if not c6 in ('a','e','i','o','u','v') then
c6:=substr(c3,3,1);
end if;
end if;
end if;
if substr(c3,1,2) in ('jv','qv','xv','yv') then
c3:=substr(c3,1,1)||'u'||substr(c3,3);
elsif substr(c3,2,1)='v' and c6<>'v' then
c3:=substr(c3,1,1)||'ü'||substr(c3,3);
end if;
p3:=to_number(substr(c3,length(c3),1));
c3:=substr(c3,1,length(c3)-1);
--DBMS_OUTPUT.put_line(' else c6='||c6);
---- 帶出漢字
-- select c2||'['||replace(c3,c6,decode(c6||p3,
-- 'a0','a','a1','ā','a2','á','a3','ǎ','a4','à',
-- 'e0','e','e1','ē','e2','é','e3','ě','e4','è',
-- 'i0','i','i1','ī','i2','í','i3','ǐ','i4','ì',
-- 'o0','o','o1','ō','o2','ó','o3','ǒ','o4','ò',
-- 'u0','u','u1','ū','u2','ú','u3','ǔ','u4','ù',
-- 'v0','ü','v1','ǖ','v2','ǘ','v3','ǚ','v4','ǜ'
-- ))||'] '
--DBMS_OUTPUT.put_line(' else c2='||c2);
select replace(c3,c6,decode(c6||p3,
'a0','a','a1','ā','a2','á','a3','ǎ','a4','à',
'e0','e','e1','ē','e2','é','e3','ě','e4','è',
'i0','i','i1','ī','i2','í','i3','ǐ','i4','ì',
'o0','o','o1','ō','o2','ó','o3','ǒ','o4','ò',
'u0','u','u1','ū','u2','ú','u3','ǔ','u4','ù',
'v0','ü','v1','ǖ','v2','ǘ','v3','ǚ','v4','ǜ'
))||' '
into c5 from dual ;
end if;
c1:=c1||c5;
end loop;
----DBMS_OUTPUT.put_line(' else c1='||c1);
out_word:=c1;
----DBMS_OUTPUT.put_line(' else out_word='||out_word);
end if;
out_code := 0;
return out_word;
exception
when others then
out_code := -9;
pkg_pub.FSetDebugInfo(sqlcode||sqlerrm,null,null,i_Insert);
return(Name);
end GetPY;
--
----------------------------------------------------------------------------------------------------------------------------------------------------
--
end Pkg_Krs_Utils;