Функция срабатывает ровно через раз!

Func SimplifyKeys($Key)
	$Key = StringRegExpReplace($Key, "[  ]+", " ")
	$Key = StringStripWS ($Key, 2)
	$Key = StringStripWS ($Key, 4)
	$Key = StringRegExpReplace($Key, "№", "N")
	$Key = StringRegExpReplace($Key, "от\s*(\d)", "\1")
	$Key = StringRegExpReplace($Key, "\s+января\s+", ".01.",1)
	$Key = StringRegExpReplace($Key, "\s+февраля\s+", ".02.", 1)
	$Key = StringRegExpReplace($Key, "\s+марта\s+", ".03.", 1)
	$Key = StringRegExpReplace($Key, "\s+апреля\s+", ".04.", 1)
	$Key = StringRegExpReplace($Key, "\s+мая\s+", ".05.", 1)
	$Key = StringRegExpReplace($Key, "\s+июня\s+", ".06.", 1)
	$Key = StringRegExpReplace($Key, "\s+июля\s+", ".07.", 1)
	$Key = StringRegExpReplace($Key, "\s+августа\s+", ".08.", 1)
	$Key = StringRegExpReplace($Key, "\s+сентября\s+", ".09.", 1)
	$Key = StringRegExpReplace($Key, "\s+октября\s+", ".10.", 1)
	$Key = StringRegExpReplace($Key, "\s+ноября\s+", ".11.", 1)
	$Key = StringRegExpReplace($Key, "\s+декабря\s+", ".12.", 1)
	$Key = StringRegExpReplace($Key, "(\d{4})\s*[года\. ]*", "\1 ", 1)
	$Key = StringRegExpReplace($Key, "^([1-9])\.", "0\1\.", 1)
	$Key = StringRegExpReplace($Key, "\s*"".+", "", 1)
	$Key = StringStripWS ($Key, 8)
	$Key = StringRegExpReplace($Key, "N", " N ", 1)
	Return $Key
EndFunc

Local $Result = SimplifyKeys($Key)

opt("TrayIconDebug", 1)

Func SimplifyKeys($Key)
	ConsoleWrite('Вызо функции с параметрами : '& $Key & @CRLF)
    $Key = StringRegExpReplace($Key, "[  ]+", " ")
	ConsoleWrite('Строка 1' & @CRLF)
    $Key = StringStripWS ($Key, 2)
	ConsoleWrite('Строка 2' & @CRLF)
    $Key = StringStripWS ($Key, 4)
	ConsoleWrite('Строка 3' & @CRLF)
    $Key = StringRegExpReplace($Key, "№", "N")
	ConsoleWrite('Строка 4' & @CRLF)
    $Key = StringRegExpReplace($Key, "от\s*(\d)", "\1")
	ConsoleWrite('Строка 5' & @CRLF)

Func _GetSelectedText($iSleep=100)
	Local $iRet = 0
	Local $sOld_Clipboard_Data = ClipGet()
	
	ClipPut("")
	Send("^{Insert}")
	
	Local $sSelected_Data = ClipGet()
	Local $iTimer = TimerInit()
	
	While $sSelected_Data = "" And TimerDiff($iTimer) < $iSleep
		$sSelected_Data = ClipGet()
		Sleep(1)
	WEnd
	
	If $sSelected_Data <> "" Then $iRet = $sSelected_Data
	ClipPut($sOld_Clipboard_Data)
	
	Return $iRet
EndFunc