Cómo dividir una cadena por x cantidad de caracteres

Question

Tengo un programa donde un usuario ingresa una lista de números en forma de cadena. Esta lista de números es siempre un múltiplo de 8.

De modo que la lista puede contener 8, 16, 32, 40, 48, etc. números.

Necesito dividir esa cadena en cada 8 caracteres.

Por ejemplo, digamos que el usuario introduce "1234123445674567"

Cómo puedo dividirlo en una matriz de cadenas, donde (0) es "12341234" y (1) es "45674567"

Nota: el tamaño de la matriz tiene que ser igual a la longitud de la cadena dividido por 8.

Como esto:

Dim stringArray(txtInput.Text.Length/8) as String 

Edi t: Sé que podría hacer esto haciendo un ciclo que cuente 8 números y lo divida en un conjunto, pero sería muy largo y tomaría algunas variables, y sé que hay una forma más eficiente de hacerlo. Simplemente no sé la sintaxis.

Answer 1

Esto debe dividir la cadena en una matriz de subcadenas de 8 caracteres

Dim orig = "12344321678900987" 
Dim res = Enumerable.Range(0,orig.Length\8).[Select](Function(i) orig.Substring(i*8,8)) 

Answer 2

Se puede usar un bucle For y Substring:

Dim strings As New List(Of String) 

For i As Integer = 0 To Me.txtInput.Text.Length - 1 Step 8 
    strings.Add(Me.txtInput.Text.Substring(i, 8)) 
Next 

Convertir la lista strings a una matriz (si realmente necesita uno) se puede utilizar strings.ToArray().

---

Además, se puede usar expresiones regulares y LINQ para una fantasía de una sola línea:

Text.RegularExpressions.Regex.Matches(Me.txtInput.Text, ".{8}").Select(Function(x) x.Value) 

Answer 3

Function slice(ByVal s as String) As String() 
    Return (From c As String in s).ToArray() 
End Function 

Answer 4

Para expandir la respuesta aceptada, esto dividirá una cadena en partes incluso si la cadena no es divisible por el divisor

Public Function SplitInParts(s As String, partLength As Integer) As IEnumerable(Of String) 
     If String.IsNullOrEmpty(s) Then 
      Throw New ArgumentNullException("String cannot be null or empty.") 
     End If 
     If partLength <= 0 Then 
      Throw New ArgumentException("Split length has to be positive.") 
     End If 
     Return Enumerable.Range(0, Math.Ceiling(s.Length/partLength)).Select(Function(i) s.Substring(i * partLength, If(s.Length - (i * partLength) >= partLength, partLength, Math.Abs(s.Length - (i * partLength))))) 
    End Function