x

TRIM(trim_where, source_string, length, pattern, sublength, output)

donde:

trim_where

Alfanumérico

Es uno de éstos; indica dónde se va a eliminar el patrón:

'L' elimina las repeticiones iniciales.

'T' las repeticiones finales.

'B' elimina las repeticiones iniciales y finales.

source_string

Alfanumérico

Es la cadena que se va a recortar, entre comillas simples, o el campo que la contenga.

string_length

Número entero

El número de caracteres en la cadena de origen.

pattern

Alfanumérico

Es el patrón que se va eliminar de la cadena de caracteres, entre comillas simples.

sublength

Número entero

Es el número de caracteres del patrón.

output

Alfanumérico

Es el campo al que se devuelve el resultado, o el formato del valor de salida entre comillas simples.

Principio de página

Ejemplo: Cómo eliminar las repeticiones iniciales

TRIM elimina todas las repeticiones de los caracteres BR del campo DIRECTOR, y almacena el resultado en un campo con el formato A17:

TABLE FILE MOVIES
PRINT  DIRECTOR AND
COMPUTE
  TRIMDIR/A17 = TRIM('L', DIRECTOR, 17, 'BR', 2, 'A17');
  WHERE DIRECTOR CONTAINS 'BR'
END

La salida es:

DIRECTOR          TRIMDIR
--------          -------
ABRAHAMS J.       ABRAHAMS J.
BROOKS R.         OOKS R.
BROOKS J.L.       OOKS J.L. 

Principio de página

Ejemplo: Cómo eliminar las repeticiones finales

TRIM elimina las repeticiones finales de los caracteres ER de TITLE. Para poder eliminar los espacios finales que no estén en blanco, primero se debe eliminar los espacios en blanco finales. El campo TITLE presenta espacios en blanco finales. Por tanto, TRIM no elimina los caracteres ER al crear el campo TRIMT. El campo SHORT no tiene espacios en blanco finales. Por tanto, TRIM elimina los caracteres ER al crear el campo TRIMT:

DEFINE FILE MOVIES
SHORT/A19 = SUBSTR(19, TITLE, 1, 19, 19, SHORT);
END
TABLE FILE MOVIES
PRINT  TITLE  IN 1  AS 'TITLE: '
       SHORT  IN 40 AS 'SHORT: ' OVER
COMPUTE
  TRIMT/A39 = TRIM('T', TITLE, 39, 'ER', 2, 'A39'); IN 1 AS 'TRIMT: '
COMPUTE
  TRIMS/A19 = TRIM('T', SHORT, 19, 'ER', 2, 'A19'); IN 40 AS 'TRIMS: ' 
WHERE TITLE LIKE '%ER'
END

La salida es:

TITLE:   LEARN TO SKI BETTER         SHORT:   LEARN TO SKI BETTER
TRIMT:   LEARN TO SKI BETTER         TRIMS:   LEARN TO SKI BETT  
TITLE:   FANNY AND ALEXANDER         SHORT:   FANNY AND ALEXANDER
TRIMT:   FANNY AND ALEXANDER         TRIMS:   FANNY AND ALEXAND