Серый форум — AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (димитрий2) — Thu, 11 Oct 2018 09:14:24 +0000

Malcev, я все понял.
Большое спасибо.

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (Malcev) — Thu, 11 Oct 2018 09:13:24 +0000

Вместо

FileAppend, ,%outputvar%\%TimeString%.doc

вставляйте

FileCopy, C:\1\444\1.doc, %outputvar%\%TimeString%.doc

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (димитрий2) — Thu, 11 Oct 2018 09:12:09 +0000

Malcev,

Все, разобрался.
Спасибо огромное.

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (Malcev) — Thu, 11 Oct 2018 09:05:02 +0000

Создайте doc пустышку и потом вместо FileAppend копируйте пустышку под новым названием в нужную папку.

FileCopy, blank.doc, %outputvar%\%TimeString%.doc

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (димитрий2) — Thu, 11 Oct 2018 08:49:49 +0000

Malcev, у вас тоже создаются файлы "11.36.26.doc"
Но это текстовые файлы с расширением doc, а не вордовские файлы.
Поэтому при открытии - мне предлагают их во что-то переконвертировать.

Написано : "При открытии этого файла необходимо использовать текстовый конвертер Lexicon fo DOS."
(Эти создаваемые файлы - все идут с размером 0 Кб. А новый файл ворд - всегда весит примерно 10 Кб)

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (Malcev) — Thu, 11 Oct 2018 08:45:36 +0000

Я бы сделал так:

!RButton::
MouseGetPos, , , id, control
WinGetClass, class, ahk_id %id%
if (class = "TTOTAL_CMD")
{
   ControlFocus, % control, ahk_class TTOTAL_CMD
   WinGet, OutputVar, ControlList, ahk_class TTOTAL_CMD
   loop, parse, outputvar, `n
   {
      ControlGetText, OutputVar, % a_loopfield, ahk_class TTOTAL_CMD
      if (SubStr(outputvar, 0) = ">")
      {
         outputvar := SubStr(outputvar, 1, StrLen(outputvar)-1)
         break
      }
   }
   FormatTime, TimeString, , HH.mm.ss
   FileAppend, ,%outputvar%\%TimeString%.doc
   WinMenuSelectItem, ahk_class TTOTAL_CMD, , Show, Reread Source
}

Если у вас русскоязычный тотал, то в WinMenuSelectItem нужно вставить ваше название меню.

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (димитрий2) — Thu, 11 Oct 2018 08:43:26 +0000

rowe, сейчас случилось - что-то необычное.
Делаю щелчок правой кнопкой мышки ( с клавишей Left Alt) по пустому месту (в тотал коммандере).
Появляется документ с названием "11.36.26.doc" (Самое интересное - что ярлык документа - с иконкой ворда. Но это не ворд, а обыкновенный текстовый документ. Ворд этот файл - не отрывает).

В общем я имел ввиду несколько другое.
Я имел ввиду, что щелчке левой кнопки мышки в тотал коммандере - можно вызвать контекстное меню, в котором есть такая опция "создать новый файл". И там можно выбрать - создание нового вордовского файла.

Я вот это имел ввиду.

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (rowe) — Thu, 11 Oct 2018 08:27:59 +0000

Или как советовал Malcev.

!RButton::
WinGet, OutputVar, ControlList , ahk_class TTOTAL_CMD
loop, parse, outputvar, `n
{
   ControlGetText, OutputVar, % a_loopfield, ahk_class TTOTAL_CMD
   if (SubStr(outputvar, 0) = ">")
   {
      outputvar := SubStr(outputvar, 1, StrLen(outputvar)-1)
      break
   }
}
FormatTime, TimeString, , HH.mm.ss
FileAppend, ,%outputvar%\%TimeString%.doc
Return

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (димитрий2) — Thu, 11 Oct 2018 08:23:49 +0000

rowe пишет:

Попробуйте после WinWaitActive поставить Sleep, 500

Поставил
По-прежнему не работает.

Делаю щелчок правой кнопкой мышки ( с клавишей Left Alt) по пустому месту (в тотал коммандере).
Тотал коммандер вместо того, чтобы создать новый файл *.doc - предлагает "Введите имя редактируемого файла".

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (rowe) — Thu, 11 Oct 2018 08:15:12 +0000

Если ввести туда имя файла с расширением, создается файл в активной панели.
Скрипт открывает это окно вводит HH.mm.ss.doc.
Попробуйте после WinWaitActive поставить Sleep, 500

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (димитрий2) — Thu, 11 Oct 2018 07:57:33 +0000

Я нажимаю Shift+F4 - у меня открывается окошко "Введите имя редактируемого файла".

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (rowe) — Thu, 11 Oct 2018 07:49:36 +0000

Shift+F4 открывает окно создания файла, ControlSetText вставляет значение TimeString, Control, Check, , TButton3 кнопка ok.

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (димитрий2) — Thu, 11 Oct 2018 07:42:54 +0000

rowe , то же самое, что и раньше.
Не работает.

Запускаю код AHK.

Можно спросить - зачем в вашем скрипте нужны сочетания клавиш Shift+F4 ?
Они же запускают вывод окошка "Введите имя редактируемого файла".

Я спрашивал про сочетания Правого щелчка мышки + зажатая клавиша Left Alt.

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (rowe) — Thu, 11 Oct 2018 06:51:09 +0000

У меня без ошибок. Попробуйте так:

!RButton:: 
if WinActive("ahk_class Progman") or WinActive("ahk_class WorkerW")  
 {
  FullPath = %UserProfile%\Desktop
  FormatTime, TimeString, , HH.mm.ss 
  FileAppend, ,%FullPath%\%TimeString%.doc
 }	
   else
Explorer_GetSelection()
Explorer_GetSelection(hwnd="") {
    WinGet, process, processName, % "ahk_id" hwnd := hwnd? hwnd:WinExist("A")
    WinGetClass class, ahk_id %hwnd%
    if  (process = "explorer.exe") 
        if (class ~= "(Cabinet|Explore)WClass") {
            for window in ComObjCreate("Shell.Application").Windows
                if  (window.hwnd==hwnd)
                    path := window.Document.FocusedItem.path

            SplitPath, path,,dir
            FormatTime, TimeString, , HH.mm.ss 
			FileAppend, ,%dir%\%TimeString%.doc
		  }
        Return  
}
#IfWinActive ahk_class TTOTAL_CMD
!RButton::
IfWinNotActive, ahk_class TTOTAL_CMD
  Return
Send +{F4}  ;  "Shift+F4"
WinWaitActive, ahk_class TCOMBOINPUT, , 2
FormatTime, TimeString, , HH.mm.ss
ControlSetText, Edit1, %TimeString%.doc, ahk_class TCOMBOINPUT
Control, Check, , TButton3, ahk_class TCOMBOINPUT
Return

Re: AHK: Быстрое создание нового файла .doc - сочетанием мышки и клавиши

null@example.com (димитрий2) — Thu, 11 Oct 2018 01:17:41 +0000

rowe , не работает.
Запускаю ваш код AHK.

Делаю щелчок правой кнопкой мышки ( с клавишей Left Alt) по пустому месту.
Тотал коммандер вместо того, чтобы создать новый файл *.doc - предлагает "Введите имя редактируемого файла".