zoukankan      html  css  js  c++  java
  • oracle function 获取拼音首字母

    CREATE OR REPLACE FUNCTION F_GET_PY_CAP(P_NAME IN VARCHAR2) RETURN VARCHAR2 AS
      V_WORD    VARCHAR2(10);
      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 .. LENGTH(P_NAME) LOOP
        V_WORD    := SUBSTR(P_NAME, I, 1);
        V_COMPARE := F_NLSSORT(V_WORD);
        IF V_COMPARE >= F_NLSSORT('a') AND V_COMPARE <= F_NLSSORT('z') THEN
          V_RETURN := V_RETURN || V_WORD;
        ELSIF V_COMPARE >= F_NLSSORT('A') AND V_COMPARE <= F_NLSSORT('Z') THEN
          V_RETURN := V_RETURN || V_WORD;
        ELSIF V_COMPARE >= F_NLSSORT('0') AND V_COMPARE <= F_NLSSORT('9') THEN
          V_RETURN := V_RETURN || V_WORD;
        ELSIF 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
          V_RETURN := V_RETURN || 'G';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'H';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'J';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'K';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'L';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'M';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'N';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'O';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'P';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'Q';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'R';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'S';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'T';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'W';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'X';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'Y';
        ELSIF V_COMPARE >= F_NLSSORT('') AND V_COMPARE <= F_NLSSORT('') THEN
          V_RETURN := V_RETURN || 'Z';
        ELSE
          V_RETURN := V_RETURN || SUBSTR(P_NAME, I, 1);
        END IF;
      END LOOP;
      RETURN UPPER(V_RETURN);
    END;
  • 相关阅读:
    Linux shell 常用命令记录
    [Bat]批量重命名文件
    【转】java术语(PO/POJO/VO/BO/DAO/DTO)
    TesseractOCR3.0语言库训练步骤
    关于Delphi Rtti对应TDatetime的一些启示
    Ubuntu Server 12.04 安装mysql 5.6.10
    Delphi透明 圆角 窗体 【转】
    奇怪的~用法
    很有用的VS2005插件——SlickEdit
    还不习惯Office 2007
  • 原文地址:https://www.cnblogs.com/xuhj/p/4224260.html
Copyright © 2011-2022 走看看