PAD( )

 Llena valores de caracteres, fechas y numéricos con caracteres de relleno

Sintaxis

     PADL(<exp>, <nLongitud>, [<cCarRelleno>]) –> cCadenaRellena

     PADC(<exp>, <nLongitud>, [<cCarRelleno>]) –> cCadenaRellena

     PADR(<exp>, <nLongitud>, [<cCarRelleno>]) –> cCadenaRellena

 Argumentos

<exp> es el valor de caracteres, numérico o de fechas que se va a rellenar.

<nLongitud> es la longitud de la cadena de caracteres que se va a devolver.

<cCarRelleno> es el carácter con el que se va a rellenar <exp>. Si no se especifica, el valor por defecto es caracteres de espacio.

Devuelve

PADC(), PADL() y PADR() devuelven como resultado una cadena formada por <exp> y rellenada con <cCarRelleno> hasta una longitud total de <nLongitud>.

Descripción

PADC(), PADL() y PADR() son funciones que rellenan valores de caracteres, fecha o numéricos con un carácter de relleno determinado creando una nueva cadena de caracteres con una longitud especificada. PADC() centra <exp> dentro de <nLongitud>, añadiendo caracteres de relleno en los extremos izquierdo y derecho; PADL() añade los caracteres de relleno a la izquierda y PADR() los añade a la derecha. Si la longitud de <exp> excede <nLongitud>, todas las funciones PAD() truncan cCadenaRellena en <nLongitud>.

PADC(), PADL() y PADR() muestran en pantalla cadenas de longitud variable dentro de un área de longitud fija. Pueden utilizarse, por ejemplo, para asegurar una alineación determinada al utilizar mandatos ?? consecutivos. Otra aplicación es para mostrar texto en un área de pantalla de anchura fija y asegurarse de que el texto anterior se sobreescriba completamente.

PADC(), PADL() y PADR() son las funciones inversas de ALLTRIM(), RTRIM() y LTRIM(), que eliminan los espacios iniciales y finales en blanco de las cadenas de caracteres.

Ejemplos

     ¦  Este ejemplo utiliza PADR() para dar formato a la visualización de un número de registro en una línea de estado, rellenando el espacio asignado:

        IF EOF()

           @ 23, 45 PADR(“EOF/” + LTRIM(STR(LASTREC())), 20)

        ELSEIF BOF()

           @ 23, 45 PADR(“BOF/” + LTRIM(STR(LASTREC())), 20)

        ELSE

           @ 23, 45 SAY PADR(“Registro ” + LTRIM(STR(RECNO()) ;

                 + “/” + LTRIM(STR(LASTREC())), 20)

        ENDIF

Ficheros:  La biblioteca asociada es EXTEND.LIB.