how to get name of the active function

[Allow2010]

Hi all,

i would like to use a logfile like this:

Func Test()

Logfile("Start of function: " & $functionname)

.

.

.

Logfile("End of function: " & $functionname)

EndFunc

Which should give me simething like:

Start of function: Test

End of function: Test

in the logfile

any idea how i can get the name of the active function to do this?

Thanks!

[MrCreatoR]

Only way i can see, is to create a seperate script that will parse the main one, and will add to every function needed lines. Look at the file reading/writing functions, and the StringRegExpReplace function.

[MrCreatoR]

Something like this:

$sMain_Script = @ScriptDir & "\Main Funcs Script.au3"

;Making a backup
FileCopy($sMain_Script, $sMain_Script & ".bak")

$sLineToAdd_At_StartFunc = '\tLogfile("Start of function: %s")\r\n\t'
$sLineToAdd_At_EndFunc = '\t\r\n\tLogfile("End of function: %s")'

$aRead_Script = StringSplit(FileRead($sMain_Script), @CRLF, 1)
$sNew_ScriptContent = ""

For $i = 1 To $aRead_Script[0]
    $sFuncName = StringStripWS(StringRegExpReplace($aRead_Script[$i], "(?i)\AFunc (.*)\(.*\)", "\1"), 3)
    
    If StringLeft($aRead_Script[$i], 5) = "Func " Then
        $sNew_ScriptContent &= $aRead_Script[$i] & @CRLF & StringFormat($sLineToAdd_At_StartFunc, $sFuncName) & @CRLF
    ElseIf StringLeft($aRead_Script[$i], 7) = "EndFunc" Then
        $sNew_ScriptContent &= StringFormat($sLineToAdd_At_EndFunc, $sFuncName) & @CRLF & $aRead_Script[$i] & @CRLF
    Else
        $sNew_ScriptContent &= $aRead_Script[$i] & @CRLF
    EndIf
Next

$hOpenScript = FileOpen($sMain_Script, 2)
FileWrite($hOpenScript, StringStripWS($sNew_ScriptContent, 2))
FileClose($hOpenScript)

Just change the $sMain_Script value to your script path.

[Allow2010]

thanks, will try it...