0

次の最初の行に続いて「published」という文字列を取得したいと思います。これが私のコードです：

Dim builder As New StringBuilder()
Dim reader As New StringReader(txtOCR.Text)
While True
    Dim line As String = reader.ReadLine()
    If line Is Nothing Then Exit While
    If Not line.ToLower().Contains("published") Then
        builder.AppendLine(line)
    End If
End While
txtOCR.Text = builder.ToString()

このコードは、「published」という文字列が続くすべての行を取得しますが、次の最初の行のみを取得したいと思います。

4

1 に答える 1

1

「published」という単語を含む行の次の行が必要な場合:

Dim found as Boolean = False
Dim line as String = reader.ReadLine()
While Not line is Nothing
    If Found Then
        builder.AppendLine(line)
        Exit While
    End If
    If line.ToLower().Contains("published") Then
        Found = True
    End If
    line = reader.ReadLine()
End While

構文エラーはご容赦ください。私はVBに精通していません。

于 2013-02-28T04:06:15.180 に答える