DSXchange

Hi
I have a input string.
ABC-1
DEF-2 etc.

I have to insert 3 letter code in middle like
ABC-OPR-1
DEF-NOP-2.
which function i have to use.
THKS

Try

YourInputString [1,3] : '-' : YourNewVal : YourInputString [2]

Hi Sainath,

You can also use the Ereplace Function to achieve this.

Assuming that you have more than the two cases that you have posted.

You could write the code in the lines as below:

Remember you can also build a custom routine using "Case' statements for achieving the same.

Thanks,
Naveen.

sainath wrote:Hi
I have a input string.
ABC-1
DEF-2 etc.

I have to insert 3 letter code in middle like
ABC-OPR-1
DEF-NOP-2.
which function i have to use.
THKS

Hi,

You can simply write a routine in which you can find the exact place of "-" and replace it with desired value.

The function you can use is INDEXOF().

The code is

First in the Argument tab of routine workspace define 2 arguments: -
FieldData & SpecialChar

Then in the code section write this code: -

VarTrim=Trim(FieldData);
VarNew='';
VarSpec=SpecialChar;
VarIndex=Index(VarTrim,VarSpec,1);
VarCount=0;

If VarIndex <> 0 then
Loop While VarCount <= Len(VarTrim);
VarCount = VarCount + 1;
If VarIndex <> 0 then VarNew = (VarTrim[0,VarIndex-1]:'-OPR-':VarTrim[VarIndex+1,Len(VarTrim)]) else VarNew = VarTrim;
VarTrim = VarNew;
VarIndex = Index(VarTrim,VarSpec,1);
Repeat
End
Else VarTrim=Trim(FieldData);
Ans=VarTrim;

This routine will replace all special characters with any desired value u want. Remember to feed the field value and the special char as an input to the routine.

I think I'd stick with the KISS rule on this one.

I think the logic suggested by parag is an over-overkill.

Thanks,
Naveen.

Try this:

in your routine.

Thanks,
Naveen.