Распарсить текст файла

    'Структура для хранения считанных данных
    Private Structure CurveInformation
        Public Mnemonic As String
        Public Unit As String
        Public Description As String
    End Structure
    Dim Curves() As CurveInformation
 
        'Весь файл считывается в AllText
        Dim AllText() As String = IO.File.ReadAllLines(Path)
        Dim j As Integer
        'Перебор элеметов AllText
        For i = LBound(AllText) To UBound(AllText) - 1
            'Если встретилось начало требуемого блока
            If AllText(i).StartsWith("~CURVE INFORMATION") Then
                'Структура заполняется данными кривых до начала следующего блока, символа "~" 
                Do Until AllText(i).StartsWith("~PARAMETER INFORMATION") = True
                    i += 1
                    'Коментарии игнорируются и не заносятся в структуру
                    If AllText(i).StartsWith("#") = False Then
                        Curves(j).Mnemonic = Trim(AllText(i).Substring(0, AllText(i).IndexOf(".")))
                        Curves(j).Unit = Trim(AllText(i).Substring(AllText(i).IndexOf(".") + 1, AllText(i).IndexOf(":") - AllText(i).IndexOf(".") - 1))
                        Curves(j).Description = Trim(AllText(i).Substring(AllText(i).IndexOf(":") + 1, AllText(i).Length - AllText(i).IndexOf(":") - 1))
                        j += 1
                        ReDim Preserve Curves(j)
                    End If
                Loop
            End If
        Next

Dim ar() as String = AllText(i).Split(Char() = {"."c, ":"c}))
Curves(j).Mnemonic = Trim(ar(0))
Curves(j).Unit = Trim(ar(1))
Curves(j).Description = Trim(ar(2))

Imports System.IO
Imports System.Linq
Imports System.Text.RegularExpressions
...
Dim curves = File.ReadAllLines("c:\users\ieuser\desktop\test.txt"). _
    SkipWhile(Function(l) l <> "~CURVE INFORMATION"). _
    Skip(1). _
    TakeWhile(Function(l) Not l.StartsWith("~")). _
    Where(Function(l) Not l.StartsWith("#")). _
    Select(Function(l)
        Dim m As Match = Regex.Match(l, "^([^.]+)*\.([^:]+):(.*)$")
        Return New CurveInformation() With { _
            .Mnemonic = m.Groups(1).Value.Trim(),
            .Unit = m.Groups(2).Value.Trim(), _
            .Description = m.Groups(3).Value.Trim() _
        }
    End Function). _
    ToArray()
 
...
 
Private Class CurveInformation
        Public Mnemonic As String
        Public Unit As String
        Public Description As String
End Class

For Each el As CurveInformation In curves
            ListBox1.Items.Add(el.Description)
            ListBox1.Items.Add(el.Mnemonic)
            ListBox1.Items.Add(el.Unit)
            ListBox1.Items.Add("=============")
        Next

    Private Class WellInformation
        Public PropertyName As String
        Public PropertyUnit As String
        Public PropertyValue As String
        Public PropertyDescription As String
    End Class
...
        Dim Properties = File.ReadAllLines(Path).
            SkipWhile(Function(l) l <> "~WELL INFORMATION SECTION").
            Skip(1).
            TakeWhile(Function(l) Not l.StartsWith("~")).
            Where(Function(l) Not l.StartsWith("#")).
            Select(Function(l)
                       Dim m As Match = Regex.Match(l, "^([^.]+)*\.([^:]+):(.*)$")
                       Return New WellInformation() With {
                       .PropertyName = m.Groups(1).Value.Trim(),
                       .PropertyUnit = m.Groups(2).Value.Trim(),
                       .PropertyValue = m.Groups(3).Value.Trim(),
                       .PropertyDescription = m.Groups(4).Value.Trim()
                       }
                   End Function).
        ToArray()
...

Regex.Match(l, "^([^.]+)*\.([^:]+):(.*)$")

"^([^.]+)*\.([^: ]+)*([^:]+):(.*)$"

    Private Sub DataReading(Path)
        'Двумерный массив для хранения данных
        Dim CurvesData(0, 0) As String
        'Переменные счетчики элементов в массиве
        Dim i As Integer
        Dim j As Integer
 
        'Считывание данных из файла. Данные начинаются со строки следующей за "~ASCII LOG DATA" и представляют собой колонки цифр.
        'Количество строк одинково во всех колонках, но не известно заранее.
        'Значения могут быть целыми, дробными, положительными и отрицательными.
        'Колонки отделены друг от друга как минимум одним пробелом.
        'Количество колонок может быть определено заранее, оно соответсвует количеству незакоментированных строк в секции "~CURVE INFORMATION"
        Dim AsciiData() = File.ReadAllLines(Path).
        SkipWhile(Function(l) Not l.Contains("~ASCII LOG DATA")).
             Skip(1).
        Where(Function(l) Not l.StartsWith("#")).ToArray
 
        'Для хранения и полследующей обработки предполагалось использование двумерного массива
        'Заполнение по строкам
        For i = LBound(AsciiData) To UBound(AsciiData) - 1
            'Каждая строка делится на элементы которые записываются в буфер (выделяются численные значения)
            Dim buff As String() = (From M As Match In Regex.Matches(AsciiData(i), "[0-9]+(\.[0-9]+)?") Select M.Groups(0).Value).ToArray()
            'И заносится в массив
            For j = LBound(buff) To UBound(buff) - 1
                CurvesData(i, j) = buff(j)
                ReDim Preserve CurvesData(i, j + 1)
            Next
            ReDim Preserve CurvesData(i + 1, j)
        Next
 
    End Sub

Dim asciiLines() = File.ReadAllLines(Path).
    SkipWhile(Function(l) Not l.Contains("~ASCII LOG DATA")).
    Skip(1).
    Where(Function(l) Not l.StartsWith("#")).
    ToArray()
 
Dim asciiData(,) As Double
Dim reNumbers = new Regex("-?\d+(\.\d+)?")
ReDim asciiData(asciiLines.Length-1, reNumbers.Matches(asciiLines(0)).Count-1)
For I = 0 To asciiLines.Length-1
    Dim matches = reNumbers.Matches(asciiLines(I))
    For J = 0 To matches.Count-1
        asciiData(I,J) = double.Parse(matches(J).Value, CultureInfo.InvariantCulture)
    Next
Next