将文本框值转换为双精度类型

Question

25.0
25.0
25.0
25.0
25.0
25.0
25.0
25.0
25.0
25.0
Dim value2 as double = 0.4
Dim lines As String() = Textbox1.Lines
lines = Val(lines(here is a line code loop)) + val(value2)
Textbox1.Lines = lines

我如何使这段代码工作?它只计算我的整数，例如，如果它是255.5，它只显示255。

我如何转换这个文本框，以计算双精度，例如25.4 + 25.7 = 30.1

我必须计算它的行值(即25.0) +新值，如果它是0.4，那么它将显示25.4，不幸的是，我的文本框不知道如何做到这一点，我不知道如何转换它，以便我可以正确读取值。

Answer 1

代替VisualBasic方法，我建议使用VB.NET。使用Double.Parse将每行的字符串解析为Double，然后添加固定值value2，并使用ToString将它们转换回字符串:

Dim invalidLines = From line in Textbox1.Lines
Where Not Double.TryParse(line.Trim(), Nothing)
If invalidLines.Any() Then
' Inform user that he should enter numeric values only '
Return
End If
Dim lineValues = From line in Textbox1.Lines
Select (Double.Parse(line.Trim()) + value2).ToString()
Textbox1.Lines = lineValues.ToArray()

您需要添加Imports System.Linq。