Comment : |
La fonction STRAN substitue une sous-chaîne pour une autre dans une chaîne de caractères. STRAN vous permet d'éditer une partie de la chaîne de caractères sans avoir à remplacer le champ en entier.
Pour utiliser cette fonction, importez la bibliothèque de fonctions MNTUWS. Pour informations sur l'import de cette bibliothèque, consultez Invoquer une Fonction.
STRAN(string, substr1, substr2)
où :
Alphanumérique
est la chaîne de caractères dans laquelle vous souhaitez substituer une sous-chaîne pour une autre, ou le champ temporaire qui contient la chaîne.
Alphanumérique
est la sous-chaîne à remplacer.
Alphanumérique
est la sous-chaîne à insérer à la place de substr1.
STRAN remplace le mot DOOR avec le mot Seater dans le champ MODEL :
MAINTAIN FILE CAR
MODULE IMPORT (MNTUWS);
FOR ALL NEXT COUNTRY CAR MODEL INTO XSTK
WHERE MODEL CONTAINS 'DOOR'
COMPUTE XSTK.NEWMOD/A24;
COMPUTE I/I2=1;
REPEAT XSTK.FOCCOUNT
COMPUTE XSTK(I).NEWMOD=STRAN(XSTK(I).MODEL,'DOOR','SEATER');
TYPE "<<XSTK(I).CAR <<XSTK(I).MODEL <<XSTK(I).NEWMOD"
COMPUTE I=I+1;
ENDREPEAT
END
Les valeurs suivantes sont des exemples pour MODEL et les valeurs pour le résultat de la fonction STRAN :
CAR MODEL STRAN --- ----- ----- PEUGEOT 504 4 DOOR 504 4 SEATER ALFA ROMEO 2000 4 DOOR BERLINA 2000 4 SEATER BERLINA MASERATI DORA 2 DOOR DORA 2 SEATER DATSUN B210 2 DOOR AUTO B210 2 SEATER AUTO TOYOTA COROLLA 4 DOOR DIX AUTO COROLLA 4 SEATER DIX AUT AUDI 100 LS 2 DOOR AUTO 100 LS 2 SEATER AUTO BMW 2002 2 DOOR 2002 2 SEATER BMW 2002 2 DOOR AUTO 2002 2 SEATER AUTO BMW 3.0 SI 4 DOOR 3.0 SI 4 SEATER BMW 3.0 SI 4 DOOR AUTO 3.0 SI 4 SEATER AUTO BMW 530I 4 DOOR 530I 4 SEATER BMW 530I 4 DOOR AUTO 530I 4 SEATER AUTO
Information Builders |