TC Image and Group

НОВОСТИ И ОБНОВЛЕНИЕ СКРИПТОВ AkelPad

Andrey_A — Sun, 16 Jun 2024 05:21:17 GMT

НОВОСТИ И ОБНОВЛЕНИЕ СКРИПТОВ AkelPad

Все изменения версий скриптов будут отображаться в этой теме

Wrap.vbs - Перенос по словам включить\выключить

Andrey_A — Sun, 12 May 2024 18:54:08 GMT

Перенос по словам включить\выключить
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Код

' Wrap.vbs
'========================   Описание   =====================================
' Перенос по словам включить\выключить
' В отличие от команды 4209 при длинных строках оcтавляет позицию курсора или выделения в фокусе окна редактирования
' Рекомендуется назначить горячие клавиши Ctrl + U
'========================    Примеры   ======================================
' пункт для ToolBar'a все 3 последующие строки
' SET(128, If(`SendMain(1223, 17, 0)`, 0x1, 0x0))
' "Перенос по словам вкл\выкл Ctrl + U" Call("Scripts::Main", 1, "Wrap.vbs") Icon("%a\AkelPadImage.dll",16)
' UNSET(128)
' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\
'
' Автор:           Аверин Андрей
' Версия:          1.0 (17.01.2016)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-1004-14478-16-1453487430
'===========================================================================
With AkelPad
  Call .Include("Functions.vbs") : hWnd = .GetEditWnd : SetRedraw hWnd, False
  nLine = GetLineByIndex() : nSelStart = .GetSelStart : nSelEnd = .GetSelEnd
  cmd(4209) : GoToLineN(nLine) : .SetSel nSelStart, nSelEnd : SetRedraw hWnd, True
End With

getWords.vbs - Извлечение русских\английских слов\цифр

Andrey_A — Wed, 17 May 2023 06:35:12 GMT

Извлечение русских\английских слов\цифр из выделенного текста
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Код

' getWords.vbs
'========================   Описание   =====================================
' Извлечение русских\английских слов\цифр из выделенного текста
' (если ничего не выделено слова извлекаются из всего текста)
'=======================   Параметры  ======================================
' 1-й параметр
'    0 - или без параметров извлекаются русские слова (по умолчанию)
'    1 -  извлекаются английские слова
'    2 -  извлекаются цифры
' 2-й параметр - длина , меньше которой слова извлекаться не будут
'    0 - извлекаются все слова (по умолчанию)
'    N - не будут извлекаться слова меньше N символов (3 - меньше 3-х символов)
'    =N - будут извлекаться слова заданной длины
' 3-й параметр:
'    0 - не удалять дубликаты слов (по умолчанию)
'    1 - удалять дубликаты слов
' 4-й параметр:
'    0 - не переводить в нижний регистр (по умолчанию)
'    1 - переводить в нижний регистр
' 5-й параметр:
'    0 - не сортировать по убыванию (по умолчанию)
'    1 - сортировать по убыванию
' 6-й параметр: строка символов, которые необходимо удалить из из текста перед извлечением
'    "" - (по умолчанию)
'    "&" - к примеру - полезно при извлечении слов из меню, между которыми может находится символ &
'========================   Примеры   ======================================
' -"Извлечение русских слов в выделенном" Call("Scripts::Main", 1, "getWords.vbs")
' -"Извлечение английских слов в выделенном" Call("Scripts::Main", 1, "getWords.vbs",`"1"`)
' -"Извлечь русские слова >2 симв.-дубл.-удаление символа &" Call("Scripts::Main", 1, "getWords.vbs", `0 2 1 0  0 "&"`)

' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          1.8 (14.05.2011 - 23.06.2015)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-372-1138-16-1333628985
'===========================================================================
N = 0 : K = 0 : Del = 0 : Ign = 0 : Abc = 0 : ListSym = ""
With WScript Cnt = .Arguments.Count
  If Cnt > 0 Then
    N = .Arguments(0)
    If Cnt > 1 Then
      K = .Arguments(1)
      If Cnt > 2 Then
        Del = .Arguments(2)
        If Cnt > 3 Then
          Ign = .Arguments(3)
          If Cnt > 4 Then
            Abc  = .Arguments(4) : If Cnt > 5 Then ListSym  = .Arguments(5)
          End If
        End If
      End If
    End If
  End If
End With

With AkelPad .Include("Functions.vbs") : Text = .GetSelText
  If Len(Text) = 0 Then Text = .GetTextRange(0, -1)
  If Len(Text) = 0 Then Wscript.Quit
  If Len(ListSym)>0 Then Text = ReplSymbols(Text, ListSym, "")
  Select Case N
    Case 0 Text = RegExpReplace(Text, "[^а-яё\n]", Chr(32), 0, 1, 1)
    Case 1 Text = RegExpReplace(Text, "[^a-z\n]", Chr(32), 0, 1, 1)
    Case 2 Text = RegExpReplace(Text, "[\D]", Chr(32), 0, 1, 1)
  End Select
  Text = RegExpReplace(Text & Chr(32), "(" & Chr(32) & ")+", Chr(32) & Chr(32), 0, 1, 1)
  If Ign = 1 Then Text = LCase(Text)

  U = Left(K, 1)
  Select Case U
    Case "="
      K = CInt(Mid(K, 2))
      aW = RegExpSearchPlus(Text, Chr(32) & "([^ ]{" & K & "})" & Chr(32), 0, 1, 1, 2)
      Text = ""
      If IsArray(aW) Then Text = Join(aW, Chr(32))
    Case Else
      K = CInt(K)
      If K > 0 Then
        For ii = 1 To K
          point = String(ii, ".")
          Text = RegExpReplace(Text, "(" & Chr(32) & point & Chr(32) & ")+", "", 0, 1, 1)
        Next
      End If
  End Select

  If Del = 1 Or Abc = 1 Then
    tArr = Split(Text, Chr(32))
    If IsArray(tArr) And Ubound(tArr)>0 Then
      If Del = 1 Then tArr = DelDublicateArr(tArr)
      If Abc = 1 Then tArr = SelectingArrUp(tArr)
      Text = Join(tArr, Chr(13))
    End If
  Else
    Text = RegExpReplace(Text, "(" & Chr(32) & ")+", "\n", 0, 1, 1)
  End If

  If Len(Text) > 0 Then
    CreateNewTab : SetRedraw .GetEditWnd, False
    .ReplaceSel Text : ScrolEnd
    .SetSel 0, 0 : SetRedraw .GetEditWnd, True
  Else
    CreateObject("WScript.Shell").Popup "Искомых слов (цифр) не найдено!", 1, "Результат", 64
  End If
End With

Примеры использования:

Код

"Извлечь слова из выделенного текста"
          {
          -"Извлечь все русские слова" Call("Scripts::Main", 1, "getWords.vbs") Icon("%a\AkelPadImage.dll",551)
          -"Извлечь все русские слова -дубликаты" Call("Scripts::Main", 1, "getWords.vbs", `"0" "0" "1"`) Icon("%a\AkelPadImage.dll",551)
          -"Извлечь все русские слова -дубл.+нижн регистр." Call("Scripts::Main", 1, "getWords.vbs", `"0" "0" "1" "1"`) Icon("%a\AkelPadImage.dll",551)
          SEPARATOR
          -"Извлечение русских слов >2 символов" Call("Scripts::Main", 1, "getWords.vbs", `"0" "2"`) Icon("%a\AkelPadImage.dll",551)
          -"Извлечь русские слова >2 симв.-дубл." Call("Scripts::Main", 1, "getWords.vbs", `"0" "2" "1"`) Icon("%a\AkelPadImage.dll",551)
          -"Извлечь русские слова >2 симв.-дубл.+нижн регистр." Call("Scripts::Main", 1, "getWords.vbs", `"0" "2" "1" "1" "1"`) Icon("%a\AkelPadImage.dll",551)
          SEPARATOR
          SEPARATOR
            -"Извлечь все англ. слова" Call("Scripts::Main", 1, "getWords.vbs", "1") Icon("%a\AkelPadImage.dll",550)
          -"Извлечь все англ. слова -дубликаты" Call("Scripts::Main", 1, "getWords.vbs", `"1" "0" "1"`) Icon("%a\AkelPadImage.dll",550)
          -"Извлечь все англ. слова -дубл.+нижн регистр." Call("Scripts::Main", 1, "getWords.vbs", `"1" "0" "1" "1"`) Icon("%a\AkelPadImage.dll",550)
          SEPARATOR
          -"Извлечь англ. слова >2 символов" Call("Scripts::Main", 1, "getWords.vbs", `"1" "2"`) Icon("%a\AkelPadImage.dll",550)
          -"Извлечь англ. слова >2 симв.-дубл." Call("Scripts::Main", 1, "getWords.vbs", `"1" "2" "1"`) Icon("%a\AkelPadImage.dll",550)
          -"Извлечь англ. слова >2 симв.-дубл.+нижн регистр." Call("Scripts::Main", 1, "getWords.vbs", `"1" "2" "1" "1" "1"`) Icon("%a\AkelPadImage.dll",550)
          SEPARATOR
          SEPARATOR
          -"Извлечь все цифры" Call("Scripts::Main", 1, "getWords.vbs",`"2"`) Icon("%a\AkelPadImage.dll",917)
          -"Извлечь все цифры +сорт.-дубликаты" Call("Scripts::Main", 1, "getWords.vbs",`"2" "0" "1" "0" "1"`) Icon("%a\AkelPadImage.dll",917)
          }

[/hide]

ЗАКАЗ СКРИПТОВ для AkelPad

Andrey_A — Tue, 09 May 2023 09:14:58 GMT

ЗАКАЗ СКРИПТОВ для AkelPad'a

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

Готовые решения будут открепляться в отдельные темы

Translator.js - Онлайн переводчик через Google, MS Bing...

Andrey_A — Thu, 10 Jun 2021 11:05:03 GMT

Онлайн переводчик через Google, MS Bing и Yandex.

[hide]// Version: 2015-09-19
// Author: KDJ

Скачать Translator.js

[img640]http://tc-image.3dn.ru/Image/AkelPad/akt.png[/img640]

Associations.vbs - Ассоциация типов файлов с AkelPad

Andrey_A — Wed, 19 Aug 2020 13:19:01 GMT

Ассоциация типов файлов с AkelPad
Используется NirCmd.exe - файл можете скачать в теме: утилиты NirCmd
Библиотека значков для различных расширений - скачать Доступно только для пользователей AkelExtImage.dll AkelExtImage.dll

Доступно только для пользователей

Code

' Associations.vbs
'=======================   Описание   ======================================
' Ассоциация типов файлов с AkelPad
'=======================   Параметр  =======================================
' 1-й и 2-й параметр:
'    - "0" "txt,ini,inf" - ассоциируется расширения, прописанные в строке через запятую
'    - "1" "%f" - ассоциируется расширение текущего фцццюцайла
'    - "2" ""     - ассоциируется расширения, прописанные в диалоге через запятую
' Любой 3-й параметр означает, что значки для типов будут взяты из библиотеки AkelExtImage.dll

' расширения bat;cmd;vbs;js;hta;reg;sys;au3;ahk;a3x - не ассоциируются, но можно присвоить им значок из библиотеки, используя 3-й параметр:
' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          1.1 (11.08.2012 - 15.09.2012)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-603-2782-16-1344713270
'====================   Изменяемые пути   ==================================
NirCmd = "\AkelFiles\Tools\NirCmd\NirCmd.exe"
IcoDll = "\AkelExtImage.dll" ' бибилиотека значков для типов файлов
'===========================================================================
vb = vbNewLine : vb2 = vb & vb : P = -1 : Titles = "Асооциация типов файлов"
With WScript Cnt = .Arguments.Count
   If Cnt < 2 Then WScript.Quit
   P = .Arguments(0) : List = .Arguments(1)
End With
Call AkelPad.Include("Functions.vbs") : AP = GetExeAkel : MAkel = GetOtherObjectFile(AP, 2)
A = AkelPad.GetAkelDir(0) : AP = Replace(AP, "\", "\\") : RP = A & "\AkelFiles\Regs\" : NC = A & NirCmd : ICL = A & IcoDll

With CreateObject("Scripting.FileSystemObject")
   If Not .FolderExists(RP) Then .CreateFolder(RP)
   NoExt = ";bat;cmd;vbs;js;hta;au3;reg;sys;a3x;ahk"
   Select Case P
     Case 0 Call CheckExt(List)
     Case 1 Call CheckExt(LCase(.GetExtensionName(List)))
     Case 2
       List = InputBox("Введите расширения, которые хотите ассоциировать с AkelPad (через запятую)", Titles, "txt,ini,inf")
       If Len(List) = 0 Or IsEmpty(List) Then WScript.Quit
       Call CheckExt(List)
   End Select
End With
CreateObject("WScript.Shell").Popup "Ассоциирование завершено!", 1, Titles, 64

Sub CheckExt(Line)
     ar = Split(Line, ",")
     For i = 0 To Ubound(ar)
       EL = LCase(ar(i))
       If Len(EL) > 0 Then
         If InStr(NoExt, ";" & EL & ";") = 0 Then
           Call CreateRegTextProg(EL)
         Else
           If Cnt > 2 Then
            If Not CreateObject("Scripting.FileSystemObject").FileExists(ICL) Then WScript.Quit
             Call CreateRegTextIcon(EL)
           Else
             WScript.Quit
           End If
         End If
       End If
     Next
End Sub

Sub CreateRegTextProg(IExt)
    If Cnt > 2 Then
      Icon = "@=""" & Replace(ICL, "\", "\\") & "," & GetIcon(IExt) & """"
    Else
      Icon = "@=""" & AP & ",0"""
    End If
   F = IExt & "file" : H = "[HKEY_CLASSES_ROOT\"
   Reg = "Windows Registry Editor Version 5.00" & vb2 &_
   H & "." & IExt & "]" & vb & "@=""" & F & """" & vb2 &_
   H & F & "]" & vb2 &_
   H & F & "\DefaultIcon]" & vb & Icon  & vb2 &_
   H & F & "\shell]" & vb2 &_
   H & F & "\shell\open]" & vb2 &_
   H & F & "\shell\open\command]" & vb &_
   "@=""\""" & AP & "\"" \""%1\"""""
   RF = RP & IExt & "_Prog" & ".reg"
   Call CreateRegFile(RF,Reg)
   Call RunRegFile(RF)
End Sub

Sub CreateRegTextIcon(IExt)
   F = IExt & "file" : H = "[HKEY_CLASSES_ROOT\"
   Reg = "Windows Registry Editor Version 5.00" & vb2 &_
   H & "." & IExt & "]" & vb & "@=""" & F & """" & vb2 &_
   H & F & "]" & vb2 &_
   H & F & "\DefaultIcon]" & vb & "@=""" & Replace(ICL, "\", "\\") & "," & GetIcon(IExt) & """"
   RF = RP & IExt & "_Icon" & ".reg"
   Call CreateRegFile(RF,Reg)
   Call RunRegFile(RF)
End Sub

Function GetIcon(IcExt)
   Select Case IcExt
     Case "txt" L = 0
     Case "bar" L = 1
     Case "ini" L = 4
     Case "lng","lang" L = 5
     Case "mnu" L = 6
     Case "inc" L = 7
     Case "sys" L = 8
     Case "rus","ru","russian","pyc" L = 9
     Case "1st","me" L = 10
     Case "log","gjlog" L = 11
     Case "list","lst","lsl" L = 12
     Case "reg" L = 13
     Case "cmd" L = 14
     Case "m3u","m3u8","pls","wpl" L = 15
     Case "coder" L = 17
     Case "vbs" L = 18
     Case "js" L = 19
     Case "hta","wsf","wsc" L = 20
     Case "pl","pm","py","java","pas","nsm","lua","h" L = 21
     Case "input","browse","footer","main","mosaic","playlist","sout","vlm" L = 3
     Case "akelmenu","toolbar","param" L = 22
     Case "autocomplete" L = 23
     Case "ahk" L = 24
     Case "tab","bar" L = 25
     Case "conf","config","cnfp","cnf" L = 26
     ' Case "au3","a3x" L = 0
     Case Else L = 2
   End Select
   GetIcon = L
End Function

Sub RunRegFile(rFile)
   CreateObject("WScript.Shell").Run Chr(34) & NC & Chr(34) & " execmd regedit /s " & Chr(34) & rFile & Chr(34), 2, True
End Sub

Sub CreateRegFile(rFile, rText)
   CreateObject("Scripting.FileSystemObject").CreateTextFile(rFile, True).Write rText
End Sub

Пример использования:
Доступно только для пользователей

Code

"&Ассоциации" Icon("%a\AkelPadImage.dll",570)
      {
        "Значок для Ассоциаций из библиотеки"
        {
        -"Ассоциация заданных расширений" Call("Scripts::Main", 1, "Associations.vbs", `"0" "txt,ini,inf" "1"`) Icon("%a\AkelPadImage.dll",103)
        -"Ассоциация расширения файла" Call("Scripts::Main", 1, "Associations.vbs", `"1" "%f"  "1"`) Icon("%a\AkelPadImage.dll",103)
        -"Ассоциация (диалог ввода расширений)" Call("Scripts::Main", 1, "Associations.vbs", `"2" ""  "1"`) Icon("%a\AkelPadImage.dll",103)
          SEPARATOR
        -"Ассоциация моих расширений" Call("Scripts::Main", 1, "Associations.vbs", `"0" "txt,bar,ini,lng,lang,mnu,inc,sys,rus,ru,russian,pyc,1st,me,log,gjlog,list,lst,lsl,reg,cmd,m3u,m3u8,pls,wpl,coder,vbs,js,hta,wsf,wsc,pl,pm,p     y,java,pas,nsm,lua,h,input,browse,footer,main,mosaic,playlist,sout,vlm,akelmenu,toolbar,param,autocomplete,ahk,tab,bar,conf,config,cnfp, c n f"   "1"`) Icon("%a\AkelPadImage.dll",103)
        }
        -"Ассоциация заданных расширений" Call("Scripts::Main", 1, "Associations.vbs", `"0" "txt,ini,inf"`) Icon("%a\AkelPadImage.dll",103)
        -"Ассоциация расширения файла" Call("Scripts::Main", 1, "Associations.vbs", `"1" "%f"`) Icon("%a\AkelPadImage.dll",103)
        -"Ассоциация (диалог ввода расширений)" Call("Scripts::Main", 1, "Associations.vbs", `"2" ""`) Icon("%a\AkelPadImage.dll",103)
       }

FindFiles.js - Поиск файлов по названию и содержанию.

Andrey_A — Wed, 13 Nov 2019 14:11:41 GMT

Поиск файлов по названию и содержанию.

скрипт от 2013-09-14

скачать Доступно только для пользователейFindFiles.js

КОЛЛЕКЦИЯ СКРИПТОВ для AkelPad

Andrey_A — Tue, 12 Nov 2019 07:05:05 GMT

КОЛЛЕКЦИЯ СКРИПТОВ для AkelPad

Скрипты - уникальный инструмент для достижения различных целей в работе с файлами и не только, особенно в текстовом редакторе, даже если вы ничего раньше об этом ничего не слышали и не знали, то путём простых движений вы можете увеличить функционал...

1. Каждый может выложить свой скрипт ЗДЕСЬ, СОЗДАВ НОВУЮ ТЕМУ
...a) скрипт может быть написан на любом языке: vbs, js, hta, au3,ahk...
...b) скрипт должен относится как-то к AkelPad
...c) к скрипту должно быть описание к применению

2. Каждый может протестировать, дать свой комментарий в теме самого скрипта

3. Каждый может заказать скрипт для AkelPad ЗДЕСЬ. Если есть интересная идея, вы можете поделиться, а вдруг она покажется интересной для авторов...

4. Узнать об изменении и обновлении скриптов AkelPad Вы можете ЗДЕСЬ

5. Узнать как использовать скрипты, параметры и дополнительные утилиты Вы можете ниже под спойлерами

Доступно только для пользователей0. Устанавливаем Scripts плагин (если нету)
1. Указанный в секциях "код" текст необходимо сохранить в виде текстового файла с именем и расширением, указанным в начале кода.
2. Затем нужно положить скрипт в папку ...\AkelFiles\Plugs\Scripts\
3. Необходимо создать кнопку для ToolBar'a или команду для главного меню
Синтаксис:

Код

-"Описание" Call("Scripts::Main", 1, "Имя_скрипта.vbs/js", `"Параметр1" "Параметр2"`) Icon("Путь\к\Значку.ico/илиБилиотеке_значков.dll",Номер значка)

4. Вставить кнопку в ToolBar или пункт в главное меню
...a) ToolBar - Удерживая CTRL нажмите в любом месте Панели инструментов Левой кнопкой мыши - появится окно редактирования панели - вставьте в нужное место созданную кнопку
...b) ContextMenu (главное меню) - Удерживая CTRL нажмите на любой команде главного меню Левой кнопкой мыши - появится окно редактирования меню - вставьте в нужное место созданную команду

5. Если скрипт использует дополнительные файлы, утилиты, программы, то необходимо проверить наличие таковых.
6. Проверить в скрипте пути дополнительных файлов, утилит, программ. Исправить, если они находятся в другом месте
7. Если скрипт использует Вспомогательные скрипты их следует положить в папку ...\AkelFiles\Plugs\Scripts\Include\

FunctionsDialog.vbs - Скрипт с функциями для вызова диалога

Andrey_A — Tue, 13 Aug 2019 17:47:19 GMT

Скрипт с различными Функциями для вызова диалога Открытия/Сохранения файла (WinAPI) и выбора папки
Используется скрипт FunctionsINITextRWS.vbs - Чтение и запись из Текста, имеющего структуру INI файла
Используется скрипт FunctionsDialog.vbs - Скрипт с различными Функциями для вызова диалога Открытия/Сохранения файла (WinAPI) и выбора папки

Доступно только для пользователей

Код

' FunctionsDialog.vbs
'========================   Описание   =====================================
' Скрипт с различными Функциями для вызова диалога Открытия/Сохранения файла (WinAPI) и выбора папки
' скрипт следует положить в ...AkelFiles\Plugs\Scripts\Include\
'================   Примеры  использования   ===============================
' AkelPad.Include("FunctionsDialog.vbs")
' File = FileDialogDefault(True, "C:\AkelPad\AkelFiles\Plugs\Scripts\", "")
' скрипт основан на коде VladSh и KDJ (CommonFunctions.js и BrowseForFolder_function.js)

' Автор:           Аверин Андрей
' Версия:          1.8 (10.09.2012 - 24.12.2014)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-648-3170-16-1347284289
'===========================================================================
pExtTXT = "txt" : TextFilter = "" : numberFilter = 1
If AkelPad.IsOldWindows() Then : TSIZE = 1 : TSTR = 0 : TCHAR = "A" : Else : TSIZE = 2 : TSTR = 1 : TCHAR = "W" : End If

'====================   Описание функции  ==================================
' Функция стандартного диалога Открытия/Сохранения файла (WinAPI)
' bOpenTrueSaveFalse - True - будет вызвано окно открытия файла, False - записи
' pInitialFile - имя начального файла
' pInitialExt - расширение начального
' pNameSection - имя секции из которой берётся фильтр, прописанные в FunctionsDialog.ini
' nFilter - номер начального фильтра
' ImgFile = FileDialogSectionFilter(False, "", "", "Image", 2)
'===========================================================================
Function FileDialogSectionFilter(bOpenTrueSaveFalse, pInitialFile, pInitialExt, pNameSection, nFilter)
   With AkelPad Call .Include("FunctionsINITextRWS.vbs")
     FileINI = .GetAkelDir(6) & "\FunctionsDialog.ini"
     TextINI = .ReadFile(FileINI)
     pInitialFile = ReadINIText(TextINI, "Options", "File")
     TextFilter = ReadINISectionInText(TextINI, pNameSection) : numberFilter = nFilter
     FileDL = FileDialogDefault(bOpenTrueSaveFalse, pInitialFile, pInitialExt)
     TextINI = WriteINIText(TextINI, "Options", "File", FileDL)
     Call CreateObject("Scripting.FileSystemObject").OpenTextFile(FileINI, 2).Write(TextINI)
     FileDialogSectionFilter = FileDL
   End With
End Function
'====================   Описание функции  ==================================
' Функция стандартного диалога Открытия/Сохранения файла (WinAPI)
' bOpenTrueSaveFalse - True - будет вызвано окно открытия файла, False - записи
' pInitialFile - имя начального файла
' pInitialExt - расширение начального
' фильтр берётся из файла  %a\AkelFiles\Plugs\Scripts\Params\FileDialogExtentions.param
'===========================================================================
Function FileDialogDefault(bOpenTrueSaveFalse, pInitialFile, pInitialExt)
   pInitialDir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(pInitialFile)
   If Right(pInitialDir, 1) <> "\" Then pInitialDir = pInitialDir & "\"
   If Len(TextFilter) = 0 Then TextFilter = AkelPad.ReadFile(AkelPad.GetAkelDir(6) & "\Params\FileDialogExtentions.param")
   nFilterIndex = 1 : arrExtAll = Split(TextFilter, vbNewLine) : m = Ubound(arrExtAll)
   If m > 0 Then
     n = 0
     For i = 0 To m
       arrFTypeInfo = Split(arrExtAll(i),"=") : arrExtAll(i) = GetFilters(arrFTypeInfo(0), arrFTypeInfo(1))
       If Ubound(Split(";" & arrFTypeInfo(1) & ";", ";" & pInitialExt & ";")) = 2 Then
         If bOpenTrueSaveFalse Then
           nFilterIndex = i + 1 : n = 1
         Else
           n = n + 1 : arrExtLines(n) = arrExtAll(i)
           Exit For
         End If
       End If
     Next
     If bOpenTrueSaveFalse Then
       arrExtLines = arrExtAll
     Else
       If n = 1 Then
         arrExtLines(0) = arrExtAll(0) : nFilterIndex = 2
       Else
         arrExtLines = arrExtAll : nFilterIndex = -1
       End If
     End If
   Else
     arrExtLines(0) = GetFilters("All Files", "*") : arrExtLines(1) = GetFilters("Plain Text files", pExtTXT)
     If pInitialExt Then
       If pInitialExt <> pExtTXT Then
         arrExtLines(2) = GetFilters(UCase(pInitialExt) & " files", pInitialExt) : nFilterIndex = 3
       Else
         nFilterIndex = 2
       End If
     End If
   End If
   pFilter = Join(arrExtLines,"")
   If nFilterIndex > 0 Then
     sExtTmp = GetFF(pInitialFile, 1)
     If (Len(sExtTmp) > 0 And ((sExtTmp <> pInitialExt) Or (nFilterIndex = 1))) Then
       pInitialFile = GetFF(pInitialFile, 3)
       If Len(pInitialFile) = 0 Then pInitialFile = "filename"
     Else
       pInitialFile = GetFF(pInitialFile, 2)
     End If
   Else
     nFilterIndex = 1
     If Not bOpenTrueSaveFalse Then
       If Len(pInitialExt) > 0 Then
         pInitialFile = GetFF(pInitialFile, 2) & "." & pInitialExt : pInitialExt = GetDefaultExt
       End If
     End If
   End If
   If numberFilter <> 1 Then nFilterIndex = numberFilter
   FileDialogDefault = FileDialog(bOpenTrueSaveFalse, hWnd, pInitialDir, pInitialFile, pInitialExt, pFilter, nFilterIndex)
End Function

'====================   Описание функции  ==================================
' Вызов диалога Открытия/Сохранения файла (WinAPI) с предварительной обработкой и инициализацией всех необходимых параметров
' bDialog - True - будет вызвано окно открытия файла, False - записи
' hWnd - хендл окна AkelPad - .GetMainWnd()
' pInitialDir - путь к начальной директории
' pInitialFile - имя начального файла
' pInitialExt - расширение начального
'===========================================================================
' Пример создания фильтра pFilter:
' Filters = "All Files (*.*)|*.*|Image (*.jpg;*.bmp)|*.jpg;*.bmp|"
' ImgFile = FileDialog(False, .GetMainWnd(), "", "", "", Filters, 2)
'===========================================================================
' nFilterIndex - номер начального фильтра
'===========================================================================
Function FileDialog(bDialog, hWnd, pInitialDir, pInitialFile, pInitialExt, pFilter, nFilterIndex)
   With AkelPad
     pFilter = Replace(pFilter, "|", Chr(0)) : lFilterBuffer = Len(pFilter) : Dialog ="Save"
     If .IsOldWindows() Then : TSIZE = 1 : TSTR = 0 : TCHAR = "A" : Else : TSIZE = 2 : TSTR = 1 : TCHAR = "W" : End If
     If X64 Then
       aa = 136 : bb = 8 : cc = 24 : dd = 44 : ee = 48 : ff = 56 : gg = 68 : hh = 96 : jj = 104
     Else
       aa = 76 : bb = 4 : cc = 12 : dd = 24 : ee = 28 : ff = 32 : gg = 44 : hh = 52 : jj = 60
     End If
     lpFilterBuffer = .MemAlloc((lFilterBuffer + 1) * TSIZE)
     If Len(lpFilterBuffer) > 0 Then
       Call .MemCopy(lpFilterBuffer, Mid(pFilter, 1, lFilterBuffer), TSTR) : lpFileBuffer = .MemAlloc(256 * TSIZE)
       If Len(lpFileBuffer) > 0 Then
         Call .MemCopy(lpFileBuffer, Mid(pInitialFile, 1, 255), TSTR) : lpExtBuffer = .MemAlloc(256 * TSIZE)
         If Len(lpExtBuffer) > 0 Then
           Call .MemCopy(lpExtBuffer, Mid(pInitialEx, 1, 255), TSTR) : lpDirBuffer = .MemAlloc(256 * TSIZE)
           If Len(lpDirBuffer) > 0 Then
             Call .MemCopy(lpDirBuffer, Mid(pInitialDir, 1, 255), TSTR) : lpStructure = .MemAlloc(aa)
             If Len(lpStructure) > 0 Then
               Call .MemCopy(lpStructure, aa, 3)
               Call .MemCopy(lpStructure + bb, hWnd, 2)
               Call .MemCopy(lpStructure + cc, lpFilterBuffer, 2)
               Call .MemCopy(lpStructure + dd, nFilterIndex, 3)
               Call .MemCopy(lpStructure + ee, lpFileBuffer, 2)
               Call .MemCopy(lpStructure + ff, 256, 3)
               Call .MemCopy(lpStructure + gg, lpDirBuffer, 2)
               Call .MemCopy(lpStructure + hh, &H880804, 3)
               Call .MemCopy(lpStructure + jj, lpExtBuffer, 2)
               If bDialog Then Dialog ="Open"
               nCallResult = .SystemFunction().Call("comdlg32::Get" & Dialog & "FileName" & TCHAR, lpStructure)
               If Len(nCallResult) > 0 Then pResultFile = .MemRead(lpFileBuffer, TSTR)
               .MemFree(lpStructure)
             End If : .MemFree(lpDirBuffer)
           End If : .MemFree(lpExtBuffer)
         End If : .MemFree(lpFileBuffer)
       End If : .MemFree(lpFilterBuffer)
     End If
   End With
   If pInitialFile = pResultFile Then pResultFile = ""
   FileDialog = pResultFile
End Function

'====================   Описание функции  ==================================
' Функция возвращает путь выбранной папки
' hwndOwner - дескриптор окна владельца в диалоговом окне
' sTitle - Строка, которая отображается над контролем дерева в диалоговом окне, может быть ""
' sDir - Папка будет выбрана, после вызова функции, может быть "" (не работает)
'========================   Примеры   ======================================
' Call AkelPad.Include("FunctionsDialog.vbs")
' Title = "Выберите папку, куда хотите скопировать файл:"
' Dir = BrowseForFolderss(AkelPad.GetEditWnd(), Title, "")
'===========================================================================
Function BrowseForFolderss(hwndOwner, sTitle, sDir)
   With AkelPad Set oSys = .SystemFunction()
     If hWndOwn = 0 Then hWndOwn = .GetMainWnd()
     hWndDesk = oSys.Call("User32::GetDesktopWindow")
     If oSys.Call("User32::IsWindow", hWndOwn) Then hWndOwn = hWndDesk
     If IsNumeric(sText) Then sText = ""
     If IsNumeric(sIniDir) Then sIniDir = ""
     If X64 Then
       aa = 64 : bb =8 : cc =16 : dd = 24 : ee = 32 : ff = 40 : gg = 48 : hh = 56
     Else
       aa = 32 : bb = 4 : cc =8 : dd = 12 : ee = 16 : ff = 20 : gg = 24 : hh = 28
     End If
     lpText = .MemAlloc((Len(sText) + 1) * 2) : lpDir = .MemAlloc(260 * 2) : lpBrowse = .MemAlloc(aa)
     .MemCopy lpText, sText, 1
     .MemCopy lpDir, sIniDir, 1
     .MemCopy lpBrowse, hWndOwn, 2
     .MemCopy lpBrowse + bb, 0, 2
     .MemCopy lpBrowse + bb*2, lpDir, 2
     .MemCopy lpBrowse + dd, lpText, 2
     .MemCopy lpBrowse + ee, 65, 3
     lpIDL = oSys.Call("Shell32::SHBrowseForFolderW", lpBrowse)
     If lpIDL Then
       oSys.Call "Shell32::SHGetPathFromIDListW", lpIDL, lpDir
       oSys.Call "Ole32::CoTaskMemFree", lpIDL
       BrowseForFolders = .MemRead(lpDir, 1) & "\"
     End If
     .MemFree(lpText) : .MemFree(lpDir) : .MemFree(lpBrowse)
   End With
End Function

' Функция возвращает массив содержимого файла, разбитый через pSepRow
Function GetFileSplitLines(pFile, pSepRow) : GetFileSplitLines = Split(AkelPad.ReadFile(pFile), pSepRow) : End Function

' Функция сборки фильтра
Function GetFilters(sFTypeInfo, sExts)
   sMask = "*." & Replace(sExts, ";", ";*.") : GetFilters = sFTypeInfo & " (" & Replace(sMask, ";", "; ") & ")" & Chr(0) & sMask & Chr(0)
End Function

' Функция определение расширения по умолчанию
Function GetDefaultExt
   With AkelPad
   If Len(pDefaultExt) = 0 Then
     lParam = .MemAlloc(256)
       If lParam Then
         Call .SendMessage(.GetMainWnd(), 1222, 224, lParam) : pDefaultExt = .MemRead(lParam, 1) : .MemFree(lParam)
       End If
   End If
   If Len(pDefaultExt) > 0 Then GetDefaultExt = pDefaultExt Else GetDefaultExt = pExtTXT End If
   End With
End Function

' Функция получения различных объектов файла
Function GetFF(yyFile, yyN)
   With CreateObject("Scripting.FileSystemObject")
     Select Case yyN
       Case 1 yyF = .GetExtensionName(yyFile) ' расширение
       Case 2 yyF = .GetBaseName(yyFile) ' имя без расширения
       Case 3 yyF = .GetFileName(yyFile) ' имя с расширением
       Case 4 yyF = .GetParentFolderName(yyFile) ' родительский путь
       ' Case 23 yyF = .GetParentFolderName(yyFile) & "\" & .GetBaseName(yyFile) ' путь с именем без расширения
     End Select
   End With
   GetFF = yyF
End Function

Function UpFileDialog(FT, tFile)
   FLD = FileDialogDefault(FT, tFile, "")
   If Len(FLD) = 0 Then Wscript.Quit
   UpFileDialog = FLD
End Function

Function UpFolderDialog(Titl)
   FLD = BrowseForFolderss(AkelPad.GetEditWnd(), "Выберите папку" & Titl, "")
   If Len(FLD) = 0 Then Wscript.Quit
   UpFolderDialog = FLD
End Function

Function ExtractFolder(fFL)
   If Len(GetFF(fFL, 1)) > 0 Then fFL = GetFF(fFL, 4) End If
   ExtractFolder = fFL
End Function

CodePoster.js - Экспорт выделенного текста в HTML или BBCode

Andrey_A — Tue, 13 Aug 2019 17:23:40 GMT

Экспорт выделенного текста в HTML или BBCode.

Доступно только для пользователей

Code

/// CodePoster.js
// http://tc-image.3dn.ru/forum/9-255-840-16-1332920398
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=13021#13021
// Version v1.9
// Author: Instructor
//
//// Экспорт выделенного текста в HTML или BBCode.
//// Export highlighted text to HTML or BBCode.
//
// Arguments:
// -Format="html" -Output highlighting in HTML format (default is "BBCode").
// -Enclose="[c ode]${result}[/c ode]" -Enclose result string (default is "

${result}

").
// -XHTML=false -use "
" instead of "
" (default is true).
// -Strict=true -use " // -Info=false -Don't add link to CodePoster.js script (default is true).
//
// Usage:
// Call("Scripts::Main", 1, "CodePoster.js", `-Format="BBC ode" -Enclose="[c ode]${result}[/c ode]"`)

//Arguments
var pFormat=AkelPad.GetArgValue("Format", "BBCode");
var pEnclose=AkelPad.GetArgValue("Enclose", "

${result}

");
var bXHTML=AkelPad.GetArgValue("XHTML", true);
var bStrict=AkelPad.GetArgValue("Strict", false);
var bInfo=AkelPad.GetArgValue("Info", true);

//Variables
var hMainWnd=AkelPad.GetMainWnd();
var hWndEdit=AkelPad.GetEditWnd();
var oSys=AkelPad.SystemFunction();
var dwSystemTextColor=oSys.Call("user32::GetSysColor", 8 /*COLOR_WINDOWTEXT*/);
var lpGH;
var lpCallback;
var pText="";
var pColorBegin;
var pColorEnd;
var lpMemText=0;
var nMemTextBytes;
var bBBCode;
var pScriptURL="";

if (hWndEdit)
{
      if (pFormat.toLowerCase() == "html")
        bBBCode=false;
      else
        bBBCode=true;

      if (bInfo)
        pScriptURL="http://akelpad.sourceforge.net/forum/viewtopic.php?p=13021#13021";

      if (lpGH=AkelPad.MemAlloc(_X64?80:40 /*sizeof(AEGETHIGHLIGHT)*/))
      {
        if (lpCallback=oSys.RegisterCallback("GetHighLightCallback"))
        {
          AkelPad.MemCopy(lpGH + (_X64?16:8) /*offsetof(AEGETHIGHLIGHT, lpCallback)*/, lpCallback, 2 /*DT_QWORD*/);
          AkelPad.MemCopy(lpGH + (_X64?72:36) /*offsetof(AEGETHIGHLIGHT, dwFlags)*/, 0x7 /*AEGHF_NOSELECTION|AEGHF_NOACTIVELINETEXT|AEGHF_NOACTIVELINEBK*/, 3 /*DT_DWORD*/);

          if (!AkelPad.SendMessage(hWndEdit, 3123 /*AEM_EXGETSEL*/, lpGH + (_X64?24:12) /*offsetof(AEGETHIGHLIGHT, crText.ciMin)*/, lpGH + (_X64?48:24) /*offsetof(AEGETHIGHLIGHT, crText.ciMax)*/))
          {
            AkelPad.SendMessage(hWndEdit, 3130 /*AEM_GETINDEX*/, 1 /*AEGI_FIRSTCHAR*/, lpGH + (_X64?24:12) /*offsetof(AEGETHIGHLIGHT, crText.ciMin)*/);
            AkelPad.SendMessage(hWndEdit, 3130 /*AEM_GETINDEX*/, 2 /*AEGI_LASTCHAR*/, lpGH + (_X64?48:24) /*offsetof(AEGETHIGHLIGHT, crText.ciMax)*/);
          }

          //Calculate nMemTextBytes
          nMemTextBytes=0;
          AkelPad.SendMessage(hWndEdit, 3595 /*AEM_HLGETHIGHLIGHT*/, 0, lpGH);

          if (lpMemText=AkelPad.MemAlloc(nMemTextBytes + _TSIZE))
          {
            //Fill lpMemText
            nMemTextBytes=0;
            AkelPad.SendMessage(hWndEdit, 3595 /*AEM_HLGETHIGHLIGHT*/, 0, lpGH);

            pText=AkelPad.MemRead(lpMemText, _TSTR);
            AkelPad.MemFree(lpMemText);
          }
          oSys.UnregisterCallback(lpCallback);
        }
        AkelPad.MemFree(lpGH);
      }

      if (pText)
      {
        pText=pEnclose.replace(/\$\{result\}/, pText);
        if (bInfo)
        {
          if (bBBCode)
            pText+="[color=Purple][size=1]* " + GetLangString(0) + " [URL=" + pScriptURL + "]CodePoster.js[/URL] " + GetLangString(1) + "[/size][/color]\r";
          else
          {
            if (bStrict)
              pText+="\r* " + GetLangString(0) + " CodePoster.js " + GetLangString(1) + "\r";
            else
              pText+="\r* " + GetLangString(0) + " CodePoster.js " + GetLangString(1) + "\r";
          }
        }
        AkelPad.SetClipboardText(pText);
        AkelPad.MessageBox(hMainWnd, GetLangString(2), WScript.ScriptName, 64 /*MB_ICONINFORMATION*/);
      }
}

function GetHighLightCallback(dwCookie, crAkelRange, crRichRange, hlp)
{
      var nRangeStart=AkelPad.MemRead(crRichRange + 0 /*offsetof(CHARRANGE64, crRichRange.cpMin)*/, 2 /*DT_QWORD*/);
      var nRangeEnd=AkelPad.MemRead(crRichRange + (_X64?8:4) /*offsetof(CHARRANGE64, crRichRange.cpMax)*/, 2 /*DT_QWORD*/);
      var pRangeText;
      var dwFontStyle=AkelPad.MemRead(hlp + (_X64?16:16) /*offsetof(AEHLPAINT, dwFontStyle)*/, 3 /*DT_DWORD*/);
      var dwActiveTextColor=AkelPad.MemRead(hlp + (_X64?8:8) /*offsetof(AEHLPAINT, dwActiveText)*/, 3 /*DT_DWORD*/);
      var dwPaintType=AkelPad.MemRead(hlp + (_X64?20:20) /*offsetof(AEHLPAINT, dwPaintType)*/, 3 /*DT_DWORD*/);

      if (pRangeText=AkelPad.GetTextRange(nRangeStart, nRangeEnd))
      {
        if (!bBBCode)
        {
          //pRangeText=pRangeText.replace(/[ ]{2,}/g, " ");
          pRangeText=pRangeText.replace(/&/g, "&");
          pRangeText=pRangeText.replace(/          pRangeText=pRangeText.replace(/>/g, ">");
          pRangeText=pRangeText.replace(/"/g, """);
        }

        if (dwPaintType & 0x80 /*AEHPT_LINK*/)
        {
          if (bBBCode)
            pRangeText="[url=" + pRangeText + "]" + pRangeText + "[/url]";
          else
            pRangeText="" + pRangeText + "";
        }
        if (dwFontStyle == 2 /*AEHLS_FONTBOLD*/)
        {
          if (bBBCode)
            pRangeText="[b]" + pRangeText + "[/b]";
          else
            pRangeText="" + pRangeText + "";
        }
        else if (dwFontStyle == 3 /*AEHLS_FONTITALIC*/)
        {
          if (bBBCode)
            pRangeText="[i]" + pRangeText + "[/i]";
          else
            pRangeText="" + pRangeText + "";
        }
        else if (dwFontStyle == 4 /*AEHLS_FONTBOLDITALIC*/)
        {
          if (bBBCode)
            pRangeText="[b][i]" + pRangeText + "[/i][/b]";
          else
            pRangeText="" + pRangeText + "";
        }

        if (dwSystemTextColor != dwActiveTextColor)
        {
          if (bBBCode)
            nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "[color=#" + rgb2hex(dwActiveTextColor) + "]" + pRangeText + "[/color]", _TSTR) - _TSIZE;
          else
          {
            if (bStrict)
              nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "" + pRangeText + "", _TSTR) - _TSIZE;
            else
              nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "" + pRangeText + "", _TSTR) - _TSIZE;
          }
        }
        else nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, pRangeText, _TSTR) - _TSIZE;
      }

      if (IsLastCharInLine(crAkelRange + (_X64?24:12) /*offsetof(AECHARRANGE, ciMax)*/) && IndexCompare(crAkelRange + (_X64?24:12) /*offsetof(AECHARRANGE, ciMax)*/, lpGH + (_X64?48:24) /*offsetof(AEGETHIGHLIGHT, crText.ciMax)*/))
      {
        if (bBBCode)
          nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "\r", _TSTR) - _TSIZE;
        else
          nMemTextBytes+=AkelPad.MemCopy(lpMemText?lpMemText + nMemTextBytes:0, "\r" + (bXHTML?"
":"
"), _TSTR) - _TSIZE;
      }
      return 0;
}

function rgb2hex(dwColor)
{
      var pHexColor;

      pHexColor=dwColor.toString(16)
      while (pHexColor.length < 6) pHexColor="0" + pHexColor;
      return pHexColor.substr(4, 2) + pHexColor.substr(2, 2) + pHexColor.substr(0, 2);
}

function IsLastCharInLine(lpCharIndex)
{
      var nCharInLine=AkelPad.MemRead(lpCharIndex + (_X64?16:8) /*offsetof(AECHARINDEX, nCharInLine)*/, 3 /*DT_DWORD*/);
      var lpLine=AkelPad.MemRead(lpCharIndex + (_X64?8:4) /*offsetof(AECHARINDEX, lpLine)*/, 2 /*DT_QWORD*/);
      var nLineLen=AkelPad.MemRead(lpLine + (_X64?24:12) /*offsetof(AELINEDATA, nLineLen)*/, 3 /*DT_DWORD*/);
      var nLineBreak=AkelPad.MemRead(lpLine + (_X64?28:16) /*offsetof(AELINEDATA, nLineBreak)*/, 3 /*DT_DWORD*/);

      if (nCharInLine == nLineLen && nLineBreak != 9 /*AELB_WRAP*/)
        return true;
      return false;
}

function IndexCompare(lpCharIndex1, lpCharIndex2)
{
      var nCharInLine1=AkelPad.MemRead(lpCharIndex1 + (_X64?16:8) /*offsetof(AECHARINDEX, nCharInLine)*/, 3 /*DT_DWORD*/);
      var nLine1=AkelPad.MemRead(lpCharIndex1 + 0 /*offsetof(AECHARINDEX, nLine)*/, 3 /*DT_DWORD*/);
      var nCharInLine2=AkelPad.MemRead(lpCharIndex2 + (_X64?16:8) /*offsetof(AECHARINDEX, nCharInLine)*/, 3 /*DT_DWORD*/);
      var nLine2=AkelPad.MemRead(lpCharIndex2 + 0 /*offsetof(AECHARINDEX, nLine)*/, 3 /*DT_DWORD*/);

      if (nLine1 == nLine2 && nCharInLine1 == nCharInLine2)
        return 0;
      if (nLine1 < nLine2 || (nLine1 == nLine2 && nCharInLine1 < nCharInLine2))
        return -1;
      return 1;
}

function GetLangString(nStringID)
{
      var nLangID=AkelPad.GetLangId(1 /*LANGID_PRIMARY*/);

      if (nLangID == 0x19) //LANG_RUSSIAN
      {
        if (nStringID == 0)
          return "\u041F\u043E\u0434\u0441\u0432\u0435\u0447\u0435\u043D\u043E\u0020\u0441\u0020\u043F\u043E\u043C\u043E\u0449\u044C\u044E\u0020\u0441\u043A\    u0440\u0438\u043F\u0442\u0430";
        if (nStringID == 1)
          return "\u0434\u043B\u044F AkelPad";
        if (nStringID == 2)
          return "\u041A\u043E\u0434\u0020\u043F\u043E\u043C\u0435\u0449\u0435\u043D\u0020\u0432\u0020\u0431\u0443\u0444\u0435\u0440\u0020\u043E\u0431\u043C\    u0435\u043D\u0430\u002E";
      }
      else
      {
        if (nStringID == 0)
          return "Highlighted with script";
        if (nStringID == 1)
          return "for AkelPad";
        if (nStringID == 2)
          return "Code has been placed in clipboard.";
      }
      return "";
}

заменить в коде "c ode" на "code"

RunScript...vbs - Запуск скриптов

Andrey_A — Tue, 13 Aug 2019 16:40:31 GMT

Запуск не AkelPad'овского скрипта
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Код

' RunScript.vbs
'========================   Описание   =====================================
' Запуск не AkelPad'овского скрипта (vbs, js, au3, ahk, hta, bat, ...)
'========================   Описание   =====================================
' без параметров - Запуск скрипта открытого на редактирование
' любой параметр - Запуск скрипта, путь которого находится в буфере обмена
'========================   Примеры   ======================================
' -"Запуск любого скрипта    Ctrl+Alt+W" Call("Scripts::Main", 1, "RunSсript.vbs")
' -"Запуск скрипта (путь из буфера)" Call("Scripts::Main", 1, "RunSсript.vbs",`"1"`)

' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          2.2 (01.07.2011 - 07.08.2019)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-397-1176-16-1333779707
'===========================================================================
With AkelPad If .GetEditWnd = 0 Then WScript.Quit
  .Include("Functions.vbs")
  If WScript.Arguments.Count > 0 Then
    File = .GetClipboardText
  Else
    File = .GetEditFile(0) : cmd 4105
  End If
  If Len(File) = 0 Then WScript.Quit
  Param = ""
  Ext = LCase(.GetFilePath(File, 4))
  Select Case Ext
    Case "vbs", "js"
      If FFExists(.GetAkelDir(5) & "\" & GetFF(File, 3), 1) Then .Call "Scripts::Main", 1, GetFF(File, 3) : WScript.Quit
  End Select
  Select Case Ext
    Case "au3", "au8", "ahk", "a3x"
      Select Case Ext
        Case "au3", "au8", "a3x" K = 49
        Case "ahk" K = 48
      End Select
      Program= GetPath(ReadOption("IMAGE", "Program" & K, 3))
    Case "bat", "cmd"
      Program = ""
      Call CreateObject("WScript.Shell").Run(File)
    Case "js"
      Program = GetPath("%WINDIR%\System32\wscript.exe")
      ' Program = GetPath("%WINDIR%\System32\cscript.exe")
    Case "hta"
      Program = GetPath("%WINDIR%\System32\mshta.exe")
    Case "htm", "html", "txt", "mht", "xps", "mspx", "xml"
      Program = GetPath("%WINDIR%\hh.exe") : Param = " -800"
    Case Else
      Program = GetPath("%WINDIR%\System32\wscript.exe")
  End Select
  If Not FFExists(Program, 1) Then WScript.Quit
  Call CreateObject("WScript.Shell").Run(Chr(34) & Program & Chr(34) & Param & Chr(32) & Chr(34) & File & Chr(34))
End With

RenameFileDialog.js - Переименование текущего файла

Andrey_A — Mon, 12 Aug 2019 23:56:56 GMT

Переименование текущего файла
Используется CommonFunctions.js - "библиотека" для работы с WinFS

Доступно только для пользователей

Код

/// RenameFileDialog.js
///Rename current editing file with dialog
///Переименование текущего файла
// http://tc-image.3dn.ru/forum/9-214-778-16-1332777318
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=1584#1584
// Version: 2.9 (2012.11.22)
// Author: VladSh
//
// Аргумент -ext (1/0) - по умолчанию (1) отображает в окошке расширение, (0) - не отображает
// -"RenameFile..." Call("Scripts::Main", 1, "RenameFileDialog.js", `"-ext=0"`)  - меняет только имя файла
//
//  - если необходимо заменить имя файла с расширением, то необходимо в окошке дописать к имени файла новое расширение;
//  - если необходимо удалить расширение, то после имени файла достаточно поставить точку

var hMainWnd = AkelPad.GetMainWnd();

var fileNameFull = AkelPad.GetEditFile(0);
if (fileNameFull)  //File already exist
{
  if (! AkelPad.Include("CommonFunctions.js")) WScript.Quit();

  var useExt = AkelPad.GetArgValue("ext", 1);

  var File = SeparateFile(fileNameFull);
  var extInfo = "";

  var fileSelect;
  if (useExt == true && File.ext)
   fileSelect = File.name + "." + File.ext;
  else
  {
   fileSelect = File.name;
   if (File.ext) extInfo = " для *." + File.ext;
  }

  var pScriptName = WScript.ScriptName;
  var Prompt = "Новое имя" + extInfo + ":";
  var fileSelectNew = "";
  var fileNameNew = "";
  var fso;
  var fileExist;

  if (hMainWnd)
  {
   fso = new ActiveXObject("Scripting.FileSystemObject");

   do
   {
    fileSelectNew = AkelPad.InputBox(hMainWnd, "Переименование файла", Prompt, fileSelect);
    if (fileSelectNew)
    {
     fileSelectNew = CorrectFileName(fileSelectNew);   //Remove special symbols
     if (useExt == true || File.ext == "" || fileSelectNew.lastIndexOf(".") != -1)
      fileNameNew = fileSelectNew;
     else
      fileNameNew = fileSelectNew + "." + File.ext;

     var fileNameFullNew = File.path + fileNameNew;

     if (fileSelectNew != "" & (fileNameFullNew != fileNameFull))
     {
      fileExist = fso.FileExists(fileNameFullNew);
      if (fileExist == false)       //Check already newFileName existent
      {
       var nSelStart = AkelPad.GetSelStart();
       var nSelEnd = AkelPad.GetSelEnd();
       var curFileFormat = getFileFormat(AkelPad.GetEditWnd());

       AkelPad.Command(4324);   //Close editing file

       if (AkelPad.GetEditFile(0) != fileNameFull)   //Check noCANCEL click for changed document!
       {
        var Err;
        //Rename file
        try {fso.MoveFile(fileNameFull, fileNameFullNew);}
        catch(e)
        {
         Err = e;
         fileNameFullNew = fileNameFull;
        }

        if (fso.FileExists(fileNameFullNew) == true)
        {
         //Open file
         AkelPad.OpenFile(fileNameFullNew, 0, curFileFormat.cp, curFileFormat.BOM);

         //Recovery selection
         AkelPad.SetSel(nSelStart, nSelEnd);
        }
        if (Err)
        {
         if (0x100000000 + Err.number == 0x800a0046)
          AkelPad.MessageBox(hMainWnd, "Недостаточно прав или файл заблокирован другим приложением!", "AkelPad -> " + WScript.ScriptName, 48);
         else
          throw Err;
        }
       }
      }
     else
     {
      Prompt = "Файл '" + fileNameNew + "' уже существует! Введите другое имя файла" + extInfo + ":";
     }
    }
   }
   else
   {
    break;
   }
  }
   while (fileExist);
  }
}
else     //File is new - try new document save
  AkelPad.Command(4106)

openFileIn.js - Открыть файл в других приложениях

Andrey_A — Wed, 07 Aug 2019 11:50:46 GMT

Открыть файл в других приложениях
Доступно только для пользователей

Код

/// openFileIn.js
// http://tc-image.3dn.ru/forum/9-244-825-16-1332877697
// http://akelpad.sourceforge.net/forum/viewtopic.php?p=9927#9927

// (c) Infocatcher 2010-2011
// version 0.1.4 - 2011-02-21

//===================
// Открыть файл в других приложениях
// Open file in other application

// Usage:
//   Call("Scripts::Main", 1, "openFileIn.js", '"appID" "%f"')
// In "URL menu":
//   Call("Scripts::Main", 1, "openFileIn.js", '"appID" "%u"')
// Disable mappings:
//   Call("Scripts::Main", 1, "openFileIn.js", '"appID" "%f" -mappings=false')
//===================

//== Settings begin
// You can use openFileIn-options.js file for override or tweak settings
var mappings = {
    // Only for applications marked as 'isBrowser: true'
    // Example:
    // "D:\\Site\\": "http://localhost/",
    // "D:\\AnotherSite\\": "http://example.com/"
};
var appsData = {
    // Example:
    //    "appID": {
    //  paths: [
    //   "c:\\path\\to\\app.exe",
    //   "%EnvVar%\\another\\path\\to\\app.exe"
    //  ],
    //  args: "-file:%f -line:%l",
    //  isBrowser: true
    //    }
    "Total Commander": {
     paths: [
      "%COMMANDER_PATH%\\TOTALCMD.EXE",
      "%AkelDir%\\..\\totalcmd\\TOTALCMD.EXE",
      "%AkelDir%\\..\\Total Commander\\TOTALCMD.EXE",
      "%__portable__%\\totalcmd\\TOTALCMD.EXE",
      "%ProgramFiles%\\totalcmd\\TOTALCMD.EXE",
      "%ProgramFiles%\\Total Commander\\TOTALCMD.EXE"
     ],
     args: "/O /S /T %f"
    },

    "Notepad": {
     paths: [
      "%SystemRoot%\\notepad.exe"
     ],
     args: "%f"
    },
    "Notepad++": {
     paths: [
      "%COMMANDER_PATH%\\..\\Notepad++\\notepad++.exe",
      "%AkelDir%\\..\\Notepad++\\notepad++.exe",
      "%__portable__%\\Notepad++\\notepad++.exe",
      "%ProgramFiles%\\Notepad++\\notepad++.exe"
     ],
     args: "%f -n%l"
    },
    "PSPad": {
     paths: [
      "%COMMANDER_PATH%\\..\\PSPad\\PSPad.exe",
      "%COMMANDER_PATH%\\..\\PSPad editor\\PSPad.exe",
      "%AkelDir%\\..\\PSPad\\PSPad.exe",
      "%AkelDir%\\..\\PSPad editor\\PSPad.exe",
      "%ProgramFiles%\\PSPad\\PSPad.exe",
      "%ProgramFiles%\\PSPad editor\\PSPad.exe"
     ],
     args: "%f"
    },
    "EmEditor": {
     paths: [
      "%COMMANDER_PATH%\\..\\EmEditor\\EmEditor.exe",
      "%AkelDir%\\..\\EmEditor\\EmEditor.exe",
      "%ProgramFiles%\\EmEditor\\EmEditor.exe"
     ],
     args: "%f"
    },

    "Internet Explorer": {
     paths: [
      "%ProgramFiles%\\Internet Explorer\\iexplore.exe"
     ],
     args: "%f",
     isBrowser: true
    },
    "Firefox": {
     paths: [
      "%ProgramFiles%\\Mozilla Firefox\\firefox.exe",
      "%COMMANDER_PATH%\\..\\FirefoxPortable\\FirefoxPortable.exe",
      "%AkelDir%\\..\\FirefoxPortable\\FirefoxPortable.exe"
     ],
     args: "%f",
     isBrowser: true
    },
    "Opera": {
     paths: [
      "%ProgramFiles%\\Opera\\opera.exe",
      "%COMMANDER_PATH%\\..\\OperaUSB\\opera.exe",
      "%COMMANDER_PATH%\\..\\Opera\\opera.exe",
      "%AkelDir%\\..\\OperaUSB\\opera.exe",
      "%AkelDir%\\..\\Opera\\opera.exe"
     ],
     args: "%f",
     isBrowser: true
    },
    "Google Chrome": {
     paths: [
      "%LocalAppData%\\Google\\Chrome\\Application\\chrome.exe",
      "%UserProfile%\\Local Settings\\Application Data\\Google\\Chrome\\Application\\chrome.exe",
      "%UserProfile%\\Local Settings\\Application Data\\Bromium\\Application\\chrome.exe",
      "%COMMANDER_PATH%\\..\\GoogleChromePortable\\GoogleChromePortable.exe",
      "%AkelDir%\\..\\GoogleChromePortable\\GoogleChromePortable.exe"
     ],
     args: "%f",
     isBrowser: true
    },
    "Safari": {
     paths: [
      "%ProgramFiles%\\Safari\\Safari.exe",
      "%COMMANDER_PATH%\\..\\SafariPortable\\SafariPortable.exe",
      "%AkelDir%\\..\\SafariPortable\\SafariPortable.exe"
     ],
     args: "%f",
     isBrowser: true
    }
};
//== Settings end

var optionsPath = WScript.ScriptFullName.replace(/(\.[^.]+)?$/, "-options$&");
var fso = new ActiveXObject("Scripting.FileSystemObject");
if(fso.FileExists(optionsPath))
    eval(AkelPad.ReadFile(optionsPath));

var allowMappings = getArg("mappings", true);

var wsh = new ActiveXObject("WScript.Shell");
var akelDir = AkelPad.GetAkelDir();

if(WScript.Arguments.length >= 2) {
    var app = WScript.Arguments(0);
    var file = WScript.Arguments(1);
    if(app in appsData) {
     var appData = appsData[app];
     var path = getPath(appData.paths);
     if(path) {
      if(appData.isBrowser) {
       for(var p in mappings) {
        var pl = p.length;
        if(file.substr(0, p.length) == p) {
         file = mappings[p] + file.substr(pl).replace(/\\/g, "/");
         break;
        }
       }
      }
      var args = file
       ? appData.args
        .replace(/%f/g, '"' + file + '"')
        .replace(/%l/g, getLine())
       : appData.args
        .replace(/\s*\S*%f\S*\s*/g, " ")
        .replace(/\s*\S*%l\S*\s*/g, " ");
      var cmdLine = ('"' + path + '" ' + args).replace(/\s+$/, "");
      try {
       wsh.Exec(cmdLine);
      }
      catch(e) {
       // Windows Vista/7 and admin rights required
       //WScript.Echo(e.name + "\n" + e.message);
       new ActiveXObject("Shell.Application").ShellExecute(path, args, "" /*directory*/, "runas");
      }
     }
     else {
      warn(app + " not found!\n\n" + appData.paths.join("\n"));
     }
    }
    else {
     warn("Application with id \"" + app + "\" not found in database!");
    }
}
else {
    warn('Wrong arguments!\nUsage:\nCall("Scripts::Main", 1, "' + WScript.ScriptName + '", \'"appID" "%f"\')');
}
function getPath(paths) {
    for(var i = 0, l = paths.length; i < l; i++) {
     var path = wsh.ExpandEnvironmentStrings(paths[i].replace(/^%AkelDir%/, akelDir));
     if(fso.FileExists(path))
      return path;
    }
    return "";
}
function getLine() {
    var hWndEdit = AkelPad.GetEditWnd();
    var wrpLine = AkelPad.SendMessage(hWndEdit, 1078 /*EM_EXLINEFROMCHAR*/, 0, AkelPad.GetSelStart());
    var unwrpLine = AkelPad.SendMessage(hWndEdit, 3143 /*AEM_GETUNWRAPLINE*/, wrpLine, 0);
    return unwrpLine + 1;
}
function warn(msg) {
    AkelPad.MessageBox(AkelPad.GetMainWnd(), msg, WScript.ScriptName, 48 /*MB_ICONEXCLAMATION*/);
}

function getArg(argName, defaultVal) {
    var args = {};
    for(var i = 0, argsCount = WScript.Arguments.length; i < argsCount; i++)
     if(/^[-\/](\w+)(=(.+))?$/i.test(WScript.Arguments(i)))
      args[RegExp.$1.toLowerCase()] = RegExp.$3 ? eval(RegExp.$3) : true;
    getArg = function(argName, defaultVal) {
     argName = argName.toLowerCase();
     return typeof args[argName] == "undefined" // argName in args
      ? defaultVal
      : args[argName];
    };
    return getArg(argName, defaultVal);
}

SwitchSpecialChar.vbs - Переключение показа спец символов

Andrey_A — Tue, 16 Jul 2019 18:09:06 GMT

Переключение между отображением специальных символов
Используется скрипт FunctionsINIRW.vbs - Функции чтения и записи из INI файла

Доступно только для пользователей

Code

' SwitchSpecialChar.vbs
'========================   Описание   =====================================
' Переключение между отображением специальных символов
'========================   Примеры   ======================================
' -"Показать специальные символы (по кругу)" Call("Scripts::Main", 1, "SwitchSpecialChar.vbs")

' используется FunctionsINIRW.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          1.1 (11.09.2012 - 13.09.2012)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-650-3191-16-1347435910
'===========================================================================
P = 0 : If WScript.Arguments.Count > 0 Then P = CInt(WScript.Arguments(0))
With AkelPad Call .Include("FunctionsINIRW.vbs") : FileSetting = WScript.ScriptFullName
Plug = "SpecialChar::Main" : PLS = "SpecialChar::Settings"
Value = CInt(ReadINI(FileSetting, "Argument", "Param")) + 1
sc = .IsPluginRunning(Plug) : If sc = 0 Then Call .CallEx(4, Plug)
Call .Call(PLS, 1, "1,2,3,4,5,6,7,8", "0", "0", 0, 0)
Select Case Value
Case 1 Call .Call(PLS, 1, "1,2,3,4,5,6,7", "0", "0", -1, -1) ' специальные символы
Case 2 Call .Call(PLS, 1, "1,2,3,4,5,6", "0", "0", -1, -1) ' пробелы и табуляции
Case 3 Call .Call(PLS, 1, "3,7", "0", "0", -1, -1) ' новая строка и перенос строки
Case 4 Call .Call(PLS, 1, "8", "0", "0", -1, -1) ' линия отступа
Case 5 Call .CallEx(4, Plug) ' отключение плагина
End Select

If Value = 5 Then Value = 0
Call WriteINI(FileSetting, "Argument", "Param", Value)
End With
WScript.Quit

[Argument]
Param=0

ReturnsTabs.vbs - Возвращает N вкладок

Andrey_A — Sat, 13 Jul 2019 13:48:32 GMT

Возвращает заданное число закрытых вкладок
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Код

' ReturnsTabs.vbs
'========================   Описание   =====================================
' Возвращает заданное число закрытых вкладок
'========================   Параметры  =====================================
' N - число возвращаемых вкладок (по умолчанию N=2)
' если N=-1 - выводится диалог ввода

' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          1.5 (25.09.2011 - 26.12.2014)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-394-1173-16-1333738852
'===========================================================================
With AkelPad If .GetEditWnd = 0 Then WScript.Quit
   .Include("Functions.vbs") : MainWnd = .GetMainWnd() : N = 2 : If WScript.Arguments.Count > 0 Then N = CInt(WScript.Arguments(0))
   If N = -1 Then
     N = .InputBox(.GetMainWnd, "Вернуть вкладки", "Введите число возвращаемых вкладок", "5")
     If IsEmpty(N) Or Not IsNumeric(N) Then WScript.Quit
   End If
   If Len(N) = 0 Then WScript.Quit
   SetRedraw MainWnd, False
   If .GetEditWnd() = 0 Then N = N - 1
   For ii = 1 To N + 1 : Call .Command(5001 + ii) : Next
   SetRedraw MainWnd, True
End With

getSpellCheck.vbs - Проверка орфографии с помощью MS Word

Andrey_A — Fri, 17 May 2019 20:34:27 GMT

Проверка в выделенном орфографии слов с помощью Microsoft Word
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Код

' getSpellCheck.vbs
'========================   Описание   =====================================
' Проверка в выделенном орфографии слов с помощью Microsoft Word
' Если ничего не выделено, проверяется весь текст
' Процесс проверки отображается в заголовке окна
'========================   Описание   =====================================
' 1-й параметр:
'   1 - проверяются русские слова (по умолчанию)
'   2 - возможно появятся другие варианты ...
' 2-й параметр:
'   1 - ошибочные слова извлекаются в другую вкладку (по умолчанию)
'   2 - ошибочные слова отмечаются разным маркером
'   3 - ошибочные слова отмечаются маркером заданным в 3-м параметре "#FFFFFF|#000000" (цвет текста|цвет фона)
'========================   Примеры   ======================================
' -"Проверить орфографию русских слов документа, извлечь ошибочные слова в другую вкладку" Call("Scripts::Main", 1, "getSpellCheck.vbs")
' -"Проверить орфографию русских слов документа, отметить маркерами ошибочные слова" Call("Scripts::Main", 1, "getSpellCheck.vbs", `1 2`)
' -"Проверить орфографию русских слов документа, отметить заданным маркером ошибочные слова" Call("Scripts::Main", 1, "getSpellCheck.vbs", `1 3 "#FFC1C1|#A54700"`)
'=======================   Дополнение   ====================================
' Добавить свои словари .DIC можно в настройках Microsoft Word
' Можно воспользоваться дополнительным словарём \Plugs\SpellCheck\CUSTOM.DIC
' Для добавления своих слов при проверке воспользуйтесь скриптом SpellCheck.js
' Слова добавляются в файл %APPDATA%\Microsoft\UProof\CUSTOM.DIC (C:\Users\Вася\AppData\Roaming\Microsoft\UProof\CUSTOM.DIC -Microsoft Word 2007)
' В других версиях возможно другой путь - его можно узнать в настройках правописания

' Можно подключить свои слова, которые будут считаться правильными
' В папке со скриптом в файле getSpellCheck.dic каждое слово прописывается с новой строки

' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          1.2 (18.06.2017 - 07.07.2017)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-1053-18676-16-1497789204
'===========================================================================
With AkelPad If .GetEditWnd = 0 Then WScript.Quit
  .Include("Functions.vbs") : tTxt = .GetSelText()
  If Len(tTxt) = 0 Then tTxt = .GetTextRange(0, -1)
  If Len(tTxt) = 0 Then Wscript.Quit

  On Error Resume Next
  Set oWD = CreateObject("Word.Application")
  If Err.Number <> 0 Then MsgBox "Microsoft Word не установлен" , vbOKOnly , "Ошибка" : QuitWord : WScript.Quit : End If
  oWD.Visible = False
  oWD.Documents.Add "", 0, 0

  Mode = 1 : Flag = 1 : Color = "" : k = 0 : All = 0 : Count = 0 : i = 0 : nDIC = 0 : SetTitle
  With WScript Cnt = .Arguments.Count
    If Cnt > 0 Then
      Mode = CInt(.Arguments(0))
      If Cnt > 1 Then
        Flag = CInt(.Arguments(1)) : If Cnt > 2 Then Color  = .Arguments(2)
      End If
    End If
  End With

  Select Case Mode
    Case 1
      ' aText = RegExpSearchPlus(tTxt, "[а-яё]+", 1, 1, 1, "6>2")
      aText = RegExpSearchPlus(tTxt, "([а-яё]+[a-z-]?[а-яё]+)", 1, 1, 1, "6>2")
    Case 2
      ' aText = RegExpSearchPlus(tTxt, "([a-z]+[а-яё-]?[a-z]+)", 1, 1, 1, "6>2")
    Case 3
  End Select
  All = Ubound(aText)
  If All < 1 Then MsgBox "Искомых слов не найдено" , vbOKOnly , "Ошибка" : QuitWord : WScript.Quit : End If

  SetTitle
  aText = DelDublicateArr(aText)

  If InStr(Color, "|") > 0 Then : aColor = Split(Color, "|") : Flag = 3 : End If

  If Flag > 1 Then
    IsCoderPlugin
    If Flag = 2 Then Dim T(123), F(123) : ArrayMarker : End If
  End If

  Set oSys = .SystemFunction : hMainWnd = AkelPad.GetMainWnd : Count = Ubound(aText)

  tmp = .GetAkelDir(5) & "\getSpellCheck.dic" ' добавление своего словаря
  If FFExists(tmp, 1) Then
    sDIC = .ReadFile(tmp)
    If Len(sDIC) > 0 Then
      nDIC = 1
      sDIC = vb & sDIC & vb
    End If
  End If

  For i = 0 To Count
    Result = oWD.CheckSpelling(aText(i))
    If Not Result Then
      tmp = True
      If nDIC = 1 Then
        If InStr(sDIC,vb & aText(i) & vb) > 0 Then tmp = False
      End If
      If tmp Then
        Select Case Flag
          Case 1
            Text = Text & aText(i) & vb
          Case 2
            m = i - Int(i/123)*123 : .Call CF, 2, T(m), F(m) , 0, 0, i + 1, aText(i)
          Case 3
            .Call CF, 2, aColor(0), aColor(1) , 0, 0, i + 1, aText(i)
        End Select
        k = k + 1
      End If
    End If
    SetTitle
  Next
  If k>0 Then
    If Flag = 1 Then ' в новой вкладке
      CreateNewTab : SetRedraw .GetEditWnd, False
      .ReplaceSel(Text) : ScrolEnd : .SetSel 0, 0
      oWD.Quit : Set oWD=Nothing : RecoveTitle : EndRedraw
    End If
  Else
    Wscript.Echo "Орфографических ошибок не найдено"
  End If
End With
QuitWord
WScript.Quit

Sub SetTitle
  oSys.Call "User32::SetWindowTextW", hMainWnd, "getSpellCheck.vbs :: Найдено: " & All & " :: Без повторов: " & Count & " :: Проверено: " & i & " :: Выполнено: " & Round(i *100/ Count) & "% :: Ошибки: " & k & "   "
End Sub

Sub RecoveTitle
  oSys.Call "User32::SetWindowTextW", hMainWnd, "AkelPad"
End Sub

Sub QuitWord : oWD.Quit : Set oWD=Nothing : RecoveTitle : End Sub

DeletePhrasesInText.vbs - Удаление строк с фразой

Andrey_A — Fri, 12 Apr 2019 15:46:28 GMT

Удаление/замещение строк содержащих/не содержащих фразу в выделенном. А так же добавление к найденным строкам...
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Код

' DeletePhrasesInText.vbs
'========================   Описание   =====================================
' Удаление/замещение строк содержащих/не содержащих фразу в выделенном. А так же добавление к найденным строкам...
' (если ничего не выделено преобразовывается весь текст)
' В диалоговом окне вводится фраза для поиска удаления строк
' При втором параметре =2 выделенное является фразой, строки ищутся во всём тексте
'=======================   Параметры  ======================================
' 1-й параметр:
'      0 - замещение пустой строкой строк содержащих фразу с учётом регистра (по умолчанию)
'      1 - замещение пустой строкой строк содержащих фразу без учёта регистра
'      2 - удаление строк содержащих фразу с учётом регистра
'      3 - удаление строк  содержащих фразу без учёта регистра
'
'      4 - замещение пустой строкой строк НЕ содержащих фразу с учётом регистра
'      5 - замещение пустой строкой строк НЕ содержащих фразу без учёта регистра
'      6 - удаление строк НЕ содержащих фразу с учётом регистра
'      7 - удаление строк НЕ содержащих фразу без учёта регистра
'
'
'      8 - добавление в начало строк содержащих фразу с учётом регистра (по умолчанию)
'      9 - добавление в начало строк строк содержащих фразу без учёта регистра
'    10 - добавление в начало строк строк НЕ содержащих фразу с учётом регистра
'    11 - добавление в начало строк НЕ содержащих фразу без учёта регистра
'        (вставка берётся из условий 3-го параметра)
'
'    12 - добавление в конец строк содержащих фразу с учётом регистра (по умолчанию)
'    13 - добавление в конец строк строк содержащих фразу без учёта регистра
'    14 - добавление в конец строк строк НЕ содержащих фразу с учётом регистра
'    15 - добавление в конец строк НЕ содержащих фразу без учёта регистра
'        (вставка берётся из условий 3-го параметра)
'
'
' 2-й параметр:
'      0 - фраза берётся из буфера
'      1 - фразой является слово под курсором
'      2 - фразой является выделенное
'      3 - фраза вводится в диалоге
'      "фраза" - в параметре прописывается фраза для поиска
'
' 3-й параметр: текст для вставки
'      0 - текст берётся из буфера
'      1 - текст является слово под курсором
'      2 - текст является выделенное
'      3 - текст вводится в диалоге
'      "текст" - в параметре прописывается текст для вставки
'
'========================   Примеры   ======================================
' -"Замещение строк содержащих выделенную фразу (учитывать регистр)" Call("Scripts::Main", 1, "DeletePhrasesInText.vbs", `0 2`)
' -"Замещение строк содержащих выделенную фразу (без регистра)" Call("Scripts::Main", 1, "DeletePhrasesInText.vbs", `1 2`)
' -"Вставить текст в начало найденных строк, содержащих фразу (фраза и текст вводится диалогах)" Call("Scripts::Main", 1, "DeletePhrasesInText.vbs", `9 3 3`)

' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          1.8 (07.06.2012 - 10.03.2016)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-494-2010-16-1339069198
'===========================================================================
With AkelPad If .GetEditWnd = 0 Then WScript.Quit
  .Include("Functions.vbs") : Sum = 0 : RG = 0 : A = 0 : S = 1 : V = 0 : Curs = .GetSelStart : Text = .GetSelText : sText = Text
  Cnt = WScript.Arguments.Count
  If Cnt > 0 Then
    RG = CInt(WScript.Arguments(0))
    If Cnt > 1 Then
      P = WScript.Arguments(1) : S = 0
      Select Case P
        Case "0" FStr = .GetClipboardText
        Case "1" FStr = GetWord : Text = ""
        Case "2" FStr = sText : Text = ""
        Case "3" S = 1
        Case Else FStr = P
      End Select
      If Cnt > 2 Then
        P = WScript.Arguments(2)
        Select Case P
          Case "0" sLine = .GetClipboardText
          Case "1" sLine = GetWord : Text = ""
          Case "2" sLine = sText : Text = ""
          Case "3" V = 1
          Case Else sLine = P
        End Select
      End If
    End If
  End If
  Select Case RG
    Case 0, 1 T1 = "Замещение строк" : S1 = "Введите фразу для поиска строк. Пустой строкой" & vb & "будут заменены строки, в которых есть эта фраза."
    Case 4, 5 T1 = "Замещение строк" : S1 = "Введите фразу для поиска строк. Пустой строкой" & vb & "будут заменены строки, в которых нет этой фразы."
    Case 2, 3 T1 = "Удаление строк" : S1 = "Введите фразу для поиска строк." & vb & "Будут удалены строки, в которых есть эта фраза."
    Case 6, 7 T1 = "Удаление строк" : S1 = "Введите фразу для поиска строк." & vb & "Будут удалены строки, в которых нет этой фразы."
    Case 8, 9 T1 = "Вставка в начало строк" : S1 = "Введите фразу для поиска строк. В начало строк, в" & vb & "которых есть эта фраза, будет вставлен заданный текст."
    Case 10, 11 T1 = "Вставка в начало строк" : S1 = "Введите фразу для поиска строк. В начало строк, в" & vb & "которых нет этой фразы, будет вставлен заданный текст."
    Case 12, 13 T1 = "Вставка в конец строк" : S1 = "Введите фразу для поиска строк. В конец строк, в" & vb & "которых есть эта фраза, будет вставлен заданный текст."
    Case 14, 15 T1 = "Вставка в конец строк" : S1 = "Введите фразу для поиска строк. В конец строк, в" & vb & "которых нет этой фразы, будет вставлен заданный текст."
  End Select

  SetRedraw .GetEditWnd, False
  If Len(Text) = 0 Then : Text = .GetTextRange(0, -1) : A = 1  : End If
  If Len(Text) = 0 Then EndRedraw

  If S = 1 Then
    FStr = .InputBox(.GetMainWnd, T1, S1, "фраза")
    If IsEmpty(FStr) Then EndRedraw
  End If
  If Len(FStr) = 0 Then EndRedraw

  If V = 1 Then
    sLine = .InputBox(.GetMainWnd, T1, "Введите текст для вставки в найденные строки", "текст")
    If IsEmpty(sLine) Then EndRedraw
  End If
  If Cnt > 2 And Len(sLine) = 0 Then EndRedraw

  If A = 1 Then cmd 4157

  Txt = Split(Text, Chr(13)) : Txt2 = Txt
  Select Case RG : Case 1, 3, 5, 7, 9, 11, 13, 15 Txt2 = Split(LCase(Text), Chr(13)) : FStr = LCase(FStr) : End Select
  C = Ubound(Txt)
  For k = 0 To C
    Select Case RG
      Case 0, 1, 2, 3
        If InStr(Txt2(k), FStr) = 0 Then
          T = T & Txt(k) : If k <> C Then T = T & vb
        Else
          If (RG = 0 Or RG = 1) And k <> C Then T = T & vb
        End If
      Case 4, 5, 6, 7
        If InStr(Txt2(k), FStr) > 0 Then
          T = T & Txt(k) : If k <> C Then T = T & vb
        Else
          If (RG = 4 Or RG = 5) And k <> C Then T = T & vb
        End If
      Case 8, 9
        If InStr(Txt2(k), FStr) > 0 Then T = T & sLine & Txt(k) Else T = T & Txt(k) End If
        If k <> C Then T = T & vb
      Case 10,11
        If InStr(Txt2(k), FStr) = 0 Then T = T & sLine & Txt(k) Else T = T & Txt(k) End If
        If k <> C Then T = T & vb
      Case 12,13
        If InStr(Txt2(k), FStr) > 0 Then T = T & Txt(k) & sLine Else T = T & Txt(k) End If
        If k <> C Then T = T & vb
      Case 14,15
        If InStr(Txt2(k), FStr) = 0 Then T = T & Txt(k) & sLine Else T = T & Txt(k) End If
        If k <> C Then T = T & vb
    End Select
  Next
  .SendMessage .GetEditWnd, 3185, 3, True
  .ReplaceSel T : .SetSel Curs, Curs
  SaveEditFile : EndRedraw
End With

Invert_Revers.vbs - Перевёртывание выделения

Andrey_A — Fri, 12 Apr 2019 08:24:05 GMT

Инвертирование, перевёртывание выделения
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Код

' Invert_Revers.vbs
'========================   Описание   =====================================
' Инвертирование, перевёртывание выделения
'=========================  Параметр =======================================
' 1 - инвертирование выделения (по умолчанию)
' 2 - изменения порядка символов в строке на обратный
' 3 - инвертирование и изменения порядка символов в строке на обратный
'========================   Примеры   ======================================
'  "Реверс строк..."
'  {
'  -"Реверс выделенных строк" Call("Scripts::Main", 1, "Invert_Revers.vbs", `"1"`)
'  -"Изменение порядка символов в строке на обратный" Call("Scripts::Main", 1, "Invert_Revers.vbs", `"2"`)
'  -"Реверс и изменение порядка символов в строке на обратный" Call("Scripts::Main", 1, "Invert_Revers.vbs", `"3"`)
'   }

' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          1.6 (17.03.2011 - 25.12.2014)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-385-1160-16-1333717057
'===========================================================================
With AkelPad .Include("Functions.vbs") : SetRedraw .GetEditWnd, False
   .SendMessage .GetEditWnd, 3185, 3, True : tTxt = .GetSelText
   If Len(tTxt) = 0 Then : .SetSel 0, -1 : tTxt  = .GetSelText : End If
   If Len(tTxt) = 0 Then Wscript.Quit
   k = 1 : If WScript.Arguments.Count > 0 Then k = WScript.Arguments(0)
   nSelStart = .GetSelStart : nSelEnd = .GetSelEnd
   Select Case k
     Case 1 IText = Invert(tTxt)
     Case 2 IText = StrReverse(tTxt)
     Case 3 IText = Invert(StrReverse(tTxt))
   End Select

   .ReplaceSel IText : .SetSel nSelStart, nSelEnd
   SaveEditFile : EndRedraw
End With

Function Invert(Text)
   Txt = Split(Text, chr(13))
   If Ubound(Txt) > 0 Then
     For i = Ubound(Txt) To 0 Step - 1
       nText = nText & Txt(i)
       If i <> 0 Then nText = nText & vb
     Next
     Invert = nText
   Else
     Invert = Text
   End If
End Function

DelSymLine.vbs - Удаление с конца или с начала строк

Andrey_A — Thu, 11 Apr 2019 20:35:33 GMT

Удаление с конца или с начала выделенных строк определённого количества символов
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Код

' DelSymLine.vbs
'========================   Описание   =====================================
' Удаление с конца или с начала выделенных строк определённого количества символов
' (если ничего не выделено преобразовывается весь текст)
'========================  Параметры =======================================
' 1-й параметр:
'    0 - с конца строки
'    1 - с начала строки (по умолчанию)
' 2-й параметр:
'    количество удаляемых символов (по умолчанию 2 символа)
'    0 или без параметра - диалог ввода количества удаляемых символов
' 3-й параметр:
'    0 - не выделять строки после удаления (по умолчанию)
'    1 - выделять строки после удаления
'========================   Примеры   ======================================
' -"Удаление с начала строки 2 символа" Call("Scripts::Main", 1, "DelSymLine.vbs", `"1" "2"`)
' -"Удаление с конца строки 2 символа" Call("Scripts::Main", 1, "DelSymLine.vbs", `"0" "2"`)

' используется Functions.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          1.8 (16.04.2011 - 25.12.2014)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-353-1085-16-1333505169
'===========================================================================
m = 0 : k = 1 : sDel = 0 : sText = "" : n = 0
With WScript Cnt = .Arguments.Count
   If Cnt > 0 Then
     k = CInt(.Arguments(0))
     If Cnt > 1 Then
       sDel = CInt(.Arguments(1)) : If Cnt > 2 Then n = .Arguments(2)
     End If
   End If
End With

With AkelPad If .GetEditWnd = 0 Then WScript.Quit
   If sDel = 0 Then
     sDel = .InputBox(.GetMainWnd, WScript.ScriptName, "Введите количество удаляемых символов", "2")
     If Len(sDel) = 0 Or IsEmpty(sDel) Or Not IsNumeric(sDel)  Then WScript.Quit
   End If
   .Include("Functions.vbs")
   tTxt = .GetSelText : SetRedraw .GetEditWnd, False
   .SendMessage .GetEditWnd, 3185, 3, True
   If Len(tTxt) = 0 Then : .SetSel 0, -1 : tTxt = .GetSelText : End If
   If Len(tTxt) = 0 Then EndRedraw
   Txt = Split(tTxt, Chr(13))

   For i = 0 To Ubound(Txt)
     If Len(Txt(i)) > 0 Then
       If Len(Txt(i)) >= CInt(sDel) Then
         If k = 1 Then
           Txt(i) = Right(Txt(i), Len(Txt(i)) - sDel)
         Else
           Txt(i) = Left(Txt(i), Len(Txt(i)) - sDel)
         End If
       Else
           Txt(i) = ""
       End If
     End If
   Next

   .ReplaceSel Join(Txt, vbNewLine), n
   SaveEditFile : EndRedraw
End With

Различные действия с закладками

Andrey_A — Thu, 11 Apr 2019 20:33:31 GMT

Различные действия с закладками
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Код

' BookmarksPlus.vbs
'========================   Описание   =====================================
' Различные действия с закладками
'=======================   Дополнение   ====================================
' Проверяется загруженность плагина LineBoard, подгружает, если нет, чем избегает предупреждений
'=======================   Параметры  ======================================
' 1-й параметр:
'   0 - перейти к следующей закладке (по кругу)
'   1 - перейти к предыдущей закладке (по кругу)
'   2 - записать в буфер обмена строку номеров закладок (во 2-м параметре можно задать разделитель, по умолчанию запятая)
'   3 - установить закладки по списку номеров из буфера обмена (номера через запятую)
'   4 - сохранить закладки всех открытых документов в файл (во 2-м параметре путь файла сохранения)
'   5 - установить закладки открытым  документам, прописанным в файле (во 2-м параметре путь файла, из которого будут взяты закладки)
'   6 - заменить закладки открытым  документам, прописанными в файле (во 2-м параметре путь файла, из которого будут взяты закладки)
' Для 4 в 3-м параметре можно прописать кодировку сохраняемого файла (по умолчанию 1251)
  '
'========================    Примеры    ====================================
' -"Перейти к следующей закладке (по кругу)" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `0`)
' -"Перейти к предыдущей закладке (по кругу)" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `1`)
' -"Отправить в буфер обмена строку номеров закладок" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `2`)
' -"Отправить в буфер обмена строку номеров закладок, разделитель |" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `2 "|"`)
' -"Отправить в буфер обмена номера закладок, каждый с новой строки" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `2 "\n"`)
' -"Установить закладки по списку номеров из буфера обмена" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `"3"`)
' -"Сохранить закладки всех открытых документов в файл ListBookmarks.txt" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `4 "%a\AkelFiles\List\ListBookmarks.txt"`)
' -"Сохранить закладки всех открытых документов в файл ListBookmarks.txt" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `4 "%a\AkelFiles\List\ListBookmarks.txt" "65001"`)
' -"Установить закладки открытым  документам, прописанным в файле ListBookmarks.txt" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `5 "%a\AkelFiles\List\ListBookmarks.txt"`)
' -"Заменить закладки открытым  документам, прописанными в файле ListBookmarks.txt" Call("Scripts::Main", 1, "BookmarksPlus.vbs", `6 "%a\AkelFiles\List\ListBookmarks.txt"`)
'

' Автор:           Аверин Андрей
' Версия:          1.7 (20.01.2014 - 23.12.2014)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-919-8319-16-1390227268
'===========================================================================
Param = 2 : Delim = "," : nCode = 1251 : LM = "LineBoard::Main" : Cnt = WScript.Arguments.Count
If Cnt > 0 Then Param = CInt(WScript.Arguments(0))
If Cnt > 2 Then nCode = WScript.Arguments(2)

With AkelPad .Include("Functions.vbs")
   If .IsPluginRunning(LM) = 0 Then : Call .Call(LM,1)
   Select Case Param
     Case 0, 1, 2
       sBooks = GetListBookmarks()
       If Len(sBooks) > 0 Then
         aBooks = Split(sBooks, ",")
         uCount = Ubound(aBooks)
         nActiveLine = GetLineByIndex ' номер активной строки
         Select Case Param
           Case 0 ' переход вниз и по кругу
             If nActiveLine >= CInt(aBooks(uCount)) Then
               GoToLineN aBooks(0)
             Else
               .Call LM, 18
             End If
           Case 1 ' переход вверх и по кругу
             If nActiveLine<=CInt(aBooks(0)) Then
               GoToLineN aBooks(uCount)
             Else
               .Call LM, 19
             End If
           Case 2 ' отправить в буфер строку номеров закладок
             If Cnt > 1 Then
               Delim = WScript.Arguments(1)
               If Delim = "\n" Then Delim = vbNewLine
               sBooks = Replace(sBooks, ",", Delim)
             End If
             Call .SetClipboardText(sBooks)
         End Select
       End If
     Case 3 ' установить закладки - номера из буфера
       SetListBookmarks .GetClipboardText()
     Case 4
       If Cnt > 1 Then Call SaveTextFile(WScript.Arguments(1), GetAllTabListBookmarks(0, ""), nCode)
     Case 5, 6
       If Cnt > 1 Then Call GetAllTabListBookmarks(Param - 4, LCase(.ReadFile(GetPath(WScript.Arguments(1)))))
     Case 6
       If Cnt > 1 Then Call GetAllTabListBookmarks(2, LCase(.ReadFile(GetPath(WScript.Arguments(1)))))
     Case 7 ' установить закладку
       .Call LM, 15
     ' Case 8
     '
     ' Case 9
     '
     ' Case 10

   End Select
End With