Вызов справки по расширению, с поиском слова

Russian main discussion
Post Reply
  • Author
  • Message
Offline
Posts: 348
Joined: Mon Jun 03, 2019 2:33 am

Вызов справки по расширению, с поиском слова

Post by AZJIO »

Скачать Help.7z

Универсилизировал AutoIt3-скрипт для открытия справки с поиском выделенного слова.

js-скрипт для вызова Help.exe/Help.au3

Code: Select all

/*
Хоткей F1, скрипт для открытия справки по расширению файла. Учитывает выделенный текст.
Укажите свои расширения файлов и пути к справкам или ссылкам
Автор AZJIO
*/

var pEditFile = AkelPad.GetEditFile(0);
var pFileExt  = AkelPad.GetFilePath(pEditFile, 4 /*CPF_FILEEXT*/);
var sSelText = AkelPad.GetSelText()
if (sSelText=="")
{
  var sLink = AkelPad.GetAkelDir() + "\\AkelFiles\\Docs\\AkelHelp-Rus.htm";
  AkelPad.SystemFunction().Call("Shell32::ShellExecuteW", 0, "open", sLink, 0, 0, 1);
  WScript.Quit();
}

switch (pFileExt.toLowerCase())
{
  case "js":
    AkelPad.Exec('"C:\\AutoIt3\\AutoIt3.exe" "%a\\AkelFiles\\Tools\\Help\\Help.au3" ' + sSelText + ' js');
    break;
  case "au3":
    AkelPad.Exec('"C:\\AutoIt3\\AutoIt3.exe" "C:\\AutoIt3\\HELP_AutoIt3.au3" ' + sSelText + ' 1');
    break;
  case "pb":
    AkelPad.Exec('"C:\\AutoIt3\\AutoIt3.exe" "%a\\AkelFiles\\Tools\\Help\\Help.au3" ' + sSelText + ' pb');
    // AkelPad.Exec('"C:\\AutoIt3\\AutoIt3.exe" "C:\\D\\PureBasic\\Purebasic 5.62 x86\\Instrument_azjio\\Help\\Help.au3" ' + sSelText + ' 1');
    break;
  // case "css":
  case "htm":
  case "html": // для веб ищем в домене htmlbook.ru
    AkelPad.Exec('"C:\\AutoIt3\\AutoIt3.exe" "%a\\AkelFiles\\Tools\\Help\\Help.au3" ' + sSelText + ' html');
    // var sLink = 'https://www.google.com/search?source=hp&q=' + sSelText + ' site:htmlbook.ru' + '&oq=' + sSelText
    // AkelPad.SystemFunction().Call("Shell32::ShellExecuteW", 0, "open", sLink, 0, 0, 1);
    break;
  case "css": // если хотим прямую ссылку на http://htmlbook.ru/css/тег, иначе раскомментриуем строку над "htm"
    AkelPad.Exec('"C:\\AutoIt3\\AutoIt3.exe" "%a\\AkelFiles\\Tools\\Help\\Help.au3" ' + sSelText + ' css');
    // var sLink = 'http://htmlbook.ru/css/' + sSelText
    // AkelPad.SystemFunction().Call("Shell32::ShellExecuteW", 0, "open", sLink, 0, 0, 1);
    break;
  default: // по умолчанию просто ищем в Google
    var sLink = 'https://www.google.com/search?source=hp&q=' + sSelText + '&oq=' + sSelText
    AkelPad.SystemFunction().Call("Shell32::ShellExecuteW", 0, "open", sLink, 0, 0, 1);
    break;
}


Как это всё перестроить по своему решать вам.

Offline
Posts: 348
Joined: Mon Jun 03, 2019 2:33 am

Post by AZJIO »

Переписал на PureBasic.
Скачать HelpPB.7z, исходник в комплекте, размер уменьшился до 16кб
Post Reply