基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

将汉字转换成拼音和五笔

function f_Pinyin(p_Name in varchar2) return varchar2 as
    v_Compare varchar2(100);
    v_Return  varchar2(4000);
  
    function f_Nlssort(p_Word in varchar2) return varchar2 as
    begin
      return Nlssort(p_Word, 'NLS_SORT=SCHINESE_PINYIN_M');
    end;
  begin
  
    for i in 1 .. Nvl(Length(p_Name), 0) loop
      v_Compare := f_Nlssort(Substr(p_Name, i, 1));
      if v_Compare >= f_Nlssort('吖') and v_Compare <= f_Nlssort('驁') then
        v_Return := v_Return || 'A';
      elsif v_Compare >= f_Nlssort('八') and v_Compare <= f_Nlssort('簿') then
        v_Return := v_Return || 'B';
      elsif v_Compare >= f_Nlssort('嚓') and v_Compare <= f_Nlssort('錯') then
        v_Return := v_Return || 'C';
      elsif v_Compare >= f_Nlssort('咑') and v_Compare <= f_Nlssort('鵽') then
        v_Return := v_Return || 'D';
      elsif v_Compare >= f_Nlssort('妸') and v_Compare <= f_Nlssort('樲') then
        v_Return := v_Return || 'E';
      elsif v_Compare >= f_Nlssort('发') and v_Compare <= f_Nlssort('猤') then
        v_Return := v_Return || 'F';
      elsif v_Compare >= f_Nlssort('旮') and v_Compare <= f_Nlssort('腂') then