/
AstroJohn
/
MailRobot
Обзор
Документация
Войти
/
AstroJohn
/
MailRobot
Код
Запросы
0
Задачи
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Parser/ExceptionExtensions.vb
28 строк
635 B
AstroJohn
1st commit
11 сен 2024, 13:31
11 сен 2024, 13:31
0f57dc5
Код
Авторство
О чём код?
Imports System.Runtime.CompilerServices Imports System.Text Public Module ExceptionExtensions <Extension> public function GetLoggingTrace(ex As Exception) As string Dim result As StringBuilder = New StringBuilder(512) While Not ex is nothing If result.Length > 0 result.AppendLine().AppendLine() End if result.Append(ex.GetType().Name).Append(" : ").Append(ex.Message) result.AppendLine().Append(ex.StackTrace) ex = ex.InnerException End While return result.ToString() End function End Module