I'm trying to read in a String array that contains data like ',0,1,2,3,...' that represents days of the week and translate the string array into a raw text string that spell out the code.

 

This code below works only when the array only contain 1 value like ',2,' but doesn't work when the array has more than one values like ',2,3,4,'.

 

Do you have any idea why? Logically, it makes sense, but perhaps I'm missing something? Any help is appreciated.

 

Local StringVar inString := {rsCustomProgram.Days};
Local StringVar outString := "";
Local StringVar finalString := "";
Local NumberVar i;
For i := 1 To Length(inString) Do
( if ({rsCustomProgram.Days} like ',0,')
    then outstring:= "Monday"
else if ({rsCustomProgram.Days} like ',1,')
    then outstring:= "Tuesday"
else if ({rsCustomProgram.Days} like ',2,')
    then outstring:= "Wednesday"
else if ({rsCustomProgram.Days} like ',3,')
    then outstring:= "Thursday"
else if ({rsCustomProgram.Days} like ',4,')
    then outstring:= "Friday"
else if ({rsCustomProgram.Days} like ',5,')
    then outstring:= "Saturday"
else if ({rsCustomProgram.Days} like ',6,')
    then outstring:= "Sunday"
else
    outstring:= "");
finalString := outString + finalString;
finalString

 

Local StringVar inString := {rsCustomProgram.Days};
Local StringVar outString := "";
Local StringVar finalString := "";

if {rsCustomProgram.Days} like "*,0,*"
then outString := outString + ", Monday";

if {rsCustomProgram.Days} like "*,1,*"
then outString := outString + ", Tuesday";

if {rsCustomProgram.Days} like "*,2,*"
then outString := outString + ", Wednesday";

if {rsCustomProgram.Days} like "*,3,*"
then outString := outString + ", Thursday";

if {rsCustomProgram.Days} like "*,4,*"
then outString := outString + ", Friday";

if {rsCustomProgram.Days} like "*,5,*"
then outString := outString + ", Saturday";

if {rsCustomProgram.Days} like "*,6,*"
then outString := outString + ", Sunday";

finalString := outString;
finalString