Comment : |
La fonction STRTOKEN renvoie une sous-chaîne, basée sur les caractères d'une chaîne, depuis le début de la chaîne jusqu'à un caractère spécifié, appelé un délimiteur.
Pour utiliser cette fonction, vous devez importer la bibliothèque de fonctions MNTUWS. Pour informations sur l'import de cette bibliothèque, consultez Invoquer une Fonction.
STRTOKEN(string, delimiters)
où :
Alphanumérique
est la chaîne de caractères, ou d'un champ contenant celle-ci encadrée par des guillemets simples (").
Alphanumérique
est une chaîne de caractères, ou une variable encadrée par des guillemets doubles ("), qui contient une liste de délimiteurs. Délimitez les délimiteurs avec des points-virgules.
STRTOKEN retourne une sous-chaîne des cinq premières valeurs de STREET dans la source de données VIDEOTRK en fonction du point, de l'espace, ou de l'astérisque délimiteur.
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 sortie est :
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 |