Удалить пробел или мозгодробитель Split. Восстание Массива - Visual Basic .NET - Ответ 4606810

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        OpenFileDlg.Filter = "Las файлы (*.las)|*.las|Текстовый документ (*.txt)|*.txt|Все файлы (*.*)|*.*"
        OpenFileDlg.Title = "Загрузка файла каратажа"
        OpenFileDlg.FileName = ""
        OpenFileDlg.FilterIndex = 3
        If OpenFileDlg.ShowDialog = DialogResult.Cancel Then
            Exit Sub
        End If
        Try
            Dim Mass() As String = IO.File.ReadAllLines(OpenFileDlg.FileName, Encoding.Default) ' Загружаемый массив
            Dim UbMass, Ub11 As Int32
            Dim arrayStroka(0) As String
            Dim i, j, UbmBlb, maxLen, Ub0, minLen As Int32
            UbMass = Mass.Length
            ListView1.Clear()
 
            Dim delim(3) As Char                        ' Выбор разделителей
            Ub11 = 0
            If CheckBoxProbel.Checked Then
                delim(Ub11) = CChar(" ")
                Ub11 += 1
            End If
 
            If CheckBoxZapataya.Checked Then
                delim(Ub11) = CChar(",")
                Ub11 += 1
            End If
 
            If CheckBoxTochkaZapat.Checked Then
                delim(Ub11) = CChar(";")
                Ub11 += 1
            End If
 
            If CheckBoxTab.Checked Then
                delim(Ub11) = Chr(9)                                    'Tabul = Chr(9)
                Ub11 += 1
            End If
            If Ub11 = -1 Then
                Ub11 = 0
                ReDim Preserve delim(Ub11)
                delim(Ub11) = Chr(64)                                   ' Если ни один из разделителей, то собака @
            Else
                ReDim Preserve delim(Ub11 - 1)
            End If
 
            'Определение Максимальной длины строки
            UbmBlb = Mass.GetUpperBound(0)
            maxLen = -1
            minLen = 9999999
 
            'NumMaxLen = -1
            For i = 0 To UbmBlb
                arrayStroka = StrokaDivider(Mass(i), delim)
                If maxLen <= arrayStroka.Length Then
                    maxLen = arrayStroka.Length
                End If
                If minLen >= arrayStroka.Length Then
                    minLen = arrayStroka.Length
                End If
            Next
 
            'If NumMaxLen = -1 Then
            'MsgBox("Максимальная длины строки не найдена")
            'Exit Sub
            'End If
 
            'создание столбцов в  ListView1
            ListView1.Items.Clear()
            ListView1.Columns.Clear()
 
            For i = 1 To maxLen
                ListView1.Columns.Add("Колонка" & CStr(i), 80)
            Next
 
            'преобразование одномерного массива в двумерный
            maxLen = maxLen - 1
            Dim mBln2(maxLen, UbmBlb) As String
 
            'предварительное заполнение
            For i = 0 To UbmBlb
                For j = 0 To maxLen
                    mBln2(j, i) = " "
                Next
            Next
            'заполнение массива 
            For i = 0 To UbmBlb
                arrayStroka = StrokaDivider(Mass(i), delim)
                Ub0 = arrayStroka.GetUpperBound(0)
                For j = 0 To maxLen
                    If j <= Ub0 Then
                        mBln2(j, i) = arrayStroka(j)
                    End If
                Next
            Next
 
            'заполнение ListView1
            For i = 0 To UbmBlb
                ListView1.Items.Add(mBln2(0, i))
                For j = 1 To maxLen
                    ListView1.Items(i).SubItems.Add(mBln2(j, i))
                Next
            Next
 
            MsgBox("Максимальная длина строки= " & CStr(maxLen + 1) & ", Минимальная длина строки= " & CStr(minLen))
 
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
 
    End Sub