Hb_Regex() Y HB_RegexComp()

Hb_Regex() Y HB_RegexComp()

Postby Vikthor.Thomas » Wed Apr 05, 2017 5: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: Select all  Expand view


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


El arreglo devuelto está vacío

Saludos
User avatar
Vikthor.Thomas
 
Posts: 144
Joined: Thu Jan 02, 2014 1:49 pm

Re: Hb_Regex() Y HB_RegexComp()

Postby karinha » Wed Apr 05, 2017 8:04 pm

Code: Select all  Expand view

   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: Select all  Expand view

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: Select all  Expand view

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
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Hb_Regex() Y HB_RegexComp()

Postby Vikthor.Thomas » Mon Apr 10, 2017 2:10 pm

Gracias por responder

Yo sigo sin conseguir resultados satisfactorios

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

Saludos
User avatar
Vikthor.Thomas
 
Posts: 144
Joined: Thu Jan 02, 2014 1:49 pm

Re: Hb_Regex() Y HB_RegexComp()

Postby karinha » Mon Apr 10, 2017 3:14 pm

FWH17.01 xHarbour para BCC72 y BCC72. Saludos. Muestra el que intentas hacer Victor.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Hb_Regex() Y HB_RegexComp()

Postby Vikthor.Thomas » Mon Apr 10, 2017 8:58 pm

En la versión FWH64.1612 más Harbour 64 Bits para BCC71 que estoy usando la función hb_regex() siempre devuelve un arreglo vacío.

El mismo ejemplo usando FWH64.1311 más xHarbour para Visual Studio el valor devuelto por la función hb_regex() es correcto.

Alguna sugerencia ?

Saludos
User avatar
Vikthor.Thomas
 
Posts: 144
Joined: Thu Jan 02, 2014 1:49 pm

Re: Hb_Regex() Y HB_RegexComp()

Postby karinha » Tue Apr 11, 2017 5:28 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 10 guests