如何在richtextbox中查找带有特殊字符串的行并保存

Question

首先，我是新学习者，我的英语不好，我希望你能理解我的问题。谢谢

我有richtextbox

• ABC
• 高清
• GHJ
• ABC
• 123

和4复选框

• ABC
• 高清
• GHJ
• 123

1按钮保存

++++

如果我检查checkbox1（abc），则richtextbox只显示行有字符串“abc”（在此演示中，它只显示2行有“abc”

如果我点击保存，对话框将打开以保存新文件有2行字符串“abc”到pc

如果我检查checkbox2（def），则richtextbox只显示行有字符串“def”

如果我点击保存，对话框将打开以保存新文件有1行字符串“def”到pc

Checkbox3 + 4同样是1和2。

我希望有人可以帮我解决这个问题，非常感谢你。

Answer 1

删除文本框中的所有文本，但复选框文本

 For Each line In RichTextBox1.Lines
        If line <> CheckBox1.Text Then
            RichTextBox1.Text = RichTextBox1.Text.Replace(line.ToString, "")
        End If
    Next

并写入文件...

My.Computer.FileSystem.WriteAllText("path", TextBox1.Text, False)

您可以使用savefiledialog中的路径更改“path”

Dim saveFileDialog1 As New SaveFileDialog()
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
    My.Computer.FileSystem.WriteAllText(saveFileDialog1.FileName, TextBox1.Text, False)
End If

祝好运！