kapiaba Posted October 29, 2021 Report Share Posted October 29, 2021 LIKE não funciona com HARBOUR, como faço isso em HARBOUR? http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40988&sid=4c228d0604d5b5249e96dbb4ae9b5fd1 // Conta do Email FUNCTION CHECA_GET_CONTA( cEMAILNOCONTA, aGet ) LOCAL cContaUsuario, cNomeUsuario LOCAL cRegEx := "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,4})$" LOCAL lIsValid := .F. PUBLIC cNomeUsuFinal IF GETASYNCKEY( VK_UP ) RETURN( .T. ) ENDIF IF EMPTY( cEMAILNOCONTA ) // = a XEMAILNOCONTA MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ; OemToAnsi( "DIGITE O NOME DA CONTA DE EMAIL. " )+CRLF+ ; OemToAnsi( "Exemplo: contato@pleno.com.br " ), ; OemToAnsi( "EMAIL(Conta) NÇO INFORMADO. CUIDADO!" ) ) RETURN( .F. ) ENDIF #IFDEF __XHARBOUR__ // // if xHarbour -> Funciona perfecto. Como hago esto en HARBOUR? IF ( ALLTRIM( LOWER( cEMAILNOCONTA ) ) LIKE cRegEx ) lIsValid := .T. ELSE MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ; OemToAnsi( "DIGITE UM EMAIL VÇLIDO.. " )+CRLF+ ; OemToAnsi( "ESTA CONTA DE EMAIL ESTµ ERRADA.. " )+CRLF+ ; OemToAnsi( "Exemplo: contato@pleno.com.br " )+CRLF+ ; OemToAnsi( "VOCÒ DIGITOU: " + ALLTRIM( cEMAILNOCONTA ) ), ; OemToAnsi( "EMAIL(Conta) CONTENDO ERROS... VEJA!" ) ) ENDIF #ELSE // if harbour -> LIKE cRegEx No funciona, porque? /* RMAILAMB.prg(1947) Error E0030 Syntax error "syntax error at 'LIKE'" RMAILAMB.prg(1949) Error E0014 ELSE does not match IF RMAILAMB.prg(1956) Error E0010 ENDIF does not match IF */ #ENDIF cContaUsuario := LOWER( cEMAILNOCONTA ) cNomeUsuario := Substr( cContaUsuario, 1, ( AT( "@", cContaUsuario ) -1 ) ) ; +SPACE(30) cNomeUsuFinal := cNomeUsuario aGet[7]:VARPUT( cNomeUsuario ) aGet[7]:Refresh() aGet[7]:Disable() aGet[7]:Refresh() RETURN( lIsValid ) Regards, slaudos. Quote Link to comment Share on other sites More sharing options...
aferra Posted October 29, 2021 Report Share Posted October 29, 2021 Boa tarde... bom vc pode incluir a hbcompat.ch ou usar essa função HB_REGEXLIKE( (<exp2>), (<exp1>) ) IF ( HB_REGEXLIKE( ALLTRIM( LOWER( cEMAILNOCONTA ) ), cRegEx ) ) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 29, 2021 Author Report Share Posted October 29, 2021 Perfeito meu Bolsonarista predileto. Único Bozolino que eu gosto. kkkkkkkkkkkkkk, Funciona dos dois modos. Muito obrigado. Forte abraço. aferra 1 Quote Link to comment Share on other sites More sharing options...
aferra Posted October 30, 2021 Report Share Posted October 30, 2021 23 horas atrás, kapiaba disse: Perfeito meu Bolsonarista predileto. Único Bozolino que eu gosto. kkkkkkkkkkkkkk, Funciona dos dois modos. Muito obrigado. Forte abraço. Benhêêêê. já lhe disse. sou eleitor. sou e-lei-tor. kkkkkkkkkkkkkkkkkkk Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.