Серый форум — AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (svoboden) — Tue, 13 Aug 2019 07:52:06 +0000

Здесь хорошо написано про FileAppend: https://www.autohotkey.com/boards/viewt … save+files.

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (teadrinker) — Mon, 12 Aug 2019 08:52:41 +0000

FileAppend дописывает, если файл уже существует, Write переписывает всё заново.

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (DD) — Mon, 12 Aug 2019 01:09:24 +0000

teadrinker пишет:

   oFile := FileOpen(A_ScriptDir . "\1.txt", "w")
   oFile.Write(text)
   oFile.Close()

А почему не «FileAppend»?

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (ОсиповаТатьяна) — Mon, 31 Dec 2018 23:28:55 +0000

teadrinker, спасибо вам.
Теперь все заработало.

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (teadrinker) — Fri, 28 Dec 2018 16:40:30 +0000

Не совсем понял идею, что должно в итоге получаться. Лучше новую тему создайте, чтобы здесь людей не путать.

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (KusochekDobra) — Fri, 28 Dec 2018 16:12:51 +0000

А не подскажите, возможно ли провернуть похожее со строками автозамены? У меня есть длиннющий список таких строк, который периодически пополняется новыми, но заменяемые строки в основном состоят из одинаковых составных частей, различаясь лишь в частностях, таким образом, было бы удобно иметь составные наборы, из которых эти "HotStrings" динамически собирались, как в Вашем примере с хоткеями. Что-то вроде:


vars := ["test", "тест"]
str  := ["tt", "тт"]
Loop 2 {
	i := A_Index
	Loop 10 {
		t := vars[ i ] . " " . A_Index
		Hotstring(Format(":*:{}{}::", str[i], A_Index), Ctrl_V("%t%") )
	}
}
Ctrl_V(param) {
	Send { ^a }
	SendInput {Text}%param%
}

Не соображу всё, как бы правильно сделать запись.

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (teadrinker) — Fri, 28 Dec 2018 12:04:28 +0000

KusochekDobra пишет:

может не быть обязательным, постоянно писать изменения счётчика. Можно это делать при переключении на любое другое окно

Не совсем корректно. Если скрипт будет завершён до переключения на другое окно, текст не запишется.

ОсиповаТатьяна пишет:

А как заставить код реагировать - еще и на нажатия клавиш ?

Можно назначить все кнопки клавиатуры и мыши горячими клавишами таким образом:

Loop 255
   Hotkey, % "~vk" . Format("{:X}", A_Index), WatchPress, On
Return

WatchPress()  {
   static obj := { TTOTAL_CMD: {text: "Total Commander", count: 0}, Notepad: {text: "Блокнот", count: 0} }
   Critical
   WinGetClass, winClass, A
   if winClass not in TTOTAL_CMD,Notepad
      Return
   
   obj[winClass, "count"]++
   for k, v in obj
      text .= (text = "" ? "" : "`r`n") . v.text . " -" . v.count
   Sort, text
   
   oFile := FileOpen(A_ScriptDir . "\1.txt", "w")
   oFile.Write(text)
   oFile.Close()
}

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (ОсиповаТатьяна) — Fri, 28 Dec 2018 06:46:18 +0000

Phoenixxx_Czar
Этот код считает только клики мышкой.
А как заставить код реагировать - еще и на нажатия клавиш ?

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (Phoenixxx_Czar) — Fri, 28 Dec 2018 01:27:57 +0000

Я никогда не использовал иники, но знал, что можно указать значение по умолчанию, но почему-то не подумал, что можно просто нуль указать.

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (KusochekDobra) — Fri, 28 Dec 2018 00:32:16 +0000

Кстати, значения "по умолчанию" для IniRead, можно указать через запятую:


IniRead, countNotepad, % DIR_INI, Global, Notepad, 0
IniRead, countTotalCommander, % DIR_INI, Global, Total_Commander, 0

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (KusochekDobra) — Fri, 28 Dec 2018 00:23:06 +0000

Для того, кто только погружается в AHK, то, что Вы предлагаете последним, не объясняет необходимость использования. К тому же, возможно, хранить в текстовом файле - принципиально, чтобы использовать где-то ещё, а так же, может не быть обязательным, постоянно писать изменения счётчика. Можно это делать при переключении на любое другое окно.


temp := counter := 0

~LButton::
WinGetClass, OutputVar, A
if OutputVar = Notepad
{
	counter++
} else if (temp != counter) {
	temp := counter
	WriteData("Блокнот -" . counter))
}
Return

WriteData(data, storage := "M:\1537\1.txt") {
	file := FileOpen(storage, "w", "utf-8")
	file.Write(data)
	file.Close()
}

И ещё момент, если Ваш посыл обращается к предыдущему оратору, не обязательно это обозначать выделяя жирным текстом его псевдоним. Это и так очевидно по смыслу сказанного.

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (Phoenixxx_Czar) — Thu, 27 Dec 2018 23:58:50 +0000

ОсиповаТатьяна, ну значит смотри.

global DIR_INI := "m:/1537/1.ini"

IniRead, countNotepad, % DIR_INI, Global, Notepad
IniRead, countTotalCommander, % DIR_INI, Global, Total_Commander

for k, v in ["countNotepad", "countTotalCommander"]
	if (%v% == "ERROR")
		%v% := 0

~LButton::
WinGetClass, OutputVar, A
IF (OutputVar == "Notepad")
{
	countNotepad++
	IniWrite, % countNotepad, % DIR_INI, Global, Notepad
	Tooltip, ЭТО БЛОКНОТ
	Sleep, 200
	MsgBox, % "Счётчик для Блокнота: " countNotepad
}
Return

Опять же! Проще все это делать через массив и сохранять в JSON формате. Меньше мороки с считыванием каждого значения с INI файла и записыванием в него.

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (ОсиповаТатьяна) — Thu, 27 Dec 2018 20:07:21 +0000

Indomito
Теперь код выглядит вот так:

~LButton::
WinGetClass, OutputVar, A
IF OutputVar = Notepad
{
 Tooltip, ЭТО БЛОКНОТ
NNN++
Sleep, 200
MsgBox, Счётчик для Блокнота: %NNN%

 
FileAppend, %NNN%, M:\1537\1.txt ; Где `n эквивалент Enter

}
Return

Но скрипт выводит результат не совсем как счетчик.
Он пишет числа, одно за другим вдоль строки. А если повторно его запустить - то продолжает писать вдоль строки по-новой, начиная с единицы. Примерно вот так:
"Блокнот -123412345"

Я имела ввиду запись счетчика в смысле - прирост числа на единицу.

То есть например записано "Блокнот -1", а после одного срабатывания должно получится "Блокнот -2", то есть прирост числа на одну единицу.

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (Indomito) — Thu, 27 Dec 2018 18:35:41 +0000

ОсиповаТатьяна

FileAppend
Добавляет текст к файлу (создавая файл при необходимости).
FileAppend [, Text, Filename]

FileAppend, что то записали.`n, C:\Мои документы\Test.txt ; Где `n эквивалент Enter

Или так.

a := "что то записали.`n" 
FileAppend, %a%, C:\Мои документы\Test.txt ; Где `n эквивалент Enter

Удачи с АНК!

Re: AHK: Запись в txt суммы нажатий клавиш или кликов - в конкретном окне

null@example.com (Indomito) — Thu, 27 Dec 2018 18:25:26 +0000

belyankin12
По сути то одинаково, если не стоит вопрос - "Как с этим разобраться, что бы считать и вывести на экран?".