Cómo: |
La función STRTOKEN devuelve una subcadena compuesta por los caracteres de una cadena, desde el principio de la cadena hasta un carácter determinado, llamado delimitador.
Para usar esta función, debe importar la biblioteca de funciones MNTUWS. Para más información sobre la importación de esta biblioteca, consulte Cómo llamar a una función.
STRTOKEN(string, delimiters)
donde:
Alfanumérico
Es la cadena de caracteres, o una variable que la contiene, entre comillas dobles (").
Alfanumérico
Es una cadena de de caracteres o una variable entre comillas dobles ("), que contiene una lista de delimitadores. Separe los delimitadores con puntos y coma.
STRTOKEN devuelve una subcadena de los cinco primeros valores de STREET del origen de datos VIDEOTRK, utilizando los delimitadores punto, espacio o asterisco.
MAINTAIN FILE VIDEOTRK
MODULE IMPORT (MNTUWS);
FOR ALL NEXT CUSTID INTO CSTACK ;
COMPUTE CNT/I5 = 1;
TYPE " ";
REPEAT WHILE CNT LE 5;
COMPUTE SUBSTREET/A20 = STRTOKEN(CSTACK(CNT).STREET,".; ,*");
TYPE " STREET = <CSTACK(CNT).STREET"
TYPE " SUBSTREET = <SUBSTREET "
COMPUTE CNT = CNT +1;
ENDREPEAT
END
La salida es:
STREET = 86 ELLIOTT AVE. SUBSTREET = 86 STREET = 7 DAVENPORT LA. SUBSTREET = 7 STREET = 8 MAGNOLIA LA. SUBSTREET = 8 STREET = 35 POWELL ST. SUBSTREET = 35 STREET = 10 COW LA. SUBSTREET = 10
WebFOCUS |