WEBFOCUS 寻找和替换字符串

-IF POSIT(&DIVISION2,&DIVISION2.LENGTH,'_',1,'I2') EQ 0 GOTO REP2;
-REP1
-SET &DIVISION2=STRREP(100,&DIVISION2,1,'_',1,'~',100,&DIVISION2);
-SET &DIVISION2=TRUNCATE(&DIVISION2);
-GOTO ENDREP;

-REP2
-IF POSIT(&REGION2,&REGION2.LENGTH,'_',1,'I2') EQ 0 GOTO REP3;
-SET &REGION2=STRREP(100,&REGION2,1,'_',1,'~',100,&REGION2);
-SET &REGION2=TRUNCATE(&REGION2);
-GOTO ENDREP;

-REP3
-IF POSIT(&BRANCH2,&BRANCH2.LENGTH,'_',1,'I2') EQ 0 GOTO ENDREP;
-SET &BRANCH2=STRREP(100,&BRANCH2,1,'_',1,'~',100,&BRANCH2);
-SET &BRANCH2=TRUNCATE(&BRANCH2);