¿Cómo debo hacer esto para trabajar en un cuadro de texto? Dim Dimmbers () As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20}

No trabajado: Dim Numbers() As Integer = Textbox1.Text

-1
Sandu Mihai 16 dic. 2019 a las 10:01

2 respuestas

La mejor respuesta

Este código debería funcionar:

Dim Numbers() As Integer = TextBox1.Text.Split(",").Select(Function(v) CInt(v)).ToArray()

Divide el texto por ',' y crea una matriz de cadenas a partir de él. Luego toma todos los elementos de esa matriz de cadenas, los convierte en enteros y crea una nueva matriz a partir de estos.

1
Kai Hartmann 16 dic. 2019 a las 07:22

He dividido los valores por ',' a la matriz de cadenas y asigno valores a la matriz Int.

Dim names As IList(Of String) = textBox1.Text.Split(","c)
Dim Numbers As Integer() = New Integer(names.Count - 1) {}

For i As Integer = 0 To names.Count - 1
    Numbers(i) = Convert.ToInt16(names(i))
Next
1
nanda9894 16 dic. 2019 a las 07:45