oFile := FileOpen(A_ScriptDir . "\1.txt", "w") oFile.Write(text) oFile.Close()
А почему не «FileAppend»?
]]>
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%
}
Не соображу всё, как бы правильно сделать запись.
]]>может не быть обязательным, постоянно писать изменения счётчика. Можно это делать при переключении на любое другое окно
Не совсем корректно. Если скрипт будет завершён до переключения на другое окно, текст не запишется.
А как заставить код реагировать - еще и на нажатия клавиш ?
Можно назначить все кнопки клавиатуры и мыши горячими клавишами таким образом:
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()
}
IniRead, countNotepad, % DIR_INI, Global, Notepad, 0
IniRead, countTotalCommander, % DIR_INI, Global, Total_Commander, 0
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()
}
И ещё момент, если Ваш посыл обращается к предыдущему оратору, не обязательно это обозначать выделяя жирным текстом его псевдоним. Это и так очевидно по смыслу сказанного.
]]>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 файла и записыванием в него.
]]>~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", то есть прирост числа на одну единицу.
]]>FileAppend
Добавляет текст к файлу (создавая файл при необходимости).
FileAppend [, Text, Filename]
FileAppend, что то записали.`n, C:\Мои документы\Test.txt ; Где `n эквивалент EnterИли так.
a := "что то записали.`n"
FileAppend, %a%, C:\Мои документы\Test.txt ; Где `n эквивалент EnterУдачи с АНК!
]]>