从RichTextBox获取最大值

Question

我很难从富文本框中获取正确的最大值。我尝试使用3种不同的方法来找到最大值，并且所有方法都以相同的方式工作。对于此示例，我正在使用GPS Speed数据。因此，我将1乘1的速度添加到富文本框中。在某些情况下，我遇到的问题使我的最大速度值为11.3或11.4。

例如，如果速度大于12.0，则工作正常。如果速度低于11.0，则工作正常。如果速度超过（或开始于）11.5，然后下降到11.5以下，则报告的最大值将是以下11.3或11.4数字之一

似乎我的代码确实认为11.3是最大的数字。

[我尝试过Richtextbox.lines.Max（），我尝试将数据添加到列表，还尝试将RTB添加到数组并使用以下方法。

   Private Sub CheckMaxSpeed()
        Dim speed
        If MaxSpeedRTB.Text = "" Then
            MaxSpeedtxt.Text = "N/A"
            MaxSpeedtxt.Text = "N/A"
            Exit Sub
        Else
            'speed = MaxSpeedRTB.Lines.Max()
            'Dim speedlist As List(Of String) = MaxSpeedRTB.Lines.ToList
            Dim myArr As String() = MaxSpeedRTB.Lines
            speed = myArr.Max()
            'speed = speedlist.Max
            speed *= 1.15078
            speed = Math.Round(speed, 1)
            If speed < 0.4 Then
                speed = "0.0"
            End If
            MaxSpeedtxt.Text = speed & " MPH"
            MaxSpeedRTB.Clear()
            MaxSpeedCom = False
        End If

Answer 1

对Max调用string是灾难的秘诀。

相反，尝试将所有行解析为Single，然后对它调用Max：

Dim lines = RichTextBox1.Lines

Dim values = New List(Of Single)

For Each line As String In lines
    Dim result As Single
    Dim tryParse = Single.TryParse(line, result)
    If tryParse Then
        values.Add(result)
    End If
Next

Dim max = values.Max()

结果：

For the following lines in RichTextBox:
11.1
11.123
Max = 11.123