|
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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 | |
|
|