| Single Post |
Topic: Онлайновый перевод (Google, Bing, Яндекс) |
| Author |
Message |
Andrey_A
|
 Posted: Sun Jan 02, 2011 11:28 Post subject: |
 |
|
Скрипт очень понравился, решил его привязать к AkelPad'у
Необходимо скрипт MarkerTextInEN-RU.vbs поместить в папку Scripts и на панели или в меню сделать кнопку. Путь к файлу EN-RU.hta изменить в скипте на свой. По аналогии сделать второй скрипт MarkerTextInRU-EN.vbs и раскомментировать WSH.SendKeys "{TAB}"
| Code: | ' MarkerTextInEN-RU.vbs
'======================== Описание ===========================
' Выделенный текст в AkelPad'е отправляет переводчику EN-RU.hta
' если текст не выделен, то выделяется весь документ
'======================== Пример ===========================
' -"Перевести выделенный текст EN --> RU" Call("Scripts::Main", 1, "MarkerTextInEN-RU.vbs") Icon("%a\AkelFiles\Plugs\ToolBar.dll",23)
'======================== Изменяемые пути ======================
Program = "%COMMANDER_PATH%\Scripts\TextWork\EN-RU.hta"
'==============================================================
Dim FSO, WSH, Program
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
hEditWnd = AkelPad.GetEditWnd()
Txt = RTrim(AkelPad.GetSelText())
if Len(Txt) = 0 Then
AkelPad.SetSel 0, -1
Txt = RTrim(AkelPad.GetSelText())
end if
AkelPad.SetClipboardText(Txt)
Program = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(Program))
WSH.Run Chr(34) & Program & Chr(34)
WScript.Sleep 1000
'WSH.SendKeys "{TAB}" раскомментировать для обратного перевода RU-->ENG
WSH.SendKeys "^(V)"
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit() |
|
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
