Visual Basic.NET - Convertir cadena a arreglo

   
Vista:

Convertir cadena a arreglo

Publicado por Carlo carlorioo@hotmail.com (3 intervenciones) el 02/02/2016 18:18:22
Hola que tal nececito convertir una cadena de caracteres a un arreglo, es decir si tengo una palabra por ejemplo: hola mundo en una variable tipo string nececito pasarla a un arreglo y en cada posición del vector quiero guardarla, ya tengo un programa que hace eso es el siguiente:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Class Form1
    Dim s As String = "Hola mundo"
    Dim chars = s.ToCharArray()
    Dim ctr As Integer
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        s = txt_entrada.Text
        ctr = 0
        txt_cadena.Text = (chars(ctr))
        Label1.Text = ctr
    End Sub
 
    Public Sub btn_converter_Click(sender As Object, e As EventArgs) Handles btn_converter.Click
        txt_entrada.Text = s
        If ctr >= 0 And ctr < 9 Then
 
            ctr = Val(ctr) + Val(1)
            txt_cadena.Text = (chars(ctr))
            Label1.Text = ctr
        ElseIf ctr = 9 Then
            ctr = 9
        End If
    End Sub
 
    Private Sub btn_converter2_Click(sender As Object, e As EventArgs) Handles btn_converter2.Click
        txt_entrada.Text = s
        If ctr <= 9 And ctr > 0 Then
 
            ctr = Val(ctr) - Val(1)
            txt_cadena.Text = (chars(ctr))
            Label1.Text = ctr
        ElseIf ctr = 0 Then
            ctr = 0
        End If
 
    End Sub
End Class

Solo que en lugar de Dim s As String = "Hola mundo" quiero poner un texbox para que el texto se este modificado y guardando en el arreglo ejemplo:
1
Dim s As String = txt_entrada.text
pero me marcar una excepción.

Les paso el programa con la excepción espero me puedan ayudar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Carlos Grimaldo

Convertir cadena a arreglo

Publicado por Carlos Grimaldo (5 intervenciones) el 03/02/2016 04:51:32
Pruebalo....

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Convertir cadena a arreglo

Publicado por Carlo (3 intervenciones) el 04/02/2016 16:53:24
Muchas gracias me fue de bastante utilidad.

Saludos!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Wilfredo Patricio Castillo

Convertir cadena a arreglo

Pero para qué complicarse la vida tanto con eso?.

Prueba lo siguiente:

1
2
3
4
5
Dim MiCadena as string
 
MiCadena="Hola Mundo"
 
MiCadena.ToArray

Ya tienes el array de la cadena lista.

Simple no?.

Quieres recorrerlo?

1
2
3
For Each S As Char In MiCadena.ToArray()
        MessageBox.Show(S)
Next

Recorrer por índice?

1
2
3
For I As Integer = 0 To MiCadena.ToArray.Count - 1
        MessageBox.Show(MiCadena(I))
Next

------------------------
Pero a pesar de eso lo quieres meter a otro arreglo

1
2
3
4
Dim elarray(MiCadena.Length - 1) As String
For i As Integer = 0 To MiCadena.Length - 1
       elarray(i) = Mid(Micadena, i + 1, 1)
Next

Espero te ayude en lo que busques.

Saludos cordiales,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Convertir cadena a arreglo

Publicado por Carlo (3 intervenciones) el 04/02/2016 16:55:03
Gracias saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar