; Here we have some error
__Matrix_Err($imsg, 'main')
Func _MyFunc($someparams)
; Here I do something and have another error
__Matrix_Err($imsg, '_MyFunc')
EndFunc
Func __Matrix_Err($imsg, $funcname)
Switch $imsg
Case 1
$smsg = 'One or more arrays are not numbered matrices'
ConsoleWrite($smsg & ' (' & $funcname & ')' & @CRLF)
EndFunc; Here we have some error
__Matrix_Err($imsg, @ScriptCurrentFunc)
Func _MyFunc($someparams)
; Here I do something and have another error
__Matrix_Err($imsg, @ScriptCurrentFunc)
EndFunc
Func __Matrix_Err($imsg, $funcname)
Switch $imsg
Case 1
$smsg = 'One or more arrays are not numbered matrices'
ConsoleWrite($smsg & ' (' & $funcname & ')' & @CRLF)
EndFunc
Вот так к примеру:
#include <GUIConstantsEx.au3>
$hGUI = GUICreate("ScriptCurrentFunc Demo", 300, 200)
$nButton = GUICtrlCreateButton("Call Funcs", 20, 40, 60, 20)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $nButton
_MyFunc()
_OtherFunc()
EndSwitch
WEnd
Func _MyFunc()
ConsoleWrite(ScriptCurrentFunc(@ScriptLineNumber) & @LF)
EndFunc
Func _OtherFunc()
ConsoleWrite(ScriptCurrentFunc(@ScriptLineNumber) & @LF)
EndFunc
Func ScriptCurrentFunc($iLine)
If @Compiled Then Return SetError(1, 0, '')
Local $aRead = StringSplit(StringStripCR(FileRead(@ScriptFullPath)), @LF)
Local $sFuncName = "", $sFncPttrn = '(?i)^\h*func\h+(\w+)\s*\(.*?\).*?$'
For $i = 1 To $aRead[0]
If StringRegExp($aRead[$i], $sFncPttrn) Then
$sFuncName = StringRegExpReplace($aRead[$i], $sFncPttrn, '\1')
EndIf
If $i = $iLine Then
If $sFuncName = "" Then SetError(1)
Return $sFuncName
EndIf
Next
EndFunc
#include <GUIConstantsEx.au3>
Global $sCurrentFunc
$hGUI = GUICreate("ScriptCurrentFunc Demo", 300, 200)
$nButton = GUICtrlCreateButton("Call Funcs", 20, 40, 60, 20)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $nButton
_MyFunc()
_OtherFunc()
_NextFunc()
EndSwitch
WEnd
Func _MyFunc()
$sCurrentFunc = '_MyFunc'
Local $i_Random = Random(0, 1, 1)
ScriptCurrentFunc($i_Random)
EndFunc ;==>_MyFunc
Func _OtherFunc()
$sCurrentFunc = '_OtherFunc'
Local $i_Random = Random(0, 1, 1)
ScriptCurrentFunc($i_Random)
EndFunc ;==>_OtherFunc
Func _NextFunc()
$sCurrentFunc = '_NextFunc'
Local $i_Random = Random(0, 1, 1)
ScriptCurrentFunc($i_Random)
EndFunc ;==>_NextFunc
Func ScriptCurrentFunc($i_Error = 0)
Local $s_Message = 'Success'
If $i_Error Then $s_Message = 'Error'
$s_Message = $sCurrentFunc & ': ' & $s_Message
$sCurrentFunc = ''
ConsoleWrite($s_Message & @LF)
EndFunc ;==>ScriptCurrentFunc
Вот попробуй это:
#include <GUIConstantsEx.au3>
SetCurrentFuncName()
Global $sCurrentFuncName = ""
$hGUI = GUICreate("SetCurrentFuncName Demo", 300, 200)
$nButton = GUICtrlCreateButton("Call Funcs", 20, 40, 60, 20)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $nButton
_MyFunc()
_OtherFunc()
_NextFunc()
EndSwitch
WEnd
Func _MyFunc()
MsgBox(64, 'FuncName', $sCurrentFuncName)
EndFunc
Func _OtherFunc()
MsgBox(64, 'FuncName', $sCurrentFuncName)
EndFunc
Func _NextFunc()
MsgBox(64, 'FuncName', $sCurrentFuncName)
EndFunc
Func SetCurrentFuncName()
If @Compiled Or StringInStr($CmdLineRaw, '/Restarted') Then Return
Local $sRead = FileRead(@ScriptFullPath)
Local $aFuncs = StringRegExp($sRead, '(?i)\r?\n\h*func\h+(\w+)\h*\(.*?\)\r?\n', 3)
$sRead = StringRegExpReplace($sRead, '(\r?\n?\t*SetCurrentFuncName\(\)\r?\n)(?:\t*Global \$sCurrentFuncName = ""\r?\n?)?', '\1Global $sCurrentFuncName = ""' & @CRLF, 1)
For $i = 0 To UBound($aFuncs)-1
If $aFuncs[$i] = "SetCurrentFuncName" Then
ContinueLoop
EndIf
$sRead = StringRegExpReplace($sRead, _
'(?i)(\r?\n\h*func\h+' & $aFuncs[$i] & '\h*\(.*\)\r?\n)\t*(?:\$sCurrentFuncName = "' & $aFuncs[$i] & '"|(.*?))\r?\n', _
'\1' & @TAB & '$sCurrentFuncName = "' & $aFuncs[$i] & '"' & @CRLF & '\2')
Next
$hFile = FileOpen(@ScriptFullPath, 2)
FileWrite($hFile, $sRead)
FileClose($hFile)
ShellExecute(@ScriptFullPath, $CmdLineRaw & ' /Restarted', @ScriptDir)
Exit
EndFunc
