AHK: Запись даты на новой строке при нажатии на клавишу.

#SingleInstance, Force
#NoEnv
SetWorkingDir, A_ScriptDir

Global	counter		:= 1
		, storage	:= "16.txt"
		, template	:= "Какой-то текст {} {}.{}.{}"
		, storageContent

	
if !(FileExist(storage)) {
	FileAppend,% Format(template, 0, A_DD, A_MM, A_YYYY),% storage, UTF-8
	storageContent := ""
} else if (IsMatched()) {
	oFile := FileOpen(storage, "r", "UTF-8")
	oFile.Seek(-20)
	content := oFile.Read()
	oFile.Close()
	RegExMatch(content, ".* ([\d]+) [\d\.]+", m)
	counter := m1 + 1
}

i := 8
Loop 247
   Hotkey, % "~vk" . Format("{:X}", i++), WatchPress, On
Return
WatchPress() {
   oFile := FileOpen(storage, "w", "UTF-8")
   str := Format(template, IsMatched() ? counter++ : counter++, A_DD, A_MM, A_YYYY)
   oFile.Write(Format("{}{}{}",storageContent, storageContent ? "`n`n" : "", str))
   oFile.Close()
}
IsMatched() {
	FileGetTime, storageTime,% storage
	FormatTime, storageYDay,% storageTime, YDay
	FormatTime, storageYear,% storageTime, yyyy
	if (storageYear == A_YYYY && storageYDay == A_YDay)
		Return true
		
	oFile := FileOpen(storage, "r", "UTF-8")
	storageContent := oFile.Read()
	oFile.Close()
	counter := 1
	Return false
}

#SingleInstance, Force
#NoEnv
SetWorkingDir, A_ScriptDir

Global	counter		:= 1
		, storage	:= "16.txt"
		, template	:= "Нажато клавиш {} {}.{}.{}"
		, storageContent := ""

if !(FileExist(storage)) {
	FileAppend,% Format(template, 0, A_DD, A_MM, A_YYYY),% storage, UTF-8
} else if (IsMatched()) {
	oFile := FileOpen(storage, "r", "UTF-8")
	lines := StrSplit(oFile.Read(), "`r`n")
	oFile.Close()
	Loop,% n := lines.Length() - 1 
		storageContent .= lines[ A_Index ] (A_Index != n ? "`r`n" : "")
	RegExMatch(lines[lines.Length()], ".* ([\d]+) [\d\.]+", m)
	counter := m1 + 1
}

i := 8
Loop 247
   Hotkey, % "~vk" . Format("{:X}", i++), WatchPress, On
Return
WatchPress() {
   oFile := FileOpen(storage, "w", "UTF-8")
   str := Format(template, IsMatched() ? counter++ : counter++, A_DD, A_MM, A_YYYY)
   oFile.Write(Format("{}{}{}",storageContent, storageContent ? "`r`n" : "", str))
   oFile.Close()
}
IsMatched() {
	FileGetTime, storageTime,% storage
	FormatTime, storageYDay,% storageTime, YDay
	if (storageYDay == A_YDay)
		Return true
		
	oFile := FileOpen(storage, "r", "UTF-8")
	storageContent := oFile.Read()
	oFile.Close()
	counter := 1
	Return false
}

storage := A_ScriptDir . "\16.txt"
template := "Нажато клавиш: "

WatchPress := Func("WatchPress").Bind(storage, template)
Loop 248
   Hotkey, % "~" . Format("vk{:X}", A_Index + 7), % WatchPress, On
Return

WatchPress(filePath, template)  {
   Critical
   date := A_DD . "." . A_MM . "." . A_YEAR
   oFile := FileOpen(filePath, "rw", "cp0")
   content := oFile.Read()
   RegExMatch(content, "s)(.*\R)?\K.*?(?<PressCount>\d+)\s(?<Date>\d\d\.\d\d\.\d{4})$", lastStr)
   dateFit := date = lastStrDate
   newLastStr := ( (lastStr && !dateFit) ? "`r`n" : "" ) . template . (dateFit ? ++lastStrPressCount : "1" ) . " " . date
   if dateFit
      oFile.Pos -= StrLen(lastStr), oFile.Length := oFile.Pos
   oFile.Write(newLastStr)
   oFile.Close()
}