SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: DiNeich en Viernes 9 de Mayo de 2003, 14:00

Título: Re: Busqueda de Caracter en cadena
Publicado por: DiNeich en Viernes 9 de Mayo de 2003, 14:00

Existe alguna funcion para buscar un caracter dentro de una cadena?
Muchas Gracias.
:hitcomp:

Título: Busqueda de Caracter en cadena
Publicado por: observador en Viernes 9 de Mayo de 2003, 15:06

Bien... eso que tu quieres se puede hacer con la funcion InStr... Aqui esta un codigo de ejemplo... para usarlo crea un nuevo proyecto Exe estandar, insertale un control CommandButton, copea el siguiente codigo y pegalo en la seccion (General) (Declaraciones) del Form... ejecutalo...

Private Sub Command1_Click()
    Dim Caracter As String
    Dim Cadena As String
    Dim PosicionDeCaracter As Integer
   
    Cadena = "Esta es la cadena Donde buscaras un caracter"
    Caracter = "d" 'Buscar este caracter, puede ser otra cadena tambien como "donde"
    'Una comparación textual que comienza en la posición 1
    PosicionDeCaracter = InStr(1, Cadena, Caracter, vbTextCompare)
    MsgBox "El caracter ""d"" esta en la posicion: " & PosicionDeCaracter, vbInformation
   
    Caracter = "Donde" 'Busca esta cadena
    'Una comparación binaria que comienza en la posición 5
    PosicionDeCaracter = InStr(5, Cadena, Caracter, vbBinaryCompare)
    MsgBox "La cadena ""Donde"" esta en la posicion: " & PosicionDeCaracter, vbInformation
   
    Caracter = "z" 'Buscar este caracter
    'Una comparación textual que comienza en la posición 2
    PosicionDeCaracter = InStr(2, Cadena, Caracter, vbTextCompare)
    MsgBox "El caracter ""z"" esta en la posicion: " & PosicionDeCaracter, vbInformation 'Como no esta devuelve 0 (Cero)    
End Sub

Bien... pues ahi esta... es todo tuyo.... (Probado en VB5)...

Bye... :comp: