Programación General > Visual Basic 6.0 e inferiores

 Re: Busqueda de Caracter en cadena

(1/1)

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

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

Navegación

[0] Índice de Mensajes