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

Question

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

我有richtextbox

• ABC

• DEF

• GHJ

• ABC

• 123

和4个复选框

• ABC
• DEF
• 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)

你可以改变＆＃34;路径＆＃34;来自savefiledialog的路径

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

祝你好运！