Clarion - Quitar caracter del Medio

   
Vista:

Quitar caracter del Medio

Publicado por Francisco (20 intervenciones) el 13/02/2009 13:55:07
Hola! Quisiera saber si alguno conoce la forma de quitar un caracter de un campo.

Es decir. tengo el campo Nro_Comprobante = 123-5 y quiero sacarle el "-" para que me quede el numero 1235 (Esto lo necesito para poder pasar de una variable String a una Long)

Muchas gracias
Francisco
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu

RE:Quitar caracter del Medio

Publicado por Bassi, Rodrigo (112 intervenciones) el 13/02/2009 14:58:17
hola, nose si te servirá mucho, pero yo estoy haciendo algo similar.

tengo por ejemplo 1235/2 123/2 12/2 y necesito tomar los numero menos la barra y el 2 osea que para 1235/2 necesito tomar 1235, para 123/2 necesito 123 y para 12/2 necesito 12


como son miles de registros tuve que hacer un ciclo en la cual utilice esto:


POSICION# = INSTRING('/',Campo,1) ! Obtengo posicion de la barra, para 1235/2 me devuelve 5

Heco:cria = SUB(Campo,1,POSICION# - 1) hago un sub restandole 1 a la posicion de la barra.


entonces, si la barra tiene posicion 5 hago un sub del 1 al 4 y me devuelve el numero antes de la barra.


ahora, esto es para los valores de la izquierda, para los valores de la derecha supongo que seria un SUB desde la Posicion y Hasta la posicion mas la cantidad de caracteres restantes.

Espero te sirva en algo,
Saludos!
Bassi, Rodrigo.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Quitar caracter del Medio

Publicado por raxe (181 intervenciones) el 17/02/2009 13:22:30
Hola. Prueba esto

Variable1 String( 50) = '123-45.67/89A' !Solo quiero los números
Variable2 Real

Loop I# = 1 to Len(Clip(Variable1))
If Inrange( Sub( Variable1,I#,1) ,0,9)
Variable2 = Clip(Variable2) & Sub( Variable1,I#,1)
. .
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar