Páginas

segunda-feira, 16 de novembro de 2015

[Oracle] - Função para Retornar partes de um texto(string)


Bom pessoal, vou compartilhar uma função que retorna valores por parte de um texto especifico que estou utilizando, facilitando a utilização de particionamento de texto utilizando um carácter como ponto de particionamento:

CREATE OR REPLACE FUNCTION STRIPART(iTEXT VARCHAR2,
                     iCARA CHAR,
                     iINIC INTEGER,
                     iFINA INTEGER,
                     iTUDO INTEGER DEFAULT 1) RETURN VARCHAR2 AS
      vTEXT VARCHAR2(500) := iTEXT;
      vINIC INTEGER := 0;
      vFINA INTEGER := 0;
   BEGIN
      IF iINIC = 0
      THEN
         -- SE FOR ZERO É INICIO DE STRING SEMPRE
         vINIC := 1;
      ELSE
         -- PEGA A POSIÇÃO DO CARACTER iCARA
         vINIC := INSTR(iTEXT, iCARA, 1, iINIC) + 1;
      END IF;
      IF INSTR(iTEXT, iCARA, 1, iFINA) = 0
      THEN
         -- SE NAO ENCONTRAR O CARACTER FINAL PEGA TODA A STRING
         IF iTUDO = 1
         THEN
            vFINA := LENGTH(iTEXT);
         ELSE
            vFINA := 0;
         END IF;
      ELSE
         vFINA := INSTR(iTEXT, iCARA, 1, iFINA) - vINIC;
      END IF;
      vTEXT := SUBSTR(vTEXT, vINIC, vFINA);
      RETURN vTEXT;
   END;



Nenhum comentário:

Postar um comentário