Cómo: |
La función STRAN sustituye una subcadena por otra, en las cadenas de caracteres. STRAN permite modificar parte de una cadena de caracteres sin reemplazar completamente el campo.
Para usar esta función, importe 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.
STRAN(string, substr1, substr2)
donde:
Alfanumérico
Es la cadena de caracteres en que va a sustituir una subcadena por otra, o un campo temporal que contiene la cadena.
Alfanumérico
Es la subcadena que va a ser sustituida.
Alfanumérico
Es la subcadena que se va a insertar en lugar de substr1.
STRAN reemplaza la palabra DOOR por la palabra Seater, en el campo 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 A continuación, le mostramos valores de ejemplo para MODEL y el resultado de la función 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
| WebFOCUS |