Clarion - validar caracteres especiales en una cadena

   
Vista:

validar caracteres especiales en una cadena

Publicado por GIRALDO BRAVO (21 intervenciones) el 27/02/2011 15:26:05
Cordial saludo, les agradezco me colaboren hacerca de como validar en una cadena para que solo permita letras y numeros.

nuevamente gracias
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:validar caracteres especiales en una cadena

Publicado por Marcelo Madelon (572 intervenciones) el 28/02/2011 12:24:49
Giraldo Bravo

Uso dos dos variables para este ejemplo
Una LOC:String tipo string de 120 caracteres, que es con la que ingreso el dato

La otra que voy a usar para cargar los caracteres que quiero filtrar la defino:
LOC:Palabra Data Type: Group de 120 caracteres
y va a contener una sola variable de (Letra) un caracter y Dimension = 120

y el código seria algo asi

LOC:Palabra = '' ! Inicializo
I# = 0 ! Inicializo
LOOP C# = 1 TO 120 BY 1 ! Recorro LOC:String
IF Sub(LOC:String,C#,1) > ' ' ! Si no queres los espacios quita este IF
If Sub(LOC:String,C#,1) < '0'
Cycle
End
END
I# += 1
Letra[I#] = Sub(LOC:String,C#,1)
End ! Loop

! te lo muestro en un message para que lo puedas ver

Message ('lo que encontré es: ' & LOC:Palabra) ! Muestro la variable y no el registro
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:validar caracteres especiales en una cadena

Publicado por Marcelo Madelon (572 intervenciones) el 28/02/2011 17:05:09
Giraldo

Fijate que aca modifique el codigo para filtrar solo numeros y letras

LOC:Palabra = ''
I# = 0 ! Inicializo
LOOP C# = 1 TO 120 BY 1
IF Sub(LOC:String,C#,1) > ' '
Case Sub(LOC:String,C#,1)
OF '0' TO '9'
I# += 1
Letra[I#] = Sub(LOC:String,C#,1)
OR:Caracter = Letra[I#]
OF 'A' to 'z'
I# += 1
Letra[I#] = Sub(LOC:String,C#,1)
OR:Caracter = Letra[I#]
OF 'ñ'
I# += 1
Letra[I#] = Sub(LOC:String,C#,1)
OR:Caracter = Letra[I#]
OF 'Ñ'
I# += 1
Letra[I#] = Sub(LOC:String,C#,1)
OR:Caracter = Letra[I#]
End ! Case
END ! IF
End ! Loop


! te lo muestro en un message para que lo puedas ver

Message ('lo que encontré es: ' & LOC:Palabra) ! Muestro la variable y no el registro
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