oracle数据库生成拼音码,Oracle 生成拼音码

﹏ヽ暗。殇╰゛Y 2023-01-18 04:29 95阅读 0赞

CREATE OR REPLACE FUNCTION fgetpy (v\_str VARCHAR2)      RETURN VARCHAR2   AS      v\_strlen   INT;      v\_return   VARCHAR2 (500);      v\_ii       INT;      v\_n        INT;      v\_c        VARCHAR2 (2);      v\_chn      VARCHAR2 (2);      v\_rc       VARCHAR2 (500);   /\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*   生成汉字拼音码的函数。　wallimn 2009-06-21    \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*/   BEGIN      --dbms\_output.put\_line(v\_str);      v\_rc := v\_str;      v\_strlen := LENGTH (v\_rc);      v\_return := '';      v\_ii := 0;         WHILE v\_ii < v\_strlen      LOOP         v\_ii := v\_ii + 1;         v\_n := 63;            SELECT SUBSTR (v\_rc, v\_ii, 1)           INTO v\_chn           FROM DUAL;            SELECT v\_n + MAX (rowsf)           INTO v\_n           FROM (SELECT chn, ROWNUM rowsf                   FROM (SELECT   chn                             FROM (SELECT '吖' chn                                     FROM DUAL                                   UNION                                   SELECT '八'                                     FROM DUAL                                   UNION ALL                                   SELECT '嚓'                                     FROM DUAL                                   UNION ALL                                   SELECT '咑'                                     FROM DUAL                                   UNION ALL                                   SELECT '妸'                                     FROM DUAL                                   UNION ALL                                   SELECT '发'                                     FROM DUAL                                   UNION ALL                                   SELECT '旮'                                     FROM DUAL                                   UNION ALL                                   SELECT '铪'                                     FROM DUAL                                   UNION ALL                                   SELECT '丌'                                     FROM DUAL              --because have no 'i'                                   UNION ALL                                   SELECT '丌'                                     FROM DUAL                                   UNION ALL                                   SELECT '咔'                                     FROM DUAL                                   UNION ALL                                   SELECT '垃'                                     FROM DUAL                                   UNION ALL                                   SELECT '嘸'                                     FROM DUAL                                   UNION ALL                                   SELECT '拏'                                     FROM DUAL                                   UNION ALL                                   SELECT '噢'                                     FROM DUAL                                   UNION ALL                                   SELECT '妑'                                     FROM DUAL                                   UNION ALL                                   SELECT '七'                                     FROM DUAL                                   UNION ALL                                   SELECT '呥'                                     FROM DUAL                                   UNION ALL                                   SELECT '仨'                                     FROM DUAL                                   UNION ALL                                   SELECT '他'                                     FROM DUAL                                   UNION ALL                                   SELECT '屲'                                     FROM DUAL                                   UNION ALL                                   SELECT '屲'                                     FROM DUAL                                   UNION ALL                                   SELECT '屲'                                     FROM DUAL                                   UNION ALL                                   SELECT '夕'                                     FROM DUAL                                   UNION ALL                                   SELECT '丫'                                     FROM DUAL                                   UNION ALL                                   SELECT '帀'                                     FROM DUAL                                   UNION ALL                                   SELECT v\_chn                                     FROM DUAL) a                         ORDER BY NLSSORT (chn, 'NLS\_SORT=SCHINESE\_PINYIN\_M')) c) b          WHERE chn = v\_chn;            v\_c := CHR (v\_n);            IF CHR (v\_n) = '@'         THEN                                                      --英文直接返回            v\_c := v\_chn;         END IF;            v\_return := v\_return || v\_c;         v\_return := lower(v\_return);      END LOOP;         RETURN v\_return;   END fgetpy;