🚀 go-pugleaf

"F" <esnewsfQuItAeStO@EsToCaMbIeNyahoo.es> writes:

> Hola,
>
> Tengo una cadena con las siguientes caracteristicas
>
> -El numero de caracteres siempre tiene que ser 7
> -puede tener alfanumericos y espacios, pero todos los alfanumericos que 
> tengan tienen que estar al principio y todos lo espacios al final ( es decir 
> no se pueden intercarlar).
>
> Puede resolver estas dos condiciones por separado, pero no he conseguido 
> resolverlo juntas
>
> �alguien me puede echar una mano?

Muy a menudo, se puede hacer mas facilmente una expresion regular
inversa, or usar varias expresiones regulares.
Por ejemplo, el lenguaje que quieres reconocer es la intersecsion de
/^.......$/  y /^[A-Za-z0-9]* *$/

Lo mas simple, en un programa, seria de comprobar las dos expresiones.

(if (and (= 7 (length string)) (regexp-match "^[A-Za-z0-9]* *$" string))
   (got-it)
   (not-a-word))


Si quieres construir una expresion regular sola, es posible, pero a
menudo eso da expresiones muy largas, porque el lenguaje de las
expresiones regulares es muy rudimentario.

;; adaptar estas re- funciones de acuerdo con la syntax de regexp usada...

(defun re-sequence (&rest args)
  (apply (function concatenate)  'string args))

(defun re-repeat (re times)
  (case  times
    ((0) "")
    ((1) re)
    (otherwise (format nil "\\(~A\\){~D}" re times))))

(defun re-alternate (&rest alternatives)
  (format nil "\\(~{~A~^\\|~}" alternatives))

(defun build-my-re (n)
   (re-sequence 
     "^\\("
     (apply (function re-alternate)
            (loop for i from 0 to n 
                  collect (re-sequence (re-repeat "[A-Za-z0-9]" i)
                                       (re-repeat " " (- n i)))))
     "\\)$"))

(build-my-re 7)
--> "^\\(\\(\\( \\){7}\\|[A-Za-z0-9]\\( \\){6}\\|\\([A-Za-z0-9]\\){2}\\( \\){5}\\|\\([A-Za-z0-9]\\){3}\\( \\){4}\\|\\([A-Za-z0-9]\\){4}\\( \\){3}\\|\\([A-Za-z0-9]\\){5}\\( \\){2}\\|\\([A-Za-z0-9]\\){6} \\|\\([A-Za-z0-9]\\){7}\\)$"


> cadenas validos serian
>
> "a      "
> "asd  "
> "       "
> "xxxxxxx"
>
> he invalidas
> "a  s    "
> " "
> "asas"

-- 
__Pascal Bourguignon__
http://www.informatimago.com
http://pjb.ogamita.org