1

テキストボックスから文字列を1行ずつ抽出するループがあります。最後の行が別のテキストボックスに保存する場合は、条件を設定します。これが私のコードです

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

        Dim WordCount = New Regex("\w+").Matches(line).Count

        If WordCount = 1 And Not line.ToLower().Contains("by") Then
            builder.AppendLine(line)

        ElseIf line.ToLower().Contains("the") And Not line.ToLower().Contains("by") Then
            builder.AppendLine(line)

        ElseIf line.ToLower().Contains("an") And Not line.ToLower().Contains("by") Then
            builder.AppendLine(line)
        End If
End While
txtTitle.Text = builder.ToString()
4

2 に答える 2

0

ループ内でカウンターを使用してから、次のようにします。

If iCounter = txtOCR.Lines.Length Then
    '...
End If
于 2013-02-26T09:07:51.913 に答える
0

それぞれの変数を特定の にstring割り当てるだけです。それぞれのテキストを置き換え、最終的に期待どおりの結果を生成します。'Line'iterationwhile looptext boxiterations

While True

        Dim line As String = reader.ReadLine()
        If line Is Nothing Then Exit While

        ....................
        ....................

        txtNew.text = line 'Assigning the variable to the separate text box

End While
于 2013-02-26T09:28:12.510 に答える