#1
|
|||
|
|||
comparando cadenas - ayuda
Buenos Dias
Intentando realizar una validacion a una cadena. La cadena solamente puede conteneder letras mayusculas y numeros 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789' La validacion que quiero hacer es que si la cadena tiene por lo menos 1 caracter que no este en la cadena anterior (letras mayusculas y numeros) generé un error. He probado con: CN , CO , CA , NA de la siguiente forma: IF output NA 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789'. MESSAGE 'SoloMayusculas y numeros' TYPE 'E'. ENDIF. Pero no logro obtener el resultado deseado que es que si la cadena tiene por lo menos 1 caracter que no sea letras mayuscula o numeros generé un error. La otra solucion que tengo por el momento es: IF output CA '!"#$%&/()=?¡*''+-{}_´¨¿,.\~@<>:;|'. MESSAGE 'Caracteres Especiales No Permitidos' type 'E'. EXIT. ENDIF. Lo que no me gusta de esta solucion es que si luego se inventan un nuevo caracter especial porque cambian el teclado de idioma, entonces quedaria como permitido. Gracias de antemano. |
#2
|
||||
|
||||
podrias verificar carater por caracter ingresado en la variable output de la siguiente manera
IF output+var(1) NA 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789'. MESSAGE 'SoloMayusculas y numeros' TYPE 'E'. ENDIF. donde var es un numero incremental hasta la longitud de tu variable - 1. saludos
__________________
Sebastián Chiavia |
#3
|
|||
|
|||
Buenas,
Una forma muy fácil de hacerlo es usando expresiones regulares. Te dejo un ejemplo de verificación del formato de un mail, en tu caso es algo más fácil porque sólo quieres validar letras. PARAMETERS email TYPE c LENGTH 30 LOWER CASE default 'shai.agassi@sap.com'. DATA matcher TYPE REF TO cl_abap_matcher. matcher = cl_abap_matcher=>create( pattern= `\w+(\.\w+)*@(\w+\.)+(\w{2,4})`i gnore_case= 'X' text= email ). IF matcher->match( ) IS INITIAL. MESSAGE 'Wrong Format' TYPE 'I'.ELSE.MESSAGE 'Format OK' TYPE 'I'. ENDIF. Espero que te sirva de ayuda |
#4
|
|||
|
|||
Gracias a todos por sus respuestas.
Encontre una forma bastante sencilla de resolver el problema acorde a al primer respuesta: Definí una variable entera para tener la logitud de la cadena OUTPUT y con la sentencia "CN" realizaba la comparacion de cadenas solo hasta la logitud del output El codigo quedó de la siguiente manera: ---------------------------------------------------------------------- data: len type i. IF input IS INITIAL. MESSAGE e031(zmen). "Campo no puede ser vacio ENDIF. output = input. "Salida es igual a la entrada CONDENSE output NO-GAPS. "Borra los espacios en blanco TRANSLATE output TO UPPER CASE. "Convierte a letras mayusculas len = STRLEN( output ). "Obtiene la logitud de la salida IF output(len) CN 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789'. MESSAGE e032(zmen). "Carateres especiales no permitidos ENDIF. MESSAGE i033(zmen). "Se ajustó la salida a solo mayusculas sin espacios ENDFUNCTION. ------------------------------------------------------------------------- Gracias a todos. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|