Mensajes: 1786 Ubicación: Uruguay
Domingo, 16 Octobre 2016, 20:00
Objetivo: Exigir Un Correo O Web Mínimo En Un Textbox
Buenas,
que harían para mejorar estos dos códigos sin llegar hacer algo profesional como verificar realmente si la web existe o el correo.
solamente poner buenos filtros.
como lo harían ustedes?
Saludos
Mensajes: 4982 Ubicación: Albacete
Lunes, 17 Octobre 2016, 05:39
Objetivo: Re: Exigir Un Correo O Web Mínimo En Un Textbox
Lo de la url nunca me lo he planteado más allá de que contenga "://" en algún lugar, para el correo utilizo ésta función:
Mensajes: 1786 Ubicación: Uruguay
Lunes, 17 Octobre 2016, 13:01
Objetivo: Re: Exigir Un Correo O Web Mínimo En Un Textbox
excelente shordi, buen aporte además del arroba le agregare el carácter . que siempre tiene un correo.
y los demás gamberos que pueden aportar?
Mensajes: 1786 Ubicación: Uruguay
Lunes, 17 Octobre 2016, 13:19
Objetivo: Re: Exigir Un Correo O Web Mínimo En Un Textbox
bueno fusione tu ejemplo con el mio y salio esto:
Mensajes: 1786 Ubicación: Uruguay
Lunes, 17 Octobre 2016, 13:46
Objetivo: Re: Exigir Un Correo O Web Mínimo En Un Textbox
jajaja bueno mas elegante seria esto:
Public Sub txtCorreo_Change()
btnEnviarCorreo.Enabled = func.CorreoBien(txtCorreo.Text)
End
Mensajes: 2565
Lunes, 17 Octobre 2016, 16:49
Objetivo: Re: Exigir Un Correo O Web Mínimo En Un Textbox
para la url encontre esto en
http://androcode.es/2013/06/verific...una-url-valida/
private static boolean isUrl(String s) {
String regex = "^(https?://)?(([\\w!~*'().&=+$%-]+: )?[\\w!~*'().&=+$%-]+@)?(([0-9]{1,3}\\.){3}[0-9]{1,3}|([\\w!~*'()-]+\\.)*([\\w^-][\\w-]{0,61})?[\\w]\\.[a-z]{2,6})(:[0-9]{1,4})?((/*)|(/+[\\w!~*'().;?:@&=+$,%#-]+)+/*)$";
try {
Pattern patt = Pattern.compile(regex);
Matcher matcher = patt.matcher(s);
return matcher.matches();
} catch (RuntimeException e) {
return false;
}
}
Tal vez te sirva.
Saludos.
Mensajes: 2565
Lunes, 17 Octobre 2016, 17:04
Objetivo: Re: Exigir Un Correo O Web Mínimo En Un Textbox
En este otro sitio también hay validadores para varias cosas, eso si, están en java.
https://commons.apache.org/proper/c...d_validator.cgi
AbstractCalendarValidator.java
AbstractFormatValidator.java
AbstractNumberValidator.java
BigDecimalValidator.java
BigIntegerValidator.java
ByteValidator.java
CalendarValidator.java
checkdigit
CodeValidator.java
CreditCardValidator.java
CurrencyValidator.java
DateValidator.java
DomainValidator.java
DoubleValidator.java
EmailValidator.java
FloatValidator.java
IBANValidator.java
InetAddressValidator.java
IntegerValidator.java
ISBNValidator.java
ISSNValidator.java
LongValidator.java
package.html
PercentValidator.java
RegexValidator.java
ShortValidator.java
TimeValidator.java
UrlValidator.java
Se viene el validador para
gambas!!!!
Saludso.
Mensajes: 1786 Ubicación: Uruguay
Lunes, 17 Octobre 2016, 19:02
Objetivo: Re: Exigir Un Correo O Web Mínimo En Un Textbox
En este otro sitio también hay validadores para varias cosas, eso si, están en java.
https://commons.apache.org/proper/c...d_validator.cgi
EmailValidator.java
InetAddressValidator.java
UrlValidator.java
Se viene el validador para
gambas!!!!
Saludso.
muy buena, hace tiempo te veo con todas las luces....
claro seria cuestion de traducir cualquier clase de otro lenguaje mas facil que hacer de cero y asi nomas.
Mensajes: 1786 Ubicación: Uruguay
Domingo, 25 Diciembre 2016, 19:38
Objetivo: Re: Exigir Un Correo O Web Mínimo En Un Textbox
bueno sigo ahi mejorando la funcion
[code linenumbers=false syntax=gambas]
Public Function CorreoBien(correo As String) As Boolean
Dim DespuesDEarroba As New String[]
Dim GrupoInvalidos As String = ",;:"
Dim NoValido As String
Dim a, b As Integer
If InStr(correo, "@") <> 0 Then
DespuesDEarroba = Split(correo, "@")
If DespuesDEarroba.Count > 2 Then
Return False
Endif
Endif
If InStr(correo, "@") = 0 Then
Return False
Else If InStr(Trim(DespuesDEarroba[DespuesDEarroba.Max]), ".") = 0 Then
Return False
Else If InStr(Trim(correo), " ") > 0 Then
Return False
Else If String.Len(correo) < 7 Then
Return False
Endif
For a = 1 To Len(GrupoInvalidos)
For b = 1 To Len(correo)
Print "caracter no valido=" & Mid(GrupoInvalidos, a, 1)
Print "caracter de correo a comparar=" & Mid(correo, b, 1)
If Mid(correo, b, 1) = Mid(GrupoInvalidos, a, 1) Then
Print "----------------------caracteres iguales=" & Mid(correo, b, 1)
Return False
Break
Endif
Next
Next
Return True
End
[/code]
los caracteres inválidos solo metí 3 a forma de prueba, pero obviamente se pueden agregar todos los no validos.
que opinan?
última edición por v3ctor el Domingo, 25 Diciembre 2016, 19:43; editado 3 veces
Página 1 de 1
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario