|
Página 1 de 1
|
Exigir Un Correo O Web Mínimo En Un Textbox
Autor |
Mensaje |
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
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
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
última edición por v3ctor el Domingo, 16 Octobre 2016, 20:01; editado 1 vez
|
#1 Domingo, 16 Octobre 2016, 20:00 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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:
=================== No podemos regresar
|
#2 Lunes, 17 Octobre 2016, 05:39 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
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?
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#3 Lunes, 17 Octobre 2016, 13:01 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Exigir Un Correo O Web Mínimo En Un Textbox
bueno fusione tu ejemplo con el mio y salio esto:
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#4 Lunes, 17 Octobre 2016, 13:19 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
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
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#5 Lunes, 17 Octobre 2016, 13:46 |
|
|
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación:
|
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.
última edición por tincho el Lunes, 17 Octobre 2016, 16:50; editado 1 vez
|
#6 Lunes, 17 Octobre 2016, 16:49 |
|
|
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación:
|
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.
|
#7 Lunes, 17 Octobre 2016, 17:04 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
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.
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#8 Lunes, 17 Octobre 2016, 19:02 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
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?
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
última edición por v3ctor el Domingo, 25 Diciembre 2016, 19:43; editado 3 veces
|
#9 Domingo, 25 Diciembre 2016, 19:38 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
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
|
|
|
|
|