none
Extraer todos los caracteres de una cade y alamacenarlos en variables RRS feed

  • Pregunta

  • Buenas noches

    mi consulta es la siguiente espero por favor me ayuden

    Deseo que al tener una cadena de caracteres 

    Dim Palabra as String

    la cual la obtengo por medio de un Textbox me almacene cada uno de los caracteres en una variable para luego trabajar con ellos,

    el ejemplo seria el siguiente

    Cadena = "Perro"

    que me almacene en variables o puede ser en un listbox cada carácter asi:

    p

    e

    r

    r

    o

    gracias de antemano

    Cordialmente,

    Ivan Mauricio Marin


    Ivan Mauricio Marin

    martes, 12 de febrero de 2019 1:06

Respuestas

  • Te recomiendo crear una matriz de tipo char y pasarle los datos de tu cadena con la función ToCharArray ejemplo  

    Module Module1
    
        Sub Main()
            Dim cadena As String = "Perro"
            Dim caracteres() As Char = cadena.ToCharArray
    
            For Each ch In caracteres
                Console.WriteLine(ch)
            Next
            Console.ReadLine()
    
            'El recultado en consola es
    
            'P
            'e
            'r
            'r
            'o
    
        End Sub
    
    End Module
    pero si simplemente lo quieres pasar a un listbox simplemente lo haces de este modo
      Sub AddCaracters()
            Dim cadena As String = "Perro"
           
            For Each ch In cadena.ToCharArray
                Listbox1.Items.add(ch)
            Next
    
            'El recultado en el listbox es
    
            'P
            'e
            'r
            'r
            'o
    
        End Sub
    


    • Marcado como respuesta magus_caligula martes, 12 de febrero de 2019 1:32
    martes, 12 de febrero de 2019 1:21

Todas las respuestas

  • Te recomiendo crear una matriz de tipo char y pasarle los datos de tu cadena con la función ToCharArray ejemplo  

    Module Module1
    
        Sub Main()
            Dim cadena As String = "Perro"
            Dim caracteres() As Char = cadena.ToCharArray
    
            For Each ch In caracteres
                Console.WriteLine(ch)
            Next
            Console.ReadLine()
    
            'El recultado en consola es
    
            'P
            'e
            'r
            'r
            'o
    
        End Sub
    
    End Module
    pero si simplemente lo quieres pasar a un listbox simplemente lo haces de este modo
      Sub AddCaracters()
            Dim cadena As String = "Perro"
           
            For Each ch In cadena.ToCharArray
                Listbox1.Items.add(ch)
            Next
    
            'El recultado en el listbox es
    
            'P
            'e
            'r
            'r
            'o
    
        End Sub
    


    • Marcado como respuesta magus_caligula martes, 12 de febrero de 2019 1:32
    martes, 12 de febrero de 2019 1:21
  • Eres Muy amable por tu oportuna respuesta funciono de maravilla

    gracias saludos


    Ivan Mauricio Marin

    martes, 12 de febrero de 2019 1:32
  • Fue un placer ayudarte 

    saludos y buenas noches

    martes, 12 de febrero de 2019 5:11