none
Como encuentro una cadena de caracteres o caracteres en un array en visual basic 6? RRS feed

  • Pregunta

  • Hola!!

    Busque en las guias, manuales y foros pero no encontre por ningun lado un ejemplo funcional o codigo similar a la sintaxis que usa visual basic 6

    Busco encontrar: "O" dentro de un array de abecedario

    abecedario(26) as string

    abecedario(0) = "A"
    ...

    abecedario(26) = "Z"

    Me dicen que use IndexOf pero no se la sintaxis o la estructura de busqueda.

    Una vez encontrado el indice donde esta la Letra, quisiera guardar la informacion en una variable para usarla y posicionar elementos!

    Alguien sabe?

    domingo, 14 de mayo de 2017 19:48

Respuestas

  • Hasta donde entiendo la función IndexOf no está disponible en Visual Basic 6.0, por tanto puedes implementar la misma de manera simple: recorriendo y comparando cada elemento de la colección, por ejemplo:

    Private Function IndexOf(ByRef abecedario() As String, Letra As String) As Integer
    
        Dim Index As Integer
        
        IndexOf = -1
        
        For Index = 0 To UBound(abecedario)
            If abecedario(Index) = Letra Then
                IndexOf = Index
            End If
        Next
    
    End Function
    

    - Uso de la función:

    Dim Posicion As Integer
        
    Posicion = IndexOf(abecedario, "N")
    
    If Posicion <> -1 Then
    	MsgBox ("La posición de N es " & Posicion) '13
    Else
    	MsgBox ("No se encontro el elemento en la colección")
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    domingo, 14 de mayo de 2017 22:38

Todas las respuestas

  • Hasta donde entiendo la función IndexOf no está disponible en Visual Basic 6.0, por tanto puedes implementar la misma de manera simple: recorriendo y comparando cada elemento de la colección, por ejemplo:

    Private Function IndexOf(ByRef abecedario() As String, Letra As String) As Integer
    
        Dim Index As Integer
        
        IndexOf = -1
        
        For Index = 0 To UBound(abecedario)
            If abecedario(Index) = Letra Then
                IndexOf = Index
            End If
        Next
    
    End Function
    

    - Uso de la función:

    Dim Posicion As Integer
        
    Posicion = IndexOf(abecedario, "N")
    
    If Posicion <> -1 Then
    	MsgBox ("La posición de N es " & Posicion) '13
    Else
    	MsgBox ("No se encontro el elemento en la colección")
    End If


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    domingo, 14 de mayo de 2017 22:38
  • http://fotos.subefotos.com/fb0d05670146d5a77a5980490577a50do.png

    Graciaaas sos un genio!

    Tu sistema soluciono mis problemas *-*

    Ahora puedo proseguir con mas palabras que solo 2 jajaja

    Algun dia espero saber tanto como vos

    lunes, 15 de mayo de 2017 0:10