我试图复制这些行直到检测到一个空行但是这段代码滞后于我的计算机我不知道我做错了什么这是因为我在另一个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