Expertos en expresiones regulares (SOLUCIONADO)

[Armando]

Saludos foreros:

Alguien experto en expresiones regulares que me apoye a construir una que valide lo siguiente:

Ejemplo del texto a validar TEY-00063-24

Debe iniciar con las tres letras (TEY) siempre como constantes
Debe seguir un guion medio (TEY-)
Después deben ser 4 dígitos forzosos, del 0 al 9 (TEY.0063)
Después un guion medio (TEY.-0063-)
y finalmente dos dígitos forzosos del 0 al 9 (TEY-0063-24)

Gracias por sus respuestas

[VictorCasajuana]

Respuesta de Copilot:
^TEY-\d{4}-\d{2}$


Enviado desde mi motorola edge 20 mediante Tapatalk

[Antonio Linares]

Respuesta de Google Gemini

^TEY-[0-9]{4}-[0-9]{2}$

[Carles]

Y aqui lo puedes testear--> https://regex101.com/


https://regex101.com/r/A7GK9p/1


C.

[Armando]

Foreros:

Gracias por sus sugerencias, pero en regex101.com (Gracias Carles) No match.

Saludos

[karinha]

Armando, mira se ayuda:

https://docs.netapp.com/us-en/oncommand ... example-14

https://www3.ntu.edu.sg/home/ehchua/pro ... egexe.html

http://www.hmgforum.com/viewtopic.php?t=3382

https://groups.google.com/g/harbour-use ... maL5eOBQAJ


Regards, saludos.

[Marc Venken]

Suggestions works

Code: Select all | Expand

#include "fivewin.ch"

function main()
   local oWnd
   define window oWnd
   activate window oWnd on init checkstring()
return nil

FUNCTION CheckString()
    LOCAL cPattern := "^TEY-[0-9]{4}-[0-9]{2}$"
    LOCAL cString :=  "TEY-1234-12"  // "TEST"

    IF HB_REGEXMATCH( cPattern, cString )
        ? "Pattern = ok."
    ELSE
        ? "Pattern = Not ok. "
    ENDIF
RETURN NIL

 

[Armando]

Amigos:

Ya todo va bien,

Muchas gracias a todos