1

ジャンクを解析して、大量のテキストを絞り込もうとしています。aが一致しない場合、現在の行を削除するにはどうすればよいですか？行を完全に削除したい：

For i As Integer = 0 To RichTextBox1.Lines.Length - 1
  Dim a As String = RichTextBox1.Lines(i).ToString
  If Not a = "SaveThisLine" Then
    'delete the active line
  End If
Next

また、部分的にどのように一致させますか？if not a = "SaveThisLine" & *（ワイルドカードを使用するため）など。

4

2 に答える 2

1

元のテキストには触れず、有効な行をに保存します。StringBuilderしたがって、行が有効な場合は、それに保存AppendLineします。RichTextBox1.Text最後に、を使用するようにダンプしStringBuilder.ToStringます。

VB.NETでの部分一致の場合、ネイティブLike演算子を使用できます。

"aaa" Like "a*"

を返しますTrue。

または、正規表現を使用します。

System.Text.RegularExpressions.Regex.Match("aaa", "^a").Success

また、を返しますTrue。

于 2012-11-13T02:45:57.387 に答える
0

この方法で次のことができます。

   For i As Integer = 0 To RichTextBox1.Lines.Length - 1
        If RichTextBox1.Lines(i) = "2" Then
            RichTextBox1.Text = Replace(RichTextBox1.Text, RichTextBox1.Lines(i), "", , 1)
        End If
    Next
于 2012-11-13T07:00:39.200 に答える