ALINES(aMyarray, CHRTRAN(oldval,"RGB() ", ""),",")Should eliminate need for special cases.
>CLEAR >set talk OFF >set echo OFF >set debug off >oldval="RGB(0,0,0,255,255,255)" >? oldval >ALINES(aMyarray,oldval,",") >DIMENSION part(6) >FOR i = 1 TO ALEN(aMyarray) > DO CASE > CASE LEFT(aMyarray(i),3)="RGB" > part(i)=RIGHT(aMyarray(i),LEN(aMyarray(i))-AT('(',aMyarray(i))) > CASE AT(")",aMyarray(i))>0 > part(i)=LEFT(aMyarray(i),AT(")",aMyarray(i))-1) > OTHERWISE > part(i)=aMyarray(i) > ENDCASE >ENDFOR >newval="" >FOR i = ALEN(part,1) TO 1 STEP -1 > DO CASE > CASE i = ALEN(part,1) > newval="RGB("+part(i)+"," > CASE i = 1 > newval=newval+part(i)+")" > OTHERWISE > newval=newval+part(i)+"," > ENDCASE >ENDFOR >?newval >>