FiveTech Software tech support forums

Posted: **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

Posted: **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

Posted: **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

Posted: **Mon Apr 10, 2017 3:14 pm**

FWH17.01 xHarbour para BCC72 y BCC72. Saludos. Muestra el que intentas hacer Victor.

Posted: **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

Posted: **Tue Apr 11, 2017 5:28 pm**

Mira se ayuda. No uso FWH64 aún.

https://github.com/vszakats/harbour-core/blob/master/utils/hbmk2/hbmk2.prg

Saludos.

FiveTech Software tech support forums

Hb_Regex() Y HB_RegexComp()

Hb_Regex() Y HB_RegexComp()

Re: Hb_Regex() Y HB_RegexComp()

Re: Hb_Regex() Y HB_RegexComp()

Re: Hb_Regex() Y HB_RegexComp()

Re: Hb_Regex() Y HB_RegexComp()

Re: Hb_Regex() Y HB_RegexComp()