raul
11 de Diciembre del 2003

tengo un campo C,6 y contiene numeros y letras y esta rellenado con 0 a la izquierda, como puedo hacer para reemplazar los 0 a la izquierda por un blanco ' ', strtran no es valido para esto. Gracias Raul

MMM
11 de Diciembre del 2003

Si no he entendido mal tienes un campo char-6 que est谩 rellenado con ceros a la izquierda y quieres sustituirlos por blancos. En ese caso el c贸digo es el siguiente

replace all campo1 with str(val(campo1),6)

RAUL
11 de Diciembre del 2003

Perdon por no explicarme bien, pero mis datos en ese campo es asi (00015X) , o (00P654) por ejemplo. es decir no solo tienes caracteres numericos, tambien consta de caracteres, gracias

Alex
11 de Diciembre del 2003

Quetal RAUL

Te hice una peque帽a funci贸n para que resolvas tu problema.

*- Funci贸n para eliminar un numero o letra determinada de una cadena de tipo caracter conteniendo numeros o letras

*Utilizalo as铆
STORE "(00P654)" TO Cadena
cDepurado =SuprimirCaracter(Cadena,'0')

*o as铆
cDepurado =SuprimirCaracter("(00P654)","0")

Messagebox('El resultado es: '+cDepurado)

*--------------------------------------------
FUNCTION SuprimirCaracter(cCadena,cSuprimir)
LOCAL nResultado
SET DECIMAL TO 0
STORE LEN(cCadena) TO nHasta
cResultado=''
nDesde=0
FOR nDesde = 1 TO nHasta
cValor = SUBSTR(cCadena,nDesde,1)
IF cValor<>cSuprimir
cResultado=cResultado+cValor
ENDIF
ENDFOR
SET DECIMAL TO 2
RETURN (cResultado)
ENDFUNC

Espero te sirva.


Alex Vargas