Kontynuuj kod po wyjątku

Question

Chciałbym wiedzieć, czy istnieje sposób, aby pozwolić programowi kontynuować po zgłoszeniu wyjątku. Na przykład:

Try 
    line 1 
    line 2 
    line 3 
    line 4 (here the exception is thrown and jumps to the catch) 
    line 5 <-- i would like the program to continue its execution loging the error 
    line 6 

Catch ex as Exception 
    log(ex.tostring) 
End Try 

Dzięki.

Answer 1

Jeśli robisz coś, co wiesz jak odzyskać lub że nie jest istotne, to powinniśmy owinąć tylko ten wiersz w try/catch z konkretnym połowu. np.

Try 
    line 1 
    line 2 
    line 3 
    Try 
    line 4 (here the exception is throw and jumps to the catch) 
    Catch iox as IOException ' or whatever type is being thrown 
    'log it 
    End Try 
    line 5 <-- i would like the program to continue its execution after loggin the error 
    line 6 

Catch ex as Exception 
    log(ex.tostring) 
End Try 

Answer 2

VB.net nie obsługuje tego typu konstrukcji. Gdy wyjątek rozwinie stos, nie będzie można go cofnąć. Niektóre języki pozwalają na wznowienie wyjątku, ale wymagają bardziej zaawansowanego zarządzania stosami - w zasadzie coroutines.

Answer 3

try 
    line 1 
catch ex as exception 
    log(ex.tostring) 
end try 
try 
    line 2 
catch ex as exception 
    log(ex.tostring) 
end try 
try 
    line 3 
catch ex as exception 
    log(ex.tostring) 
end try 
try 
    line 4 (here the exception is throw and jumps to the catch) 
catch ex as exception 
    log(ex.tostring) 
end try 
try 
    line 5 <-- i would like the program to continue its execution after loggin the error 
catch ex as exception 
    log(ex.tostring) 
end try 
try 
    line 6 
catch ex as exception 
end try 

Answer 4

Chociaż On Error Resume Nextstill available in VB.NET to, że wyklucza się do preferowanego sposobu strukturalnej obsługi wyjątków.

Zamiast tego, polecam użycie klauzuli Finally bloku Try..Catch..Finally, aby zapewnić wykonanie Line 5 and Line 6, nawet jeśli rzuci Linia 4 (lub jakakolwiek poprzednia Linia).

Try 
    line 1 
    line 2 
    line 3 
    line 4 
Catch ex as Exception 
    log(ex.tostring) 
Finally 
    line 5 
    line 6 
End Try 

Answer 5

Gdybym nie mylę „Dobrych Praktyk dla Obsługa wyjątków” mówi, że jeśli można sprawdzić za błąd, który będzie prawdopodobnie wystąpią następnie sprawdzenia tego warunku. Jeśli możesz sprawdzić dla dbnull, zrób to.

Answer 6

Wykorzystanie „Kontynuuj Dla”

Nie dobra praktyka wszędzie, ale przydatne w pewnych okolicznościach, na przykład znaleźć plik podczas obsługi odmówiono dostępu do niektórych katalogów:

Dim dir As New DirectoryInfo("C:\") 
    Dim strSearch As String = ("boot.ini") 

    For Each SubDir As DirectoryInfo In dir.GetDirectories 
     Try 
      For Each File As FileInfo In SubDir.GetFiles 
       Console.WriteLine("Sub Directory: {0}", SubDir.Name) 
       If File.Name = strSearch Then 
        Console.Write(File.FullName) 
       End If 
      Next 
     Catch ex As Exception 
      Console.WriteLine(ex.Message) 
      Continue For 
     End Try 
    Next 

Answer 7

Oto przykład w postaci kodu:

Sub yourSub() 
    Dim cDelegate As CatchDelegate = Sub(ex As Exception) 
             Your Catch Code 
            End Sub 
line 1 
line 2 
line 3 
TCResumeNext(Sub() line 4, cDelegate) 
line 5 
line 6 
End Sub 

Delegate Sub CatchDelegate(e As Exception) 

Sub TCResumeNext(tryDelegate As [Delegate], catchDelgate As CatchDelegate) 
    Try 
    tryDelegate.DynamicInvoke() 
    Catch ex As Exception 
     catchDelgate.DynamicInvoke(ex) 
    End Try 
End Sub 

Answer 8

dość starego posta ale dla dobra innych. osobiście użyłbym "przy błędzie wznowienia dalej" w tym przypadku jest to konieczne zło