Returning back sub/function, probably simple

[bminaeff]

This is probably simple. I want to write a text file everytime I throw an exception for a few different subroutines. In this text file I would like to record what routine threw the exception, how can I do this?

For example here is a function I want to use:

 Public Shared Sub LogTxtError(ByVal ErrForm As String, ByVal ErrMessage As String, ByVal ErrStack As String, ByVal ErrSource As String)
        System.IO.File.WriteAllText(My.Settings.ErrorLoggingPathSetting & DateTime.Now.ToString("yyyyMMdd") & "_" & DateTime.Now.ToString("HHmmss") & ".txt", "Error Form: " & ErrForm & ControlChars.NewLine & "Routine/Function: " & "What Do I put here?" & ControlChars.NewLine & "Error Message: " & ErrMessage & ControlChars.NewLine & "Error Source: " & ErrSource & ControlChars.NewLine & "Error Stack: " & ErrStack)
    End Sub

any ideas?

Thanks
-Bill

 

[DarkConsultant]

Hi bminaeff,

In each Try block -

Try
  .... your code
Catch ex as Exception When LogException(ex)
Catch ex as Exception
End Try

Somewhere in application

Public Function LogException() as Boolean
... your write to text file code
Return False
End Function

Because the LogException function always return false the exception will not be picked up by the first Catch but is passed on to the second after first visiting the LogException function.

I hope this helps if not let me know ...

DarkConsultant

http://www.contactconsultants.co.uk

Live long and prosper \\//

 

[bminaeff]

Dark,

I am not sure I understand what you are saying. How does this tell me what routine or function caused an exception? For example:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            System.IO.File.WriteAllText("C:\DNE\", "Cause error") ' This throws my exception
        Catch ex As Exception When LogTxtError(Me.Name, ex.Message, ex.StackTrace, ex.Source)
        Catch ex As Exception
            Call LogTxtError(Me.Name, ex.Message, ex.StackTrace, ex.Source)
        End Try
    End Sub

    Public Shared Function LogTxtError(ByVal ErrForm As String, ByVal ErrMessage As String, ByVal ErrStack As String, ByVal ErrSource As String) As Boolean
        System.IO.File.WriteAllText("C:\BPC_WMS\Error_Log\" & DateTime.Now.ToString("yyyyMMdd") & "_" & DateTime.Now.ToString("HHmmss") & ".txt", "Error Form: " & ErrForm & ControlChars.NewLine & ControlChars.NewLine & "Error Message: " & ErrMessage & ControlChars.NewLine & "Error Source: " & ErrSource & ControlChars.NewLine & "Error Stack: " & ErrStack)
        Return False
    End Function
End Class

I am sure I am not using your suggestion correctly, but ideally this would write a text file that would say:

Error Form: Form1
Routine/Function: Button1_Click
Error Message: The filename, directory name, or volume label syntax is incorrect.
Error Source: mscorlib
Error Stack: at System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
at System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, Int32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions options, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy)
at System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, FileOptions options)
at System.IO.StreamWriter.CreateFile(String path, Boolean append)
at System.IO.StreamWriter..ctor(String path, Boolean append, Encoding encoding, Int32 bufferSize)
at System.IO.StreamWriter..ctor(String path, Boolean append, Encoding encoding)
at System.IO.File.WriteAllText(String path, String contents, Encoding encoding)
at System.IO.File.WriteAllText(String path, String contents)
at ErrorLoggingTester.Form1.Button1_Click(Object sender, EventArgs e) in C:\Documents and Settings\BP\My Documents\Visual Studio 2005\Projects\ErrorLoggingTester\ErrorLoggingTester\Form1.vb:line 5


In this example, it is that second field that I am having trouble getting.

Thanks
-Bill

 

[DarkConsultant]

Hi Bill,

Try this -

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            System.IO.File.WriteAllText("C:\DNE\", "Cause error") ' This throws my exception
        Catch ex As Exception When LogTxtError("MainForm.Button1_Click routine",ex)
        Catch ex As Exception
        End Try
    End Sub

Then

Public Shared Function LogTxtError(ByVal From as String, ByVal ex As Exception) As Boolean

System.IO.File.WriteAllText("C:\BPC_WMS\Error_Log\" & DateTime.Now.ToString("yyyyMMdd") & "_" & DateTime.Now.ToString("HHmmss") & ".txt", "Error Form: " & From & ControlChars.NewLine & ControlChars.NewLine & "Error Message: " & ex.Message & ControlChars.NewLine & "Error Source: " & Eex.Source & ControlChars.NewLine & "Error Stack: " & ex.StackTrace)

Return False

End Function

Should get what you need.

DarkConsultant

http://www.contactconsultants.co.uk

Live long and prosper \\//

 

[jebenson]

Bill,

Here's a little class I threw together that does what you want.

Public Class ErrParser
    Public Shared Function GetProcName(ByVal ErrStackTrace As String) As String
        Dim ExeName As String
        Dim LastSlashLoc As Integer
        Dim NameLoc As Long
        Dim TempStr As String
        Dim ParenLoc As Integer

        ExeName = System.Reflection.Assembly.GetExecutingAssembly.GetName.Name

        ExeName = Replace(ExeName, " ", "_")

        NameLoc = ErrStackTrace.IndexOf(ExeName)
        TempStr = Mid(ErrStackTrace, NameLoc + Len(ExeName) + 2)
        ParenLoc = TempStr.IndexOf("(")
        GetProcName = Mid(TempStr, 1, ParenLoc)
    End Function

    Public Shared Function GetErrLineNum(ByVal ErrStackTrace As String) As String
        Dim LineLoc As Long

        LineLoc = ErrStackTrace.LastIndexOf(":line")
        GetErrLineNum = Mid(ErrStackTrace, LineLoc + 6)
    End Function

    Public Shared Sub LogError(ByVal ErrMsg As String)
        Dim sw As System.IO.StreamWriter

        Try
            sw = New System.IO.StreamWriter(Application.StartupPath & "\DMS_Error_Log.log", True)
            sw.WriteLine("****************************************************************************")
            sw.WriteLine(Date.Now.ToString)
            sw.WriteLine(ErrMsg)
            sw.Close()
        Catch ex As Exception

        End Try

    End Sub
End Class


'Usage Template

'Dim ep As New ErrParser

'Try
'   Some Code Here
'Catch ex As Exception
'   Dim ErrMsg As String
'   ErrMsg = "Error in " & ep.GetProcName(ex.StackTrace)

'#If DEBUG Then
'   ErrMsg &= " in Line " & ep.GetErrLineNum(ex.StackTrace)
'#End If

'   ErrMsg &= vbCrLf
'   ErrMsg = ErrMsg & "Error Message: " & ex.Message
'   MsgBox(ErrMsg, MsgBoxStyle.Exclamation Or MsgBoxStyle.OKOnly, "Message Box Title Here")
'End Try

You should be able to adapt this to your needs.


I used to rock and roll every night and party every day. Then it was every other day. Now I'm lucky if I can find 30 minutes a week in which to get funky. - Homer Simpson

Arrrr, mateys! Ye needs ta be preparin' yerselves fer Talk Like a Pirate Day!

 

[bminaeff]

Thanks Guys,

Jebensons GetProcName was exactly what I was trying to do. I noticed it was in the stacktrace, but I figured there was a built in function for it.

Thanks again
-Bill