[RESOLVED] Get a two dimensional array from a string

[zhshqzyc]

Each row has fixed columns.

[kareninstructor]

May not be elegant but it works off a StringBuilder.ToString method. I did a List(Of String), you can tweak it to an array.

Private Sub Form1_Load() Handles MyBase.Load
   Dim sb As New System.Text.StringBuilder
   sb.Append("1,1,2,2,0,0,a,b,c,d,1,1,2,2,0,1,e,f,g,h,1,1,2,2,0,1,x,y,x,z")

   Dim Result = sb.ToString.BreakApart
   If Result.Count > 0 Then
      For Each item In Result
         Console.WriteLine("[{0}]", item)
      Next
   End If
End Sub

Place in code module

<Runtime.CompilerServices.Extension()> _
Public Function BreakApart(ByVal Values As String) As List(Of String)
   Dim Items As New List(Of String)
   Dim Count As Integer = Values.Split(",".ToCharArray).Length \ 10

   If Count > 0 Then
      Items.Add(Values.Substring(0, 19))
      If Count > 1 Then
         For x As Integer = 1 To Count - 1
            Items.Add(Values.Substring(x * 20, 19))
         Next
      End If
   End If

   Return Items

End Function