Code-a-holic: [VBScript] "Watcher" - on the way to code profiling ... sort of

Tuesday, September 27, 2005

[VBScript] "Watcher" - on the way to code profiling ... sort of

I've just implemented a new class, Watcher, which is giving me an idea of what routines in my stdFunctions.vbs are actually being used, and how frequently.

At present the class depends on some of the routines it would otherwise be watching so those routines can't refer to Watcher until such time as I make the class self-contained.

The class gets instantiated in the usual way right at the start of my stdFunctions.vbs file

dim watch
set watch = new watcher

and then at the beginning of each of the subs and functions in stdFunctions.vbs there is a reference to watch, e.g.

Sub Die( theMsg )
    watch "Die"
    Log theMsg
    WScript.Echo theMsg
    WScript.Quit
End Sub


Sub Log( theMsg )
    watch "Log"
    Const theExt = ".log"
...

When the class terminates the data is saved in Watcher.txt as lines of tab-delimited text, for example:

me 6
you 6
Logging 3
EnforcePath 3
Die 3
Log 3
ForceExtension 3

and these are then read back in at the initialisation of class next runtime round.

If you find this useful please let me know. Code below.

class Watcher
 private objHash
 
    private sub Class_Initialize()
     dim strData
     dim arrLines
     dim strLine
     dim arrKeyData
     dim i 
     
     set objHash = CreateObject( "Scripting.Dictionary" )
'      wscript.echo "dictionary created"
     If IsFile2( "Watcher.txt" ) Then
      strData = GetFile( "Watcher.txt" )
      arrLines = Split( strData, vbNewLine )
      For i = 0 To UBound( arrLines )
       strLine = arrLines( i )
       If Len( strLine ) > 0 Then
        arrKeyData = Split( strLine, vbTab )
'         wscript.echo "adding", parray( arrKeyData )
        objHash.Add arrKeyData( 0 ), arrKeyData( 1 )
       End If
      Next
     End If
    end sub
    
    public default sub lambda( strName )
     if objHash.Exists( strName ) then
      objHash( strName ) = objHash( strName ) + 1
'       wscript.echo "updating watched item " & strName
     else
      objHash.Add strName, 1
'       wscript.echo "new item " & strName
     end if
    end sub
    
    private sub Class_Terminate()
     dim arrItems
     dim arrKeys
     dim numCount
     dim i
     dim strResult
     
     arrItems = objHash.Items
     arrKeys  = objHash.Keys
     numCount = objHash.Count
     
     for i = 0 to numCount - 1
      strResult = strResult & arrKeys( i ) & vbTab & arrItems( i ) & vbNewLine
     next
     
     WriteFile2 "Watcher.txt", strResult, False
     
'      wscript.echo "Terminated"
end sub
end class

Tuesday, September 27, 2005

[VBScript] "Watcher" - on the way to code profiling ... sort of

No comments: