Como: |
A função STRAN substitui uma substring para outra substring em uma string de caracteres. STRAN permite que você edite parte de uma string de caracteres sem substituir o campo totalmente.
Para utilizar esta função, importe a biblioteca de funções MNTUWS. Para obter mais informações, consulte Como Chamar uma Função.
STRAN(string, substr1, substr2)
onde:
Alfanumérico
É a string de caracteres na qual você deseja substituir uma substring por outra ou um campo temporário que contém a string.
Alfanumérico
É a substring a ser substituída.
Alfanumérico
É a substring a ser inserida no lugar de substr1.
STRAN substitui a palavra DOOR pela palavra Seater no 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 seguir, você encontra valores de exemplo para MODEL e os valores para o resultado da função 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 |