STRAN : Substituer une sous-chaîne pour une autre

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.


Haut de page

x
Syntaxe : Substitution d'une sous-chaîne
STRAN(string, substr1, substr2)

où :

string

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.

substr1

Alphanumérique

est la sous-chaîne à remplacer.

substr2

Alphanumérique

est la sous-chaîne à insérer à la place de substr1.



Exemple : Substituer une chaîne pour une autre

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