|
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
|
|
|
|
|
