Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Lightningdd en Viernes 20 de Octubre de 2006, 21:49
Título: Validar Datos
Publicado por: Lightningdd en Viernes 20 de Octubre de 2006, 21:49
Hola
Alguien sabe como puedo validar un número de identificación. es de longitud fija (10) y debe estar formado solo por números y las letras mayusculas A,B,C (p.e. 0101C4387A), bien tengo el siguente codigo:
Código: Text
If Len(VariableString) = 10 then
'Realizar tarea
End If
Ahora el problema es como saber si esa variable esta formada solo por números y las letras A,B,C. ojala puedan ayudarme.
Gracias.
Título: Re: Validar Datos
Publicado por: F_Tanori en Viernes 20 de Octubre de 2006, 22:06
con funciones de manejo de texto
texto="Cadena"
resultado=left (texto,2) '//devuelve "Ca" dos caracteres de la izquierda resultado=right (texto,2) '//devuelve "na" dos caracteres de la derecha resultado=Mid(texto,2,3) '//devuelve "ade" dos caracteres de la izquierda iniciando del segundo solo tomando 3 el ultimo parametro es opcional si lo omites te devuelve el restante de la cadena
resultado=Mid(texto,2) '// devuelve "adena"
Suerte
Título: Re: Validar Datos
Publicado por: ArKaNtOs en Viernes 20 de Octubre de 2006, 22:09
mira lo puedes hacer asi: Private Sub Command1_Click() For i = 1 To Len(Variablestring) x = Mid(Variablestring, i, 1) If (x < "0" Or x > "9") And (x < "A" Or x > "Z") Then MsgBox "error" Exit Sub End If Next MsgBox "todo bien" End Sub
Título: Re: Validar Datos
Publicado por: ArKaNtOs en Viernes 20 de Octubre de 2006, 22:10
ups me ganaste tanori jejejejje por cierto estas conectado?
Título: Re: Validar Datos
Publicado por: chantapalacios en Martes 31 de Octubre de 2006, 21:10
Amigos del visual basic, soy nuevo en este foro y aca les envio una funcion que resuelve el tema de la aceptacion de solo numeros
' ESTE EL EL TEXTBOX QUE SOLO ACEPTARA NUMEROS Private Sub Text1.text_KeyPress(KeyAscii As Integer) KeyAscii = SoloNumeros(KeyAscii) End Sub
' ACA ESTA LA FUNCION Function SoloNumeros(ByVal KeyAscii As Integer) As Integer If InStr("0123456789", Chr(KeyAscii)) = 0 Then ' si no se ha ingresado numero SoloNumeros = 0 Else SoloNumeros = KeyAscii End If If KeyAscii = 8 Then SoloNumeros = KeyAscii ' borrado atras If KeyAscii = 13 Then SoloNumeros = KeyAscii ' return End Function :comp: AGRADECER SIEMPRE ES BIEN RECIBIDO :comp: