Maxado

bem atrasado mas ai vai a resposta em uma procedure, se alguém precisar.. DEF VAR texto AS CHAR INIT "ivan".DEF VAR tx AS CHAR INIT "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z". DEF VAR i AS INT INIT 1.DEF VAR j AS INT INIT 1.DEF VAR retorno AS CHAR INIT "". REPEAT: IF ENTRY(i,tx,",") = SUBSTRING(texto,j,1) THEN DO: ASSIGN retorno = retorno + string(i). ASSIGN i = 0. ASSIGN j = j + 1. END. i = i + 1. IF j > LENGTH(texto) THEN LEAVE. END. MESSAGE retorno VIEW-AS ALERT-BOX INFO BUTTONS OK. adapte a seu código e pronto. Abraço.