Duvida com codigo de custo

[Gilberto M Silva]

Olá pessoal,
estou com um nó q pra mim tá difícil de desatar. eh o seguinte: tenho q transformar uma variavel tipo string com letras em numérico ex:

C A J U E I R O S X
1 2 3 4 5 6 7 8 9 0

Cada letra corresponde a um número, ex: transformar "CJU,SX)" para 134,90, isso quando o usuário digitar o codigo de custo o sistema transformar em numérico e armazenar em um arquivo. Alguem tem ideia como faço isso?

no aguardo,
Gilberto Silva[/b]

[Toledo]

Gilberto, segue abaixo um exemplo:

Código: Selecionar todos

cVar:="CJU,SX"

nVlr:=CTOV(cVar)


PROC CTOV(cVar)
LOCAL cRet:=""
cLetras:="CAJUEIROSX"
FOR i=1 TO LEN(cVar)
 IF SUBS(cVar,i,1)=","
   cRet+="."
 ELSE
   cRet+=STR(AT(SUBS(cVar,i,1),cLetras),1,0)
 ENDIF
NEXT
RETU VAL(cRet)

Abraços,