Visual Basic - VAlidacion de caracteres.

Life is soft - evento anual de software empresarial
   
Vista:

VAlidacion de caracteres.

Publicado por molek (20 intervenciones) el 25/02/2010 18:16:18
Buen dia,

Como puedo validar que en la siguiente cadena de caracteres siempre el primer caracter sea un 1 o los primeros dos 1;

&#>1;carlos castaño;01/02/2009;antioquia

Y si es diferente omita los caracteres y me deje la linea asi:

1;carlos castaño;01/02/2009;antioquia

gracias por la colabora.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de A.H.H

RE:VAlidacion de caracteres.

Publicado por A.H.H (116 intervenciones) el 25/02/2010 20:36:38
Hola
no entendi muy bien lo que quieres hacer pero igual puede ayudar la funcion replace.

esta funcion reemplaza caracteres de una cadena por los que tu le digas.

un ejemplo seria:

Private Sub Command1_Click()
Dim cadena As String
cadena = "&#>1;carlos castaño;01/02/2009;antioquia"
cadena = Replace(cadena, "&#>1;", "")
MsgBox cadena
End Sub

en este ejemplo busca "&#>1," dentro de la variable cadena y lo reemplaza por "", osea lo elimina.

espero te sirva de algo

salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:VAlidacion de caracteres.

Publicado por ChidUng (44 intervenciones) el 26/02/2010 07:21:38
En realidad no entendí lo que quieres hacer:

Pero para buscar caracteres especiales o cadenas puedes usar:

CADENA="03984023#$%#1;XXXXX:9043430"

If INSTR(CADENA,"1) <> 0 THEN
' Es que si encontro un 1:
Posicion=INSTR(CADENA,"1") 'recuperamos posición (13)
CADENA=MID(CADENA,Posicion) 'solo dejas en la cadena el 1 y lo demás
End if

Kedaría Asi:
CADENA= "1;XXXXX:9043430"

Espero te sirva y perdon si no es lo que buscabas, pero a veces es bueno ser más claros en las consultas que se realizan.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:VAlidacion de caracteres.

Publicado por Pedro Luis (878 intervenciones) el 26/02/2010 10:19:55
Probar esto en el Inmediato
A="qqw12131231"
?mid(A,instr(a,"1"),len(A)-instr(A,"1")+1)
y esto
A="12131231"
?mid(A,instr(a,"1"),len(A)-instr(A,"1")+1)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar