Question

[vb.net]如何在richtextbox中查找关键字的位置（所在行），然后删除所在行上面或者下面的行

Answer 1

假设richtextbox1中有这样一些文本:
-------------------------
[vb.net]如何在
richtextbox
中查找关键字的位置
（所在行），然后删除
所在行上面或者
下面的行
--------------------------
找到关键字 "然后" 删除相邻行 代码如下:

Dim Lines() As String = RichTextBox1.Lines
Dim index As Integer = RichTextBox1.Find("然后", 0, RichTextBoxFinds.MatchCase)
Dim TargetLine As Integer = RichTextBox1.GetLineFromCharIndex(index)

Lines(TargetLine - 1) = ""
Lines(TargetLine + 1) = ""

RichTextBox1.Clear()

For i = 0 To Lines.Length - 1
RichTextBox1.Text = RichTextBox1.Text & Lines(i) & vbCrLf
Next

追问

如果要是删除上面 或者 下面所有的行怎么删除？

追答

Enum UpDown
Up = 0
Down = 1
End Enum

Private Sub DeleteText(ByVal _rich As RichTextBox, ByVal Key As String, ByVal Target As UpDown)
Dim Lines() As String = RichTextBox1.Lines
Dim index As Integer = RichTextBox1.Find("然后", 0, RichTextBoxFinds.MatchCase)
Dim TargetLine As Integer = RichTextBox1.GetLineFromCharIndex(index)

RichTextBox1.Clear()

Select Case Target
Case UpDown.Up
For i = 0 To TargetLine - 1
Lines(i) = ""
Next
Case UpDown.Down
For i = Lines.Length - 1 To TargetLine + 1 Step -1
Lines(i) = ""
Next
End Select

For i = 0 To Lines.Length - 1
RichTextBox1.Text = RichTextBox1.Text & Lines(i) & vbCrLf
Next

End Sub

调用: DeleteText(RichTextBox1, "然后", UpDown.Down) '删除以下
DeleteText(RichTextBox1, "然后", UpDown.Up)'删除以上

追问

为什么运行时候RichTextBox1就清空了？

追答

Soory 请把DeleteText过程中的所有RichTextBox1改为_rich 我忘记了.
然后请贴出你的代码.

追问

Dim getReader As New System.IO.StreamReader(Me.WebBrowser1.DocumentStream, System.Text.Encoding.Default)
Dim gethtml = getReader.ReadToEnd()
Me.RichTextBox2.Text = gethtml '==源代码
DeleteText(RichTextBox2, "id=""1""", UpDown.Down)

追答

若 id="1" 是唯一的 应该没有问题

追问

Dim index As Integer = RichTextBox2.Find("id=""1""", 0, RichTextBoxFinds.MatchCase)
这里的也改了，但是输出的richtextbox2 是空的

追答

把处理文本贴上,或者Hi我 超过三次追问会扣你分的