Question

我有一个a2 richtext框，第一个名为a1 second one b2。他们都有文本

我想要做的是：删除a2与b2的任何一行所以如果a2包含行第一行= 1256 第二个= 5678 ....等等我想在a2 1256和5678 ..etc

中删除b2中包含此行的任何行

我尝试使用过滤器，但这需要很长时间，因为有很多行并没有工作

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

我希望代码对你有用

从rtb2中删除rtb1中的所有行

1 个答案: