简化字符串异常检查

Question

在我的代码中，我将运行一个过程并检索部分标准错误输出（一个数字），以引发一个发送进度号的事件。

有时我在“ .First”方法的这一行出现异常，因为该字符串没有任何分割内容：

out = mp3gain_For_NonTag.StandardError.ReadLine.Trim.Split("%").First

问题是我想添加必要的检查来避免该异常而不进行尝试/捕获，因为在我的速度测试中，我注意到此过程中的尝试/捕获会大大降低性能。

我想简化代码以进行必要的检查，但又不要捕获任何异常（到我添加的检查那一刻，执行起来比尝试/捕获要快）。

这是代码：

Private Shared Sub Run_MP3Gain_NotTag()

    mp3gain_For_NonTag.Start() ' Run process

    Dim out as string  = mp3gain_For_NonTag.StandardError.ReadToEnd

    While Not mp3gain_For_NonTag.HasExited

        If Not String.IsNullOrEmpty(out) Then
            ' This would generate numbers between 1 to 100
            out = mp3gain_For_NonTag.StandardError.ReadLine.Trim.Split("%").First
        End If

        If Integer.TryParse(out, 0) Then
            RaiseEvent MP3Gain_Progress(out)
        End If

    End While

    RaiseEvent MP3Gain_Exited()

End Sub

...并且有关其他信息，这是我不希望做的示例，我可以说，即使在未捕获任何异常种类的情况下，像在此修改后的代码中那样添加try捕获，也会大大降低性能：

Private Shared Sub Run_MP3Gain_NotTag()

    mp3gain_For_NonTag.Start() ' Run process

    Dim out as string = mp3gain_For_NonTag.StandardError.ReadToEnd 

    While Not mp3gain_For_NonTag.HasExited

        Try
            out = mp3gain_For_NonTag.StandardError.ReadLine.Trim.Split("%").First
            RaiseEvent MP3Gain_Progress(out)
        Catch : End Try

    End While

    RaiseEvent MP3Gain_Exited()

End Sub

Answer 1

我认为.FirstOrDefault（）可能是您的答案。

再看一遍。 我认为您的问题不是第一种方法。 First引发的异常是一种症状。 你的问题是你设置out通过读取到流的末尾，然后运行通过尝试读取另一条线，这将返回任何结果，因此异常分裂。 只是拆分out ，一切都应该没问题：

Dim out as string  = mp3gain_For_NonTag.StandardError.ReadToEnd

While Not mp3gain_For_NonTag.HasExited

    If Not String.IsNullOrEmpty(out) Then
        ' This would generate numbers between 1 to 100
        out = out.Trim.Split("%").First()
    End If

Answer 2

检查拆分字符（ % ）的索引，并且仅在找到拆分后才进行拆分，如下所示：

If out.IndexOf("%") > -1 Then
    ' Do split logic here
End If

Answer 3

尝试使用检查错误消息中“％”值并返回适当值的函数。

out = ParseError(mp3gain_For_NonTag.StandardError.ReadLine.Trim())

Private Function ParseError(msg As String) As String
    Dim retVal As String = msg
    If msg.Contains("%") Then retVal = msg.Split("%").First
    Return retVal
End Function

Answer 4

将ReadLine的结果粘贴到另一个变量中，然后在其上运行String.IsNullOrEmpty（），然后对其进行修剪，在其上运行String.IsNullOrEmpty（）。 如果仍然没问题，请将其拆分并对其进行“第一”操作。 没有错误，而且比让它出错并捕获它要快。

Dim x as string = mp3gain_For_NonTag.StandardError.ReadLine
if Not String.IsNullOrEmpty(x) then
 x = x.trim
 If Not String.IsNullOrEmpty(x) then
  out = x.Split("%").First
 End If
End If

Answer 5

尝试/捕获块本身不会损害性能； 只有当实际抛出异常并捕获异常时，性能才会受到影响。

话虽如此，如果您可以避免完全使用异常，则应该这样做。 在这种情况下，您可以轻松检查Split的结果是否至少包含一个元素：

Dim parts = out = mp3gain_For_NonTag.StandardError.ReadLine.Trim.Split("%")
If parts.Length > 0 Then
    out = parts.First
End If

另一种选择是使用FirstOrDefault代替First ; 如果没有结果，它将不返回Nothing 。