Visual Basic - VAlidacion de caracteres.

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.

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

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.

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)