拼音码转换2

拼音码转换2

CREATE OR REPLACE FUNCTION PUB_GET_STRING_PY(strs varchar2)
return varchar2
is
/***********************************
过程名称：PUB_GET_STRING_PY
功能：生成汉字字符串的拼音首字符
开发者：贺佳利
联系方式：
最后修改时间：2009.09.09
说明：
修改记录：
      2009.09.09 贺佳利 创建
**********************************/
v_length number;
v_char varchar2(2);
v_charlength number;
v_charPY varchar2(2);
i int:=1;
myresult varchar2(500):='';
begin
--获取字符串长度
v_length:=length(strs);
while i<=v_length
loop
   --按顺序取得字符
   v_char:=substr(strs,i,1);
   v_charlength:=lengthb(rtrim(v_char));
   v_charPY:=rtrim(v_char);
   --判断是否是汉字
   if v_charlength=2 then
     v_charPY:=pub_get_py(rtrim(v_char));
   end if;
   --将拼音进行连接
   myresult:=myresult || v_charPY;
   i:=i+1;
end loop;
return myresult;
end PUB_GET_STRING_PY;