Convertir cadena a arreglo
Publicado por Carlo (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:
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:
pero me marcar una excepción.
Les paso el programa con la excepción espero me puedan ayudar
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 = 0txt_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 = 9End 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 = 0End 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
Les paso el programa con la excepción espero me puedan ayudar
- Fracmentar-palabra.zip(139,2 KB)
Valora esta pregunta
0
