zoukankan      html  css  js  c++  java
  • Oracle的汉字转拼音首字母的函数

    CREATE OR REPLACE 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
          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';
         END IF;
        END LOOP;
        RETURN V_RETURN;
       END;
  • 相关阅读:
    [CF724G]Xor-matic Number of the Graph
    [SOJ #537]不包含 [CF102129I]Incomparable Pairs(2019-8-6考试)
    [SOJ #538]好数 [CC]FAVNUM(2019-8-6考试)
    [洛谷P4052][JSOI2007]文本生成器
    [洛谷P3966][TJOI2013]单词
    [洛谷P5158]【模板】多项式快速插值
    [洛谷P3227][HNOI2013]切糕
    【bzoj】3477: [Usaco2014 Mar]Sabotage 01分数规划
    【SPOJ
    【以前的空间】系列
  • 原文地址:https://www.cnblogs.com/goto/p/2443349.html
Copyright © 2011-2022 走看看