CREATE OR REPLACE FUNCTION GetHzPYCAP(p_String varchar2) --?????
RETURN VARCHAR2 IS
--declare
--p_String varchar2(200) := '???????';
v_char varchar2(2); --????
n_loop number; --??
n_len number; --????
n_ascii number; --??ASCII?
n_ord_high number; --n_ascii/156
n_ord_low number; --n mod 256
n_temp number;
n_temp1 number;
v_PY varchar2(32767);
BEGIN
if p_String IS NULL then
RETURN '';
end if;
v_PY := '';
n_len := length(p_String);
FOR n_loop IN 1..n_len LOOP
v_char := substr(p_string,n_loop,1);
IF upper(v_char) IN (
'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','Z',
'0','1','2','3','4','5','6','7','8','9',
'(', ')', '[', ']','.', '!', '@', '#', '$',
'%', '^', '&', '*', '-', '+','<', '>', '?', ':', '"') THEN
v_PY := v_PY||v_char;
ELSE
n_ascii := ascii(v_char);
n_ord_high := trunc(n_ascii/256,0);
n_ord_low := n_ascii-(n_ord_high*256);
--DBMS_OUTPUT.PUT_LINE('n_ascii = '||to_char(n_ascii,'9999999'));
--DBMS_OUTPUT.PUT_LINE('n_ord_high = '||to_char(n_ord_high,'9999999'));
--DBMS_OUTPUT.PUT_LINE('n_ord_low = '||to_char(n_ord_low,'9999999'));
IF (n_ord_high>128) and (n_ord_low>63) THEN
CASE n_ord_high
WHEN 162 THEN --????
IF n_ord_low>160 THEN
v_PY := v_PY||get_roma_num_py(n_ord_low-160);
END IF;
WHEN 163 THEN --??ASCII
IF n_ord_low>128 THEN
v_char := chr(n_ord_low-128);
IF upper(v_char) IN (
'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','Z',
'0','1','2','3','4','5','6','7','8','9',
'(', ')', '[', ']') THEN
v_PY := v_PY||v_char;
END IF;
END IF;
WHEN 166 THEN --????
IF (n_ord_low>160) AND (n_ord_low<185) THEN --A1--B8
v_PY := v_PY||get_greece_alphabet_py(n_ord_low-160);
ELSE
IF (n_ord_low>192) AND (n_ord_low<217) THEN --C1--D8
v_PY := v_PY||get_greece_alphabet_py(n_ord_low-192);
END IF;
END IF;
ELSE
BEGIN
n_temp := n_ord_high-128;
n_ord_low := n_ord_low-63;
n_temp1 := trunc(n_temp/10,0);
n_temp1 := n_temp-n_temp1*10;
IF n_temp1=0 THEN
n_temp1 := 10;
END IF;
--DBMS_OUTPUT.PUT_LINE('n_temp = '||to_char(n_temp,'9999999'));
--DBMS_OUTPUT.PUT_LINE('n_temp1 = '||to_char(n_temp1,'9999999'));
CASE
WHEN n_temp<11 THEN
n_temp1 := get_py_index_01(n_temp1,n_ord_low);
WHEN n_temp<21 THEN
n_temp1 := get_py_index_02(n_temp1,n_ord_low);
WHEN n_temp<31 THEN
n_temp1 := get_py_index_03(n_temp1,n_ord_low);
WHEN n_temp<41 THEN
n_temp1 := get_py_index_04(n_temp1,n_ord_low);
WHEN n_temp<51 THEN
n_temp1 := get_py_index_05(n_temp1,n_ord_low);
WHEN n_temp<61 THEN
n_temp1 := get_py_index_06(n_temp1,n_ord_low);
WHEN n_temp<71 THEN
n_temp1 := get_py_index_07(n_temp1,n_ord_low);
WHEN n_temp<81 THEN
n_temp1 := get_py_index_08(n_temp1,n_ord_low);
WHEN n_temp<91 THEN
n_temp1 := get_py_index_09(n_temp1,n_ord_low);
WHEN n_temp<101 THEN
n_temp1 := get_py_index_10(n_temp1,n_ord_low);
WHEN n_temp<111 THEN
n_temp1 := get_py_index_11(n_temp1,n_ord_low);
WHEN n_temp<121 THEN
n_temp1 := get_py_index_12(n_temp1,n_ord_low);
WHEN n_temp<121 THEN
n_temp1 := get_py_index_13(n_temp1,n_ord_low);
ELSE
n_temp1 := 0;
END CASE;
v_PY := v_PY||substr(GetHzPY_by_index(n_temp1),1,1);
END;
END CASE;
END IF;
END IF;
END LOOP;
RETURN v_PY;
--DBMS_OUTPUT.PUT_LINE(v_PY);
END GetHzPYCAP;
/
CREATE OR REPLACE FUNCTION FTGM.GetHzPY_by_index(
p_PY_Index number)
RETURN VARCHAR2 IS
v_PY_List THZPY_LIST := THZPY_LIST(
'a', 'aes', 'ai', 'an', 'ang', 'ao', 'ba', 'bai', 'baike', 'baiwa',
'ban', 'bang', 'bao', 'be', 'bei', 'ben', 'beng', 'bi', 'bia', 'bian',
'biao', 'bie', 'bin', 'bing', 'bo', 'bu', 'ca', 'cai', 'cal', 'can',
'cang', 'cao', 'ce', 'cen', 'ceng', 'ceok', 'ceom', 'ceon', 'ceor', 'cha',
'chai', 'chan', 'chang', 'chao', 'che', 'chen', 'cheng', 'chi', 'chong', 'chou',
'chu', 'chua', 'chuai', 'chuan', 'chuang', 'chui', 'chun', 'chuo', 'ci', 'cis',
'cong', 'cou', 'cu', 'cuan', 'cui', 'cun', 'cuo', 'da', 'dai', 'dan',
'dang', 'dao', 'de', 'defa', 'dei', 'deli', 'dem', 'den', 'deng', 'deo',
'di', 'dia', 'dian', 'diao', 'die', 'dim', 'ding', 'diu', 'dong', 'dou',
'du', 'duan', 'dug', 'dui', 'dul', 'dun', 'duo', 'e', 'ei', 'en',
'eng', 'eo', 'eol', 'eom', 'eos', 'er', 'fa', 'fan', 'fang', 'fei',
'fen', 'feng', 'fenwa', 'fiao', 'fo', 'fou', 'fu', 'fui', 'ga', 'gad',
'gai', 'gan', 'gang', 'gao', 'ge', 'gei', 'gen', 'geng', 'geo', 'geu',
'gib', 'go', 'gong', 'gongli', 'gou', 'gu', 'gua', 'guai', 'guan', 'guang',
'gui', 'gun', 'guo', 'ha', 'hai', 'hal', 'han', 'hang', 'hao', 'haoke',
'he', 'hei', 'hem', 'hen', 'heng', 'heui', 'ho', 'hol', 'hong', 'hou',
'hu', 'hua', 'huai', 'huan', 'huang', 'hui', 'hun', 'huo', 'hwa', 'hweong',
'i', 'ji', 'jia', 'jialun', 'jian', 'jiang', 'jiao', 'jie', 'jin', 'jing',
'jiong', 'jiu', 'jou', 'ju', 'juan', 'jue', 'jun', 'ka', 'kai', 'kal',
'kan', 'kang', 'kao', 'ke', 'keg', 'kei', 'kem', 'ken', 'keng', 'keo',
'keol', 'keop', 'keos', 'keum', 'ki', 'kong', 'kos', 'kou', 'ku', 'kua',
'kuai', 'kuan', 'kuang', 'kui', 'kun', 'kuo', 'kweok', 'kwi', 'la', 'lai',
'lan', 'lang', 'lao', 'le', 'lei', 'lem', 'len', 'leng', 'li', 'lia',
'lian', 'liang', 'liao', 'lie', 'lin', 'ling', 'liu', 'liwa', 'lo', 'long',
'lou', 'lu', 'luan', 'lue', 'lun', 'luo', 'lv', 'm', 'ma', 'mai',
'man', 'mang', 'mangmi', 'mao', 'mas', 'me', 'mei', 'men', 'meng', 'meo',
'mi', 'mian', 'miao', 'mie', 'min', 'ming', 'miu', 'mo', 'mol', 'mou',
'mu', 'myeo', 'myeon', 'myeong', 'n', 'na', 'nai', 'nan', 'nang', 'nao',
'ne', 'nei', 'nem', 'nen', 'neng', 'neus', 'ng', 'ngag', 'ngai', 'ngam',
'ni', 'nian', 'niang', 'niao', 'nie', 'nin', 'ning', 'niu', 'nong', 'nou',
'nu', 'nuan', 'nue', 'nun', 'nung', 'nuo', 'nv', 'nve', 'o', 'oes',
'ol', 'on', 'ou', 'pa', 'pai', 'pak', 'pan', 'pang', 'pao', 'pei',
'pen', 'peng', 'peol', 'phas', 'phdeng', 'phoi', 'phos', 'pi', 'pian', 'piao',
'pie', 'pin', 'ping', 'po', 'pou', 'ppun', 'pu', 'q', 'qi', 'qia',
'qian', 'qiang', 'qianke', 'qianwa', 'qiao', 'qie', 'qin', 'qing', 'qiong', 'qiu',
'qu', 'quan', 'que', 'qun', 'ra', 'ram', 'ran', 'rang', 'rao', 're',
'ren', 'reng', 'ri', 'rong', 'rou', 'ru', 'rua', 'ruan', 'rui', 'run',
'ruo', 'sa', 'saeng', 'sai', 'sal', 'san', 'sang', 'sao', 'se', 'sed',
'sei', 'sen', 'seng', 'seo', 'seon', 'sha', 'shai', 'shan', 'shang', 'shao',
'she', 'shei', 'shen', 'sheng', 'shi', 'shike', 'shiwa', 'shou', 'shu', 'shua',
'shuai', 'shuan', 'shuang', 'shui', 'shun', 'shuo', 'shw', 'si', 'so', 'sol',
'song', 'sou', 'su', 'suan', 'sui', 'sun', 'suo', 'ta', 'tae', 'tai',
'tan', 'tang', 'tao', 'tap', 'te', 'tei', 'teng', 'teo', 'teul', 'teun',
'ti', 'tian', 'tiao', 'tie', 'ting', 'tiu', 'tol', 'ton', 'tong', 'tou',
'tu', 'tuan', 'tui', 'tun', 'tuo', 'uu', 'wa', 'wai', 'wan', 'wang',
'wei', 'wen', 'weng', 'wie', 'wo', 'wu', 'xi', 'xia', 'xian', 'xiang',
'xiao', 'xie', 'xin', 'xing', 'xiong', 'xiu', 'xu', 'xuan', 'xue', 'xun',
'ya', 'yan', 'yang', 'yao', 'ye', 'yen', 'yi', 'yin', 'ying', 'yo',
'yong', 'you', 'yu', 'yuan', 'yue', 'yug', 'yun', 'za', 'zad', 'zai',
'zan', 'zang', 'zao', 'ze', 'zei', 'zen', 'zeng', 'zha', 'zhai', 'zhan',
'zhang', 'zhao', 'zhe', 'zhei', 'zhen', 'zheng', 'zhi', 'zhong', 'zhou', 'zhu',
'zhua', 'zhuai', 'zhuan', 'zhuang', 'zhui', 'zhun', 'zhuo', 'zi', 'zo', 'zong',
'zou', 'zu', 'zuan', 'zui', 'zun', 'zuo'
);
BEGIN
IF (p_PY_Index>0) AND (p_PY_Index<527) THEN
--RETURN INITCAP(v_PY_List(p_PY_Index));
RETURN v_PY_List(p_PY_Index);
ELSE
RETURN '';
END IF;
END GetHzPY_by_index;
/
