如何将文本框值与txt文件进行比较

Question

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim linenumber0 As Integer
    linenumber0 = 0
    Dim mass As Double
    mass = (File.ReadAllLines("225.txt").ElementAt(linenumber0).ToString)
    If (Math.Abs((cDbl(TextBox1.Text) - mass < 0.5) Then
        TextBox1.BackColor = Color.Green
    End If

我在从字符串转换为双精度无效时遇到错误。这可能是一个简单的解决方案，但我现在看不到它

Answer 1

我认为当你将值设置为 mass 时正在捕获一个字符串，所以用一个简单的 CDbl 来解析它，就像这样

mass = cDbl(File.ReadAllLines("225.txt").ElementAt(linenumber0).ToString)

我想通过这个修复它会起作用。以防万一，用 TRY CATCH 包围它以防它读取的内容无效

Answer 2

您的错误发生是因为从文件中读取的数据是 String，但是您正试图将其分配给声明为 Double.
的变量您可以使用 TryParse 将 String 转换为 Double，避免错误并提供适当的反馈。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim lineNumber0 As Integer
    Dim mass As Double
    Dim input As Double

    If Double.TryParse(File.ReadAllLines("225.txt").ElementAt(linenumber0), mass) Then
        If Double.TryParse(TextBox1.Text, input) AndAlso Math.Abs(input - mass) < 0.5 Then
            TextBox1.BackColor = Color.Green
        End If
    Else
        'Bad file input
    End If
    '...
End Sub

如何将文本框值与txt文件进行比较

How to compare textbox value to txt file

vb.net

textbox