AkelPad

Code: Select all

var hMainWnd=AkelPad.GetMainWnd();
var oSys=AkelPad.SystemFunction();
var pArgLine=AkelPad.GetArgLine();

if (pArgLine.substr(0, 5).toUpperCase() == "GOTO:")
{
  AkelPad.TextFind(0, pArgLine.substr(5), 0x08000001 /*FRF_DOWN|FRF_CYCLESEARCH*/);
}
else
{
  if (oSys.Call("user32::GetKeyState", 0x11 /*VK_CONTROL*/) & 0x8000)
    AkelPad.Exec(""C:\\Program Files\\Mozilla Firefox\\firefox.exe" " + pArgLine);
  else
    oSys.Call("shell32::ShellExecute" + _TCHAR, hMainWnd, "open", pArgLine, 0, 0, 1 /*SW_SHOWNORMAL*/);
}

Code: Select all

' GotoMarkOrOpenUrl.vbs
'=======================   Описание   ======================================
' Переход по внутренним ссылкам документа или открытие ссылки в браузере
'=======================   Дополнение   ====================================
' с версии AkelPad 4.8.3. можно использовать внутренние ссылки в документе и осуществлять навигацию
' что для этого нужно сделать:
' 1. В настройках программы на вкладке "Редактор 2 в "Префиксы" добавьте goto:
' 2. В AkelPad.ini в секции [Options] пропишите UrlCommand=Call("Scripts::Main", 1, "GotoMarkOrOpenUrl.vbs", "%u")
' 3. В документе создайте внутреннюие ссылки в документе, к примеру goto:##1 в начале и в середине
' Так же можно настроить вызов обычной ссылки любым браузером
'===========================================================================
' используется Functions.vbs, FunctionsINITextRWS.vbs который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:           Аверин Андрей
' Версия:          1.0 (10.05.2013)
' Mail:            Averin-And@yandex.ru
' Site:            http://tc-image.3dn.ru/forum/9-846-6211-16-1368213090
'====================   Изменяемые пути   ==================================
With AkelPad
  .Include "Functions.vbs"
  URL = .GetArgLine()
  aT=Split(URL, ":")
  Select Case aT(0)
    Case "goto" EndLine : .TextFind 0, aT(1), &H00000001+&H08000000 : EndLine
    Case Else
      .Include "FunctionsINITextRWS.vbs"
      Program = GetPath(ReadINIText(.ReadFile(.GetAkelDir(0) & "\AkelPadImage.ini", 1), "Browser", "BrowserDefault"))
      If Len(Program) > 7 Then
        Pro = GetPathProcessName(Replace(GetOtherObjectFile(Program, 3), "Portable", ""))
        If Len(Pro) > 0 Then Program = Pro
        CreateObject("WScript.Shell").Run Chr(34) & Program & Chr(34) & Chr(32) & Chr(34) & URL & Chr(34)
      Else
        If .IsOldWindows() Then TCHAR = "A" Else TCHAR = "W" End If
       Call .SystemFunction().Call("shell32::ShellExecute" + TCHAR, .GetEditWnd(), "open", URL, 0, 0, 1)
      End If
  End Select
End With
Sub EndLine : E = PosEndLine : AkelPad.SetSel E,E : End Sub