topic-33882

Posts: 144

Joined: Thu Jan 02, 2014 01:49 PM

Hb_Regex() Y HB_RegexComp()
Posted: Wed Apr 05, 2017 05:32 PM

Hola Buen día

Alguien ha usado esa funciones para validar las expresiones.

Trabajo con FWH64 , BCC71 y Harbour para BCC71 y en las pruebas que hago el arreglo devuelto siempre esta vacío.

Code (fw): Select all Collapse

cRule := Hb_RegExComp("([A-Z]{6})")
, aRes := Hb_Regex( cRule , "VICTOR" )

El arreglo devuelto está vacío

Saludos

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Hb_Regex() Y HB_RegexComp()
Posted: Wed Apr 05, 2017 08:04 PM

Code (fw): Select all Collapse

   LOCAL cRegEx := "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$"

      cDest := "kapiabafwh@gmail.com"

      cDest := LOWER( cDest )

      cRet := HB_AtX( cRegEx, cDest, .F. )

Code (fw): Select all Collapse

FUNCTION verificaEmail(cEmail)

    LOCAL pCompiled := hb_regexComp("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$")
    LOCAL aMatch 
    LOCAL cRet := ""
    LOCAL lRet := .T.

    aMatch = hb_regex( pCompiled, cEmail )

    IF Empty( aMatch )

       cRet = "No"
       lRet := .F.

    ENDIF

RETURN( lRet )

Code (fw): Select all Collapse

METHOD StripHTML( cHtml ) CLASS Sintegra

   LOCAL cString := ::RemoveChar( cHTML, {"&","amp;","nbsp;",'<!-- ',' -->','<--','-->','||','\/','<!--%','%-->',[/\],'end if %'} )
   LOCAL aMatch  := HB_RegExAll( "\<[^\>]*\>", cString )

   AEVAL( aMatch, {|a| cString := STRTRAN( cString, a[1] ) } )

RETURN cString

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Vikthor.Thomas

Posts: 144

Joined: Thu Jan 02, 2014 01:49 PM

Re: Hb_Regex() Y HB_RegexComp()
Posted: Mon Apr 10, 2017 02:10 PM

Gracias por responder

Yo sigo sin conseguir resultados satisfactorios

Qué versión de Fivewin y compilador estás usando ?

Saludos

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM