|
|
|
|
用以在记录文件中写入自定义的调试信息（主要是时间）的组件 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-5-13 月光软件站 |
'====================================================================
'TraceSpy - 用以在记录文件中写入自定义的调试信息（开发者：林健）
'====================================================================
'
'属性：
' TraceFileName - 记录文件名
'
'方法：
' ★文本写入方面
' WriteText - 写入自定义文本
' ClearAllText - 清除所有文本
' ★时间记录方面
' SetTimePoint - 设置时间起点
' GetTimeSpanFromInit - 询问时间跨度（距离时间起点）
' GetTimeSpanFromPrev - 询问时间跨度（距离上次询问时间）
'
'====================================================================
Public Class TraceSpy
'记录文件名
Public Shared TraceFileName As String = "Trace.txt"
'时间起点（初始为当前时刻）
Private Shared InitTimePoint As Long = Now.Ticks
'上次询问时间点（初始为当前时刻）
Private Shared PrevTimePoint As Long = Now.Ticks
'写入自定义文本
Public Shared Sub WriteText(ByVal str As String, Optional ByVal showTime As Boolean = False)
TraceSpyFileWriter.WriteText(str, showTime)
End Sub
'清除所有文本
Public Shared Sub ClearAllText()
TraceSpyFileWriter.ClearAllText()
End Sub
'设置时间起点
Public Shared Sub SetTimePoint(Optional ByVal note As String = "")
InitTimePoint = Now.Ticks
PrevTimePoint = Now.Ticks
TraceSpyFileWriter.WriteText("设置时间起点[" & note & "]。")
End Sub
'询问时间跨度（距离时间起点）
Public Shared Function GetTimeSpanFromInit(Optional ByVal note As String = "") As Decimal
PrevTimePoint = Now.Ticks
Dim span As Decimal
span = CDec(PrevTimePoint - InitTimePoint) / 10000D
TraceSpyFileWriter.WriteText("询问时间跨度[" & note & "]，距离时间起点为" & span.ToString() & "毫秒。")
Return span
End Function
'询问时间跨度（距离上次询问时间）
Public Shared Function GetTimeSpanFromPrev(Optional ByVal note As String = "") As Decimal
Dim RectTimePoint As Long = Now.Ticks
Dim span As Decimal
span = CDec(RectTimePoint - PrevTimePoint) / 10000D
PrevTimePoint = RectTimePoint
TraceSpyFileWriter.WriteText("询问时间跨度[" & note & "]，距离上次询问时间为" & span.ToString() & "毫秒。")
Return span
End Function
End Class
Friend Class TraceSpyFileWriter
Private Shared FileWriter As System.IO.StreamWriter
'向文件中写入一个字串
Friend Shared Sub WriteText(ByVal str As String, Optional ByVal showTime As Boolean = False)
If TraceSpy.TraceFileName = String.Empty Then
Exit Sub
End If
FileWriter = New System.IO.StreamWriter(TraceSpy.TraceFileName, True, Text.Encoding.Default)
Dim words As String
words = str
If showTime Then
words &= " @ " & Now.ToLongDateString & " " & Now.ToLongTimeString
End If
FileWriter.WriteLine(words)
FileWriter.Close()
End Sub
'清除记录文件
Friend Shared Sub ClearAllText()
If TraceSpy.TraceFileName = String.Empty Then
Exit Sub
End If
FileWriter = New System.IO.StreamWriter(TraceSpy.TraceFileName, False, Text.Encoding.Default)
FileWriter.Write("")
FileWriter.Close()
End Sub
End Class
|
|
相关文章：相关软件： |
|
本类阅读TOP10