[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Andrey_A, simup, ХарВик, chip642  
Associations.vbs - Ассоциация типов файлов с AkelPad
Andrey_AДата: Суббота, 11.08.2012, 23:27 | Сообщение № 1
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
Ассоциация типов файлов с AkelPad
Используется NirCmd.exe - файл можете скачать в теме: утилиты NirCmd
Библиотека значков для различных расширений - скачать Доступно только для пользователей AkelExtImage.dll

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

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



 
Andrey_AДата: Суббота, 11.08.2012, 23:44 | Сообщение № 2
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
Библиотека значков для различных расширений Доступно только для пользователей

Если кому-то нужно вставить ещё значки для конкретных расширений пишите - сделаем
Возможно кому-то понравится. Значки там выглядят так:



 
GGG8Дата: Суббота, 18.08.2012, 11:18 | Сообщение № 3
Подполковник

На сайте с: 28.02.2012
Город: Владимир
Сообщений: 114
Награды: 2
Репутация: 4
Спасибо за скрипт, скачал библиотеку, установил, попробовал всё работает - красота)))
 
Andrey_AДата: Воскресенье, 07.04.2013, 12:30 | Сообщение № 4
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
Ассоциация типов файлов с AkelPad
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах
Используется TCIMG.exe - файл можете скачать в теме: утилиты TCIMG

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


 
goldengeДата: Среда, 05.08.2020, 03:21 | Сообщение № 5
Сержант

На сайте с: 17.12.2017
Сообщений: 37
Награды: 0
Репутация: 0
Цитата Andrey_A ()
Ассоциация типов файлов с AkelPad

ошибку выбивает ассоциация в vbs

в конце после
Код
CreateObject("WScript.Shell").Run Chr(34) & PathTCIMG & Chr(34) & " regim=" & Replace(rFile, " ", "~~"), 2, True
End Sub

Sub CreateRegFile(rFile, rText)
  AkelPad.WriteFile rFile, rText, -1, 1251, True
End Sub
 
chip642Дата: Пятница, 14.08.2020, 06:02 | Сообщение № 6
Генералиссимус

На сайте с: 24.04.2013
Город: Москва
Сообщений: 1495
Награды: 62
Репутация: 58
goldenge, у меня посвежее Associations.vbs, протестируйте.

Код
' 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\
' используется TCIMG.exe

' Автор:           Аверин Андрей
' Версия:          1.8 (11.08.2012 - 24.04.2016)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-603-5938-16-1365323449
'====================   Изменяемые пути   ==================================
IcoDll = "\AkelExtImage.dll" ' библиотека значков для типов файлов
'===========================================================================
P = -1 : Titles = "Ассоциация типов файлов"
With WScript Cnt = .Arguments.Count
  If Cnt < 2 Then WScript.Quit
  P = .Arguments(0) : List = .Arguments(1)
End With
Select Case List
  Case "#"
    List = "tll,tcinfo,$$$,1st,AES-crypt,a3x,ac~,ahk,akelmenu,au3,autocomplete,ax~,b64,back,bak,bar,bat,bck,bkp,browse,cmd,cnf,cnfp,cn~,coder,conf,config,co~,cp~,crypt,da~,dl~,dr~,ex~,footer,gdb,gjlog,h,hhc,hhk,hhp,hta,htm,html,ie~,inc,ini,input,java,js,lang,list,lng,log,lsl,lst,lua,m3u,m3u8,main,manifest,me,mht,mnu,mosaic,nsm,oc~,old,org,param,pas,pec2bac,pk,pl,playlist,pls,pm,py,pyc,reg,ru,rus,russian,sc~,sout,swp,sys,tab,tcg,tch,tci,tcm,temp,tmp,toolbar,txt,url,uue,vbs,vlm,wbk,wpl,wsc,wsf,xxe"
End Select
With AkelPad .Include("Functions.vbs") : AP = GetExeAkel : MAkel = .GetFilePath(AP, 3)
  TCIMG = GetPath(ReadOption("IMAGE", "TCIMG", 3)) ' путь к TCIMG.exe, берётся из AkelPadImage.ini
  A = .GetAkelDir(0) : AP = Replace(AP, "\", "\\") : RP = A & "\AkelFiles\Regs\" : ICL = A & IcoDll
  
  If Not FFExists(RP, 2) Then CreateFolderInPath(RP)
  NoExt = ";a3x;ahk;au3;bat;cmd;gdb;hta;htm;html;js;mht;reg;sys;url;vbs;"
  Select Case P
    Case 0 Call CheckExt(List)
    Case 1 Call CheckExt(LCase(.GetFilePath(List, 4)))
    Case 2
      List = InputBox("Введите расширения, которые хотите ассоциировать с AkelPad (через запятую)", Titles, "txt,ini,inf")
      If Len(List) = 0 Or IsEmpty(List) Then WScript.Quit
      Call CheckExt(List)
  End Select
  CreateObject("WScript.Shell").Popup "Ассоциирование завершено!", 3, Titles, 64
End With

Sub CheckExt(Line)
  ar = Split(Line, ",")
  LenArr = Ubound(ar)
  If LenArr > 2 Then RunTCIMG "prgrs=x||Ассоциация типов файлов|Ассоциировано расширение ...|5|5|250|75", False
  For i = 0 To LenArr
    EL = LCase(ar(i))
    If Len(EL) > 0 Then
      If InStr(NoExt, ";" & EL & ";") = 0 Then
        CreateRegTextProg EL
      Else
        If Cnt > 2 Then
          If Not FFExists(ICL, 1) Then WScript.Quit
          CreateRegTextIcon EL
        Else
          WScript.Quit
        End If
      End If
      If LenArr > 2 Then RunTCIMG "prgrs=" & i & "|" & LenArr & "||Ассоциировано расширение " & EL, True
    End If
  Next
  RunTCIMG "prgrs=-1", False
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"
  CreateRegFile RF,Reg
  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"
  CreateRegFile RF,Reg
  RunRegFile RF
End Sub

Function GetIcon(IcExt)
  Select Case IcExt
    Case "txt" L = 0
    ' Case "bar" L = 1
    Case "hhp" L = 1
    Case "tch","manifest" L = 2
    Case "ini","tci","tll" 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","tcinfo" L = 25
    Case "conf","config","cnfp","cnf" L = 26
    Case "au3","a3x" L = 27
    Case "tcg" L = 28
    Case "tcm" L = 29
    Case "bat" L = 30
    Case "uue","xxe", "uue" L = 31
    Case "pec2bac","bak" ,"old","org","pk","swp","tmp","temp","wbk","ex~","dl~","oc~","co~","ac~","ax~","cn~","cp~","da~","dr~","ie~","sc~","bck","$$$","tmp","back","bkp" L = 32
    Case "crypt","AES-crypt" L = 33
    Case "hhk" L = 34
    Case "hhc" L = 35
    Case "mht","htm","html","url","gdb" L = 36
    Case Else L = 2
  End Select
  GetIcon = L
End Function

Sub RunRegFile(rFile)
  CreateObject("WScript.Shell").Run Chr(34) & TCIMG & Chr(34) & " regim=" & Replace(rFile, " ", "~~"), 2, True
End Sub

Sub RunTCIMG(Param,WaitOnReturn)
  CreateObject("WScript.Shell").Run Chr(34) & TCIMG & Chr(34) & " " & Replace(Param, " ", "~~"), 1, WaitOnReturn
End Sub

Sub CreateRegFile(rFile, rText)
  AkelPad.WriteFile rFile, rText, -1, 1251, True
End Sub
 
goldengeДата: Среда, 19.08.2020, 16:19 | Сообщение № 7
Сержант

На сайте с: 17.12.2017
Сообщений: 37
Награды: 0
Репутация: 0
chip642, спасибо вроде ассоциация есть что то сработало показало ok, а файл txt не открывается через akelpad как и прежде
 
  • Страница 1 из 1
  • 1
Поиск:

Интеллектуальные права и отказ от ответственности