filePath = F:\12.txt

NumpadAdd::
NumpadSub::
   if !FileExist(filePath)
      throw Exception("Файл """ . filePath . """ не найден!")
   
   FileRead, str, % filePath
   if !RegExMatch(str, "(ОГ:\s(\d+))\R(П:\s(\d+))\R(Л:\s(\d+))", match)
      throw Exception("Формат записи в файл не соответствует шаблону!")
   
   str := RegExReplace(str, match1, "ОГ: " . ++match2)
   if InStr(A_ThisHotkey, "Add")
      str := RegExReplace(str, match3, "П: " . ++match4)
   else
      str := RegExReplace(str, match5, "Л: " . ++match6)
   ; MsgBox, % str
   FileDelete, % filePath
   FileAppend, % str, % filePath
   Return

filePath = F:\12.txt
FileReadLine, Var1, %filePath%, 1
FileReadLine, Var2, %filePath%, 2
FileReadLine, Var3, %filePath%, 3

Var1 = 10
Var2 = 7
Var3 = 3

  NumpadAdd::

		IfNotExist, %filePath%
			FileAppend,0, %filePath%	
		FileReadLine, Var1, %filePath%, 1
		Var := ++Var1
		FileDelete, %filePath%
		FileAppend,%Var1%, %filePath%
		FileReadLine, Var2, %filePath%, 2
		Var := ++Var2
		FileDelete, %filePath%
		FileAppend,%Var2%, %filePath%
	return
   


NumpadSub::
		IfNotExist, %filePath%
			FileAppend,0, %filePath%	
		FileReadLine, Var1, %filePath%, 1
		Var := ++Var1
		FileDelete, %filePath%
		FileAppend,%Var1%, %filePath%
		FileReadLine, Var3, %filePath%, 3
		Var := ++Var3
		FileDelete, %filePath%
		FileAppend,%Var3%, %filePath%
	return