FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Expertos en expresiones regulares (SOLUCIONADO)
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Expertos en expresiones regulares (SOLUCIONADO)
Posted: Thu Mar 14, 2024 01:23 AM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 309
Joined: Wed Mar 28, 2018 04:38 PM
Re: Expertos en expresiones regulares
Posted: Thu Mar 14, 2024 06:03 AM

Respuesta de Copilot:

^TEY-\d{4}-\d{2}$

Enviado desde mi motorola edge 20 mediante Tapatalk

--------

¿ Y porque no ?

¿ And why not ?
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Expertos en expresiones regulares
Posted: Thu Mar 14, 2024 06:28 AM
Respuesta de Google Gemini :-)

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

Antonio Linares
www.fivetechsoft.com
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Re: Expertos en expresiones regulares
Posted: Thu Mar 14, 2024 01:00 PM
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Expertos en expresiones regulares
Posted: Thu Mar 14, 2024 02:32 PM

Foreros:

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM
Re: Expertos en expresiones regulares
Posted: Thu Mar 14, 2024 03:55 PM
Suggestions works
Code (fw): Select all Collapse
#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
Marc Venken

Using: FWH 23.08 with Harbour
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Expertos en expresiones regulares
Posted: Thu Mar 14, 2024 04:27 PM

Amigos:

Ya todo va bien,

Muchas gracias a todos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion