空の行が検出されるまで行をコピーしようとしていますが、このコードはコンピューターに遅れをとっています。別のwhileループ内でwhileループを実行しているため、何が間違っているのかわかりません。ここに私のコードがあります:
ElseIf String.Compare(line, "the") = 1 And Not line.ToLower().Contains("by") Then
While True
Dim title = New Regex("^\s*$").Matches(line).Count
If title = 1 Then Exit While
builder.AppendLine(line)
builder.AppendLine(reader.ReadLine())
End While