刪除rtb1中的任何一行rtb2

Question

我有一個a2富文本框第一個叫a1第二個b2。他們都有文本

是林試圖做的：刪除A2具有從B2 所以，如果A2含有線 第一線= 1256 第二個= 5678 ....等 我想任何線路刪除B2包含在A2 1256和該行5678 ..等

任何行我試圖使用過濾器而是花了很長一段時間，因爲有很多的線條和沒有工作的

Answer 1

我試圖解決您的問題所以我達到了這個目標（這不完全是你想要的，但它可以幫助你）：

Public Class Form1 
    Dim CheckChar, CheckedChar As String 
    Dim CheckedNum As Integer = 1 

    Private Sub CheckBUT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBUT.Click 
     If Not a1.Text = "" Then 
      If a1.Text.Length > 2 Then 
ReRead:   If CheckedNum = 1 Then 
        CheckChar = a1.Text.Remove(1) 
       Else 
        CheckChar = a1.Text.Substring(CheckedNum - 1) 
        If Not CheckedNum = a1.Text.Length Then 
         CheckChar = CheckChar.Remove(1) 
        End If 
       End If 
       If CheckChar.Contains("" & vbLf & "") Then 
        CheckedChar = a1.Text.Remove(CheckedNum - 1) 
        CheckChar = b2.Find(CheckedChar) 
        If Not CheckChar = -1 Then 
         b2.Text = b2.Text.Replace(CheckedChar & ("" & vbLf & ""), "") 
        End If 
       Else 
        a1.Text.Substring(CheckedNum - 1) 
       End If 
       If CheckedNum = a1.Text.Length Then 
        CheckedNum = 1 
       Else 
        CheckedNum = CheckedNum + 1 
        GoTo ReRead 
       End If 
      End If 
     End If 
    End Sub 
End Class 

我希望代碼對您有用