sp_stringtopinyin.sql

Delphi6开发的HIS程序

create or replace function sp_stringtopinyin
(
  s in out varchar2
)
return varchar2
is
  pinyin varchar2(128) default '';
  i integer;
begin
  s := trim(s);
  for i in 1..length(s) loop
    pinyin := pinyin || sp_chartopinyin(substr(s, i, 1));
    dbms_output.put_line(substr(s, i, 1));
  end loop;
  return pinyin;
end;
/