Vb.net复选框不会从文本文件加载

Question

我尝试从VB.NET中的文本文件加载复选框，作为我的应用程序设置表单的一部分。 我使用了这段代码：

Sub loadfiles()
    Dim read As System.IO.StreamReader

    read = My.Computer.FileSystem.OpenTextFileReader("C:\Users\Public\Documents\procrastinGONEnotif.txt")
    Dim text As String = read.ReadToEnd()
    read.Close()
    If text = "false" Then
        CheckBox1.Checked = False
    Else
        If text = "true" Then
            CheckBox1.Checked = True
        Else
            MessageBox.Show("ERROR!")
        End If
    End If
End Sub

文件保存代码就在这里：

Dim write As System.IO.StreamWriter
write = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\Public\Documents\procrastinGONEnotif.txt", False)
If CheckBox1.Checked = True Then
    write.WriteLine("true")
Else
    write.WriteLine("false")
End If
write.Close()

该文件应该在窗体启动时加载，并在我按下按钮时保存。 但是，即使存在并且包含“ true”或“ false”，该窗体也不会加载文件。 而是，代码将其检测为“ true or false”，并发送消息“ ERROR！”，我将其添加到应用程序中以测试它是否实际读取了文件。

Answer 1

问题是当您读/写值false 。 输出文件中的false后面有一个换行符，当您打开文本文件或将其最初读入text时可见。 一个简单的解决方案是简单地使用read.ReadToEnd().Trim()删除多余的空白字符。

您还可以将嵌套的If...Else合并为If...ElseIf...Else以减少代码的混乱度。

Sub loadfiles()
    Dim read As System.IO.StreamReader
    read = My.Computer.FileSystem.OpenTextFileReader("C:\Users\Public\Documents\procrastinGONEnotif.txt")
    Dim text As String = read.ReadToEnd().Trim()
    read.Close()
    If text = "false" Then
        CheckBox1.Checked = False
    ElseIf text = "true" Then
        CheckBox1.Checked = True
    Else
        MessageBox.Show("ERROR!")
    End If
End Sub

Answer 2

您可以将整个代码缩短为

对于加载：

CheckBox1.Checked = Convert.ToBoolean(System.IO.File.ReadAllText("FILE_PATH"))

为了节省

IO.File.WriteAllText("FILE_PATH", Convert.ToString(CheckBox1.Checked))