oracle中实现sepll,aspell函数

郤诗蕊

　　
　　自定义oracle函数,实现对汉字的全拼和简拼转换.
　　
　　简拼函数定义如下toSpell(varName):

CREATE OR REPLACE FUNCTION TOSPELL (Name in varchar2) return Varchar2 DETERMINISTIC   is
Result varchar2(200);
r varchar2(200) ;
begin
p_spell(name ,r ,result) ;
return(r);
end toSpell;
　　
　　全拼函数定义如下toAspell(varName):

CREATE OR REPLACE FUNCTION TOASPELL (Name in varchar2) return Varchar2 DETERMINISTIC   is
Result varchar2(200);
r varchar2(200) ;
begin
p_spell(name ,r ,result) ;
return(result);
end toaSpell;
　　
　　全拼和简拼的公共函数p_spell(name,r,result):

CREATE OR REPLACE PROCEDURE P_SPELL (
p_in_string  in   varchar2,
p_out_spell  out  varchar2,
p_out_aspell out  varchar2
) is
--*******************************************************
--模块功能：对输入的汉字
--输入参数：  p_in_string    输入字符串
--输出参数：  p_out_spell    输出简拼
--            p_out_aspell   输出全拼
--*******************************************************
v_in_string         varchar2(200);
v_in_char           varchar2(200);
v_out_spell_temp    varchar2(200);
v_out_spell         varchar2(200);
v_out_aspell_temp   varchar2(200);
v_out_aspell        varchar2(200);
V_i                 integer;
v_ascii             integer;
v_word_number       integer;
begin
v_i := 0;
v_out_spell :=null;
v_out_aspell :=null;
v_in_string := ltrim(rtrim(p_in_string));
while (v_i<length(v_in_string))
loop
v_i:=v_i+1;
v_in_char := Substr(v_in_string,v_i,1);
select ascii(v_in_char) into v_ascii from dual;
if v_ascii <> 32 then
select count(word) into v_word_number from spell where word = v_in_char;
if v_word_number>0 then
select spell into v_out_spell_temp from spell where word = v_in_char;
select aspell into v_out_aspell_temp from spell where word = v_in_char;
v_out_spell := v_out_spell || v_out_spell_temp;
v_out_aspell := v_out_aspell || v_out_aspell_temp;
end if;
end if;
end loop;
p_out_spell:=v_out_spell;
p_out_aspell:=v_out_aspell;
end P_SPELL;

　　
　　
　　spell表用于存放大部分汉字的全拼及简拼码,可以从附件中下载.oracle10.2G的DMP文件.和Excel文件 .