如何利用文本文件保存并恢复CheckedListBox的复选框勾选状态？

看起来你正在实现用文本文件记录CheckedListBox勾选状态的功能，我来帮你完善代码，实现从文件读取内容并自动匹配勾选对应的项。

首先梳理核心逻辑：读取指定文本文件的每一行内容，遍历CheckedListBox的所有项，当项的文本和文件中的行匹配时，将该项设置为勾选状态。你的现有代码已经有了基础框架，我帮你修正并补全细节：

完整实现代码 #

Imports System.IO ' 需要引入IO命名空间

' 构建文件路径，用Path.Combine更安全，避免路径分隔符问题
Dim scriptDirectory As String = Path.Combine(s.ToString(), "Script")
Dim dbNameFilePath As String = Path.Combine(scriptDirectory, "DB_NAME.txt")

' 检查文件是否存在
If File.Exists(dbNameFilePath) Then
    ' 使用Using语句自动管理StreamReader的资源，避免内存泄漏
    Using reader As New StreamReader(dbNameFilePath)
        Dim currentLine As String
        ' 逐行读取文件内容，直到文件末尾
        Do Until reader.Peek() = -1
            currentLine = reader.ReadLine().Trim() ' 去除首尾空白，避免匹配误差
            ' 跳过空行
            If String.IsNullOrEmpty(currentLine) Then Continue Do
            
            ' 遍历CheckedListBox的所有项，寻找匹配项
            For itemIndex As Integer = 0 To grd_tabledata.Items.Count - 1
                ' 注意：如果你的CheckedListBox绑定了DataRowView（比如代码里的grd_tabledata）
                ' 需要替换下面的"DisplayFieldName"为你实际绑定的字段名称
                Dim itemDisplayText As String = CType(grd_tabledata.Items(itemIndex), DataRowView)("DisplayFieldName").ToString()
                
                ' 匹配文本，这里用忽略大小写的比较，你可以根据需求改成Ordinal（严格大小写）
                If itemDisplayText.Equals(currentLine, StringComparison.OrdinalIgnoreCase) Then
                    grd_tabledata.SetItemChecked(itemIndex, True)
                    Exit For ' 找到匹配项后退出循环，提升效率
                End If
            Next
        Loop
    End Using
Else
    ' 文件不存在时的处理逻辑，比如提示用户或者初始化所有项为未勾选
    MessageBox.Show("未找到DB_NAME.txt文件，所有项将保持未勾选状态")
End If

关键细节说明 #

• 路径拼接：用Path.Combine替代字符串拼接，能自动处理不同系统的路径分隔符（Windows是\，Linux是/），避免路径错误。
• 空白处理：读取每行后用Trim()去除首尾空格和换行符，防止因为文件里的多余空白导致匹配失败。
• 数据源绑定适配：如果你的CheckedListBox是绑定DataTable之类的数据源（代码里提到了DataRowView），必须正确获取项的显示文本，替换代码中的DisplayFieldName为你实际绑定的字段名。
• 匹配策略：用StringComparison.OrdinalIgnoreCase实现忽略大小写的匹配，如果你需要严格区分大小写，改成StringComparison.Ordinal即可。
• 资源管理：Using语句会自动释放StreamReader资源，不用手动调用Close()或Dispose()，更安全。

额外建议 #

• 如果需要保存勾选状态到文件，可以反向操作：遍历CheckedListBox中勾选的项，逐行写入到DB_NAME.txt文件中。
• 可以添加异常处理，比如捕获文件读取权限不足、文件格式错误等异常，提升程序稳定性：

  Try
      ' 上面的文件读取和匹配代码放在这里
  Catch ex As IOException
      MessageBox.Show($"读取文件出错：{ex.Message}")
  Catch ex As Exception
      MessageBox.Show($"发生未知错误：{ex.Message}")
  End Try
  

内容的提问来源于stack exchange，提问作者Nimisha Prajapati