Change Characters in String to Value(s) 2

[alembong]

CR XIr2

I have a string field where each character (case-sensitive) equals a type of action. I want to replace the character with the appropriate action type.

I've tried the Replace function, but I'm not sure how to do multiple characters all at once. I tried nesting, but it would replace values in the replaceString

I also tried creating an array formula that would split then case the values using a for loop, but the string has no delimiter. (This was based on an answer given by LBass to split a string)

Here's some sample data:
User Action
Bob "aCduv"
Sam "pvVs"

I'd like it to be:
Bob "add create delete update view"
Sam "process view verify schedule"

Any help would be appreciated!

 

[CoSpringsGuy]

OK before I start .... most people think my code is wierd and it probably is but it usually works for me!
.....
to get Action "aCduv" to read " add create delete update view"
formula:

local stringvar stroutput := "";
local Numbervar strLen :=
    Length({table.action});
local numbervar i;
For i := 1 to strLen Do
(
    Local NumberVar charpos := strLen - i +1;
    if ({table.action}[charpos] = "a" then
        stroutput := stroutput + " add "
    else if ({table.action}[charpos] = "C" then
        stroutput := stroutput + " create "
    else if ({table.action}[charpos] = "d" then
        stroutput := stroutput + " delete "
    else if ({table.action}[charpos] = "u" then
        stroutput := stroutput + " update "
    else if ({table.action}[charpos] = "v" then
        stroutput := stroutput + " View "


);
stroutput

add additional else if statements for all the possibilities

 

[CoSpringsGuy]

you might throw this as the last else to make sure you know when there is a new action or one that you havent coded yet

else stroutput := stroutput + " ??? "

 

[CoSpringsGuy]

whups ... thats what I get for copying code i used for something else rather than writing it new....

sorry

change the line that reads ....
Local NumberVar charpos := strLen - i +1;
to
Local NumberVar charpos := i;
otherwise your output comes backwards.

 

[alembong]

Thanks! This does exactly what I was wanting it to do. Doesn't really matter if people think it's weird as long as it works! )

 

[alembong]

I think I may need to re-visit this code because I think that it is not taking into account the character case.

Is there a way that I can change it so that it is case-sensitive when it goes through the if statements?

 

[alembong]

I think I may have figured it out by using the InStr function which is by default case sensitive.

local stringvar stroutput := "";
local Numbervar strLen :=
    Length({table.action});
local numbervar i;
For i := 1 to strLen Do
(
    Local NumberVar charpos := i;
    if InStr({table.action}[charpos],"p") > 0 then
        stroutput := stroutput + " process"
    else if InStr({table.action}[charpos],"v") > 0 then
        stroutput := stroutput + " view"
    else if InStr({table.action}[charpos],"V") > 0 then
        stroutput := stroutput + " verify"
    else if InStr({table.action}[charpos],"s") > 0 then
        stroutput := stroutput + " schedule"
);
stroutput