STRTOOKEN: Como Extrair uma Substring com Base nos Delimitadores

Como:

A função STRTOKEN retorna uma substring, formada pelos caracteres de uma string, do início de uma string até um caractere especificado, chamado de delimitador.

Para utilizar esta função, você deve importar a biblioteca de funções MNTUWS. Para obter mais informações, consulte Como Chamar uma Função.
Topo da página
x
Sintaxe: Como Extrair uma substring
STRTOKEN(string, delimiters)

onde:

string

Alfanumérico

É a string de caracteres ou uma variável que contém a string entre aspas duplas (").

delimiters

Alfanumérico

É uma string de caracteres ou variável entre aspas duplas (") que contém uma lista de delimitadores. Separe os delimitadores com pontos-e-vírgulas.
Exemplo: Como Extrair uma Substring

STRTOKEN retorna uma substring dos primeiros cinco valores STREET na fonte de dados VIDEOTRK com base no delimitador ponto final, espaço ou 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

A saída é:

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
Information Builders