[Dica] Abreviar nomes p/ caber em X caracteres.

Seg, 14 Jul 2008 2:42 pm

Esta função promete abreviar o NOME pra caber em X caracteres.

FUNCTION ABREVIAR_NOME(P_NOME IN VARCHAR2, P_TAMANHO IN NUMBER)RETURN VARCHAR2 IS
    C_NM_USUARIO             VARCHAR2(200):=UPPER(LTRIM(RTRIM(P_NOME)));
    C_PRIMEIRO_NOME          VARCHAR2(200):=NULL;
    C_ULTIMO_NOME            VARCHAR2(200):=NULL;
    C_NOME_DO_MEIO           VARCHAR2(200):=NULL;
    C_ABREVIACAO             VARCHAR2(200):=NULL;
    N_INICIO_DO_NOME_DO_MEIO NUMBER:=NULL;
    N_FIM_DO_NOME_DO_MEIO    NUMBER:=NULL;
  BEGIN
    IF LENGTH(C_NM_USUARIO) > P_TAMANHO THEN
      C_NM_USUARIO:=REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(C_NM_USUARIO,'.',''),' ','#'),'#DA#','#'),'#DE#','#'),'#DI#','#'),'#DO#','#'),'#DU#','#'),'#DOS#','#');
    END IF;
    IF LENGTH(C_NM_USUARIO) > P_TAMANHO THEN
      /* Encontrar o primeiro nome */
      FOR I_CONTADOR IN 1..LENGTH(C_NM_USUARIO) LOOP
        IF SUBSTR(C_NM_USUARIO,I_CONTADOR,1)='#' THEN
          C_PRIMEIRO_NOME:=SUBSTR(C_NM_USUARIO,1,(I_CONTADOR-1));
          N_INICIO_DO_NOME_DO_MEIO:=I_CONTADOR+1;
          EXIT;
        END IF;
      END LOOP;

      IF INSTR (C_NM_USUARIO,'#') = 0 THEN
        C_PRIMEIRO_NOME := C_NM_USUARIO;
      ELSE   
        /* Encontrar o último nome */
        FOR I_CONTADOR IN REVERSE 1..LENGTH(C_NM_USUARIO) LOOP
          IF SUBSTR(C_NM_USUARIO,I_CONTADOR,1) = '#' THEN
            C_ULTIMO_NOME:=SUBSTR(C_NM_USUARIO,I_CONTADOR+1,LENGTH(C_NM_USUARIO)-I_CONTADOR);
            N_FIM_DO_NOME_DO_MEIO:=I_CONTADOR;
            IF C_ULTIMO_NOME IN ('JUNIOR','JÚNIOR') THEN
              C_ULTIMO_NOME:='JR';
            ELSIF C_ULTIMO_NOME IN ('FILHO','FILHA') THEN
              C_ULTIMO_NOME:='FH';
            ELSIF C_ULTIMO_NOME IN ('NETO','NETA') THEN
              C_ULTIMO_NOME:='NT';
            ELSIF C_ULTIMO_NOME IN ('SOBRINHO','SOBRINHA') THEN
              C_ULTIMO_NOME:='SB';
            ELSE
              C_ULTIMO_NOME:=C_ULTIMO_NOME;
            END IF;
            EXIT;
          END IF;
        END LOOP;

        C_NOME_DO_MEIO:=LTRIM(RTRIM(SUBSTR(C_NM_USUARIO,N_INICIO_DO_NOME_DO_MEIO-1,N_FIM_DO_NOME_DO_MEIO-N_INICIO_DO_NOME_DO_MEIO+2)));
        C_NM_USUARIO:=LTRIM(RTRIM(C_PRIMEIRO_NOME))||C_NOME_DO_MEIO||LTRIM(RTRIM(C_ULTIMO_NOME));

        /* Abreviação do nome do meio */
        WHILE (NVL(LENGTH(C_PRIMEIRO_NOME),0)+NVL(LENGTH(C_ABREVIACAO),0)+NVL(LENGTH(C_NOME_DO_MEIO),0)+NVL(LENGTH(C_ULTIMO_NOME),0)) > P_TAMANHO LOOP
          IF C_NOME_DO_MEIO <> '#' THEN
            FOR I_CONTADOR IN 1..LENGTH(C_NOME_DO_MEIO) LOOP
              IF SUBSTR(C_NOME_DO_MEIO,I_CONTADOR+1,1)='#' THEN
                C_ABREVIACAO:=C_ABREVIACAO||SUBSTR(C_NOME_DO_MEIO,1,2);
                C_NOME_DO_MEIO:=SUBSTR(C_NOME_DO_MEIO,I_CONTADOR+1,LENGTH(C_NOME_DO_MEIO)-I_CONTADOR);
                EXIT;
              END IF;
            END LOOP;
          ELSE
            EXIT;
          END IF;
        END LOOP;
      END IF;

      /*
        Caso após abreviado os nomedo do meio, mesmo assim no nome não couber na quantidade disponível de caracteres
        a funcao ira suprimir os nomes da direita para a esquerda 08.04.2002
      */
      WHILE (P_TAMANHO-LENGTH(C_PRIMEIRO_NOME)-LENGTH(C_ULTIMO_NOME)) < LENGTH(C_ABREVIACAO)+1 LOOP
        C_ABREVIACAO:=SUBSTR(C_ABREVIACAO,3,LENGTH(C_ABREVIACAO)-2);
      END LOOP;

      /* Se o tamanho ainda for maior. Abreviar o primeiro nome. As linhas abaixo foram comentadas em 08.04.2002  */
      --IF (NVL(LENGTH(C_PRIMEIRO_NOME),0)+NVL(LENGTH(C_ABREVIACAO),0)+NVL(LENGTH(C_NOME_DO_MEIO),0)+NVL(LENGTH(C_ULTIMO_NOME),0)) > P_TAMANHO THEN
      --  C_PRIMEIRO_NOME:=SUBSTR(C_PRIMEIRO_NOME,1,1);
      --END IF;

      /* Se o tamanho ainda for maior. Abreviar o ultimo nome As linhas abaixo foram comentadas em 08.04.2002  */
      --IF (NVL(LENGTH(C_PRIMEIRO_NOME),0)+NVL(LENGTH(C_ABREVIACAO),0)+NVL(LENGTH(C_NOME_DO_MEIO),0)+NVL(LENGTH(C_ULTIMO_NOME),0)) > P_TAMANHO THEN
      --  C_ULTIMO_NOME:=SUBSTR(C_ULTIMO_NOME,1,1);
      --END IF;

      /* Se o tamanho ainda for maior. Enviar mensagem de erro */
      IF (NVL(LENGTH(C_PRIMEIRO_NOME),0)+NVL(LENGTH(C_ABREVIACAO),0)+NVL(LENGTH(C_NOME_DO_MEIO),0)+NVL(LENGTH(C_ULTIMO_NOME),0)) > P_TAMANHO THEN
        C_NM_USUARIO:='NÃO FOI POSSÍVEL ABREVIAR';
      ELSE
        C_NM_USUARIO:=LTRIM(RTRIM(C_PRIMEIRO_NOME))||C_ABREVIACAO||C_NOME_DO_MEIO||LTRIM(RTRIM(C_ULTIMO_NOME));
      END IF;
    END IF;
    RETURN(REPLACE(C_NM_USUARIO,'#',' '));
  END;
/

[Dica] Abreviar nomes p/ caber em X caracteres.

Quem está online