Oracle获取拼音简码系统

 Create Or Replace Function WSF_GetSpellCode

    
 (
    
         v_Instr  In Varchar2,
    
         v_OutNum In Integer := 10
    
 ) Return Varchar2 Is
    
         v_Spell Varchar2(40);
    
         v_Input Varchar2(1000);
    
         v_Bitchar Varchar2(2);
    
         v_Bitnum Integer;
    
         v_Chrnum Integer;
    
         v_OutMaxNum Integer;
    
         v_Stdstr Varchar2(50) := '芭擦搭蛾发噶哈击-喀垃妈拿哦啪期然撒塌挖-挖昔压匝';
    
         v_Chara Varchar2(2000) := '吖锕錒嗄锿鎄捱嗳躷﨟譪霭靄砹嗌嫒暧瑷賹鴱譺鑀鱫靉桉庵谙誝鞌諳闇鮟鵪韽鶕雸埯铵隌揞銨犴豻貋錌黯醠坳軪隞嗷廒獒遨謷鳌鏖鰲鷔鼇拗媪镺岙骜謸鏊鹌聱螯';
    
         v_Charb Varchar2(2000) := '岜