Блог

в моем текстовом файле у меня есть следующие вещи: Я должен заставить его начинаться откуда-то и останавливаться в определенной точке. но он начинает только с этой точки, но он не знает, как остановиться в одной точке.

 [Letters]
A
B
C
D
E
[Loop]
[Words]
Fish
Facebook
Google
Youtube
  

Я должен отобразить ожидаемый результат:

 A
B
C
D
E
  

Тогда я должен заставить его отображаться

 Fish
Facebook
Google
Youtube
  

но это показывает мне:

 [Letters]
A
B
C
D
E
[Loop]
[Words]
Fish
Facebook
Google
Youtube
  

Код

    Dim line As String
        Using reader As StreamReader = New StreamReader(My.Application.Info.DirectoryPath amp; "TestReader.txt")
            line = reader.ReadLine
            Dim sb As New StringBuilder
            Do
                Do
                    If reader.Peek < 0 Then 'Check that you haven't reached the end
                        Exit Do
                    End If
                    line = reader.ReadLine
                    If line.StartsWith("[Letters]") AndAlso line.EndsWith("[Loop]") Then 'Check if we have reached another check box.
                        Exit Do
                    End If
                    sb.AppendLine(line)
                Loop
                TextBox1.Text = sb.ToString
            sb.Clear()
            Loop Until reader.Peek < 0
        End Using
  

Это предполагает, что startPrefix и endPrefix всегда будут присутствовать в файле:

 Dim startPrefix As String 'Set as required
Dim endPrefix As String 'Set as required

Dim lines As New List(Of String)

Using reader As New StreamReader("file path here")
    Dim line As String

    'Skip lines up to the first starting with the specified prefix.
    Do
        line = reader.ReadLine()
    Loop Until line.StartsWith(startPrefix)

    line = reader.ReadLine()

    Do Until line.StartsWith(endPrefix)
        lines.Add(line)
        line = reader.ReadLine()
    Loop
End Using

'Use lines here.
  

Вы действительно уверены, что хотите искать строки, которые начинаются с этих маркеров? Разве вы действительно не предпочли бы искать строки, равные этим маркерам?

Редактировать:

Вы могли бы — и, вероятно, должны — инкапсулировать эту функциональность в метод:

 Private Function GetLinesBetween(filePath As String, startPrefix As String, endPrefix As String) As String()
    Dim lines As New List(Of String)

    Using reader As New StreamReader(filePath)
        Dim line As String

        'Skip lines up to the first starting with the specified prefix.
        Do
            line = reader.ReadLine()
        Loop Until line.StartsWith(startPrefix)

        line = reader.ReadLine()

        'Take lines up to the first starting with the specified prefix.
        Do Until line.StartsWith(endPrefix)
            lines.Add(line)
            line = reader.ReadLine()
        Loop
    End Using

    Return lines.ToArray()
End Function