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