Clarion - validar caracteres especiales en una cadena

Cordial saludo, les agradezco me colaboren hacerca de como validar en una cadena para que solo permita letras y numeros.

nuevamente gracias

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

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