View previous topic :: View next topic |
Author |
Message |
AVos002
Joined: 04 May 2010 Posts: 47
|
(Separately) Posted: Tue May 25, 2010 16:49 Post subject: |
|
|
Th: "Enter Enter Up Enter"
По нажатии на клавишу F11 выходит меню «Команды внешних модулей», курсор сразу уставновлен в нужной нам опции «EMenu», заходим туда - это первый «Enter».
Затем в меню «EMenu» необходимо выбрать опцию «Контекстное меню», и туда также заходим - это второй «Enter».
В меню «Контекстное меню» предлагается два способа отображения: «1. Графическое меню»; «2. Текстовое меню». Нам необходимо второе, поэтому нажимаем Up, после чего заходим в эту опцию - это первое «Up» и третий «Enter»;
Далее следует собственно «Контектсное меню», но в текстовом виде. За опцией отправить закреплен символ «ь» - и это финиш.
В свое время я пытался повестить на тот же макрос -> далее выбрать «Адресат», но там были какие то проблемы с передачей команды от модуля к модулю и поэтому на этом остановился. |
|
Back to top |
|
|
AVos002
Joined: 04 May 2010 Posts: 47
|
(Separately) Posted: Mon May 31, 2010 16:22 Post subject: |
|
|
Batya выручай, голова «пухнет» от того, что работатю в Total Commander и FARmanager одновлеменно. |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Mon May 31, 2010 18:05 Post subject: |
|
|
AVos002
vbs-скрипт:
Code: | '==============================================================
' Открытие нового сообщния MS Outlook с вложенным файлом
'
' Параметры:
' {путь к MS Outlook} {файл}
'
' Пример параметров при вызове из TC:
' "%%ProgramFiles%%\Microsoft Office\Office11\Outlook.exe" %P%N
'==============================================================
Option Explicit
Dim FSO, WSH, TCS, MSOutlook, File, Comment
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
MSOutlook = GetPath(WScript.Arguments(0))
File = GetPath(WScript.Arguments(1))
Comment = GetComment(File)
If Comment <> "" Then Comment = " " & Comment
CreateObject("TCScript.Helper").SetTextToClip FSO.GetFileName(File) & Comment
WSH.Run """" & MSOutlook & """ /a """ & File & """", 1, False
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit
Function GetPath(pPath)
GetPath = WSH.ExpandEnvironmentStrings(pPath)
End Function
Function GetComment(pPath)
Const CommFile = "descript.ion"
Dim lPath, lName, lText, lComm
lPath = FSO.GetParentFolderName(pPath)
lName = FSO.GetFile(pPath).Name
If Instr(lName, " ") > 0 Then lName = """" & lName & """"
If lPath <> "" Then lPath = lPath & "\"
If FSO.FileExists(lPath & CommFile) Then
lText = FSO.OpenTextFile(lPath & CommFile).ReadAll
lComm = Filter(Split(lText, vbNewLine), lName & " ", True, 1)
If UBound(lComm) > - 1 Then
GetComment = Replace(Mid(lComm(0), Len(lName) + 2), "В", "")
GetComment = Trim(Replace(GetComment, "\n", " "))
Else
GetComment = ""
End If
Else
GetComment = ""
End If
End Function
|
В скрипте используется Script Helper. _________________ Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Wed Jun 02, 2010 00:06; edited 4 times in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon May 31, 2010 21:14 Post subject: |
|
|
А как насчёт перейти на консольные утилиты? Например: 1, 2, 3, 4, 5, 6, 7, 8. |
|
Back to top |
|
|
AVos002
Joined: 04 May 2010 Posts: 47
|
(Separately) Posted: Tue Jun 01, 2010 00:03 Post subject: |
|
|
СПАСИБО Batya, но у меня при запуске этого скрипта «Windows Script Host» выдает следующее:
Строка: 11
Символ: 1
Ошибка: Недопустимое число аргументов или присвоение значения свойства: 'GetExtensionName'
Что, то я туплю (это уже не Windows Script Host, это уже я) |
|
Back to top |
|
|
AVos002
Joined: 04 May 2010 Posts: 47
|
(Separately) Posted: Tue Jun 01, 2010 00:14 Post subject: |
|
|
Flasher wrote: | А как насчёт перейти на консольные утилиты? Например: 1, 2, 3, 4, 5, 6, 7, 8. |
Спасибо Flasher, честно просмотрел все ссылки. Так и не понял... предложенные утилиты можно повесить на комбинацию клавишь в TotalCommander.
Мне не нужна функция сама по себе, она (функция) ценна как одна из функций TC. Если не сложно объясни в двух словах что могут эти утилиты (в английском я разбираюсь на уровне советской школы). |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Jun 01, 2010 09:21 Post subject: |
|
|
AVos002 wrote: | СПАСИБО Batya, но у меня при запуске этого скрипта «Windows Script Host» выдает следующее:
Строка: 11
Символ: 1
Ошибка: Недопустимое число аргументов или присвоение значения свойства: 'GetExtensionName'
Что, то я туплю (это уже не Windows Script Host, это уже я) |
Может это я туплю, но где в этом скрипте присутствует "GetExtensionName"? _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
AVos002
Joined: 04 May 2010 Posts: 47
|
(Separately) Posted: Tue Jun 01, 2010 09:44 Post subject: |
|
|
Я сам в ауте. Сейчас разбираюсь |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Jun 01, 2010 09:47 Post subject: |
|
|
AVos002 wrote: | Я сам в ауте. Сейчас разбираюсь |
С какими параметрами ты запускаешь этот скрипт?
Если у тебя первым параметром стоит %P%N, а прикрепить к новому письму пытаешься другой скрипт, то можешь попасть в подобный "просак". _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
AVos002
Joined: 04 May 2010 Posts: 47
|
(Separately) Posted: Tue Jun 01, 2010 13:57 Post subject: |
|
|
Batya wrote: | AVos002 wrote: | Я сам в ауте. Сейчас разбираюсь |
С какими параметрами ты запускаешь этот скрипт?
Если у тебя первым параметром стоит %P%N, а прикрепить к новому письму пытаешься другой скрипт, то можешь попасть в подобный "просак". |
Заранее прошу прощения за может быть допущенные ошибки, но у меня на этом скрипте следующие значения (в меню «Запуск»):
=== начало ================
Команда: C:\Program Files\Total Commander\Plugins\tcwhelp_b10\DemoScripts\Proba.vbs
Параметры: "c:\Program Files\Microsoft Office\Office12\Outlook.exe" %P%N
=== окончание ==============
Причем Параметры я записал ровно так, как указано в комментах к скрипту (с Path заключенным в кавычками), при запуске сохраняется наименование файла и комментарий (пока в абракадабре типа «Є®«®ЄҐ ®¬Ґа»), затем передается управление в MS Outlook и сразу выходит кртическое сообщение «Недопустимый аргумент командной строки. Проверьте используемый параметр.». |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Jun 01, 2010 14:15 Post subject: |
|
|
AVos002 wrote: | Команда: C:\Program Files\Total Commander\Plugins\tcwhelp_b10\DemoScripts\Proba.vbs | Без кавычек нужно с переменной (пробелы всегда надо учитывать) >> %COMMANDER_PATH%\Plugins\tcwhelp_b10\DemoScripts\Proba.vbs
Last edited by Flasher on Tue Jun 01, 2010 14:26; edited 1 time in total |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Jun 01, 2010 14:22 Post subject: |
|
|
AVos002 wrote: | Заранее прошу прощения за может быть допущенные ошибки, но у меня на этом скрипте следующие значения (в меню «Запуск»): |
Здесь, на первый взгляд, всё верно.
AVos002 wrote: | при запуске сохраняется наименование файла и комментарий (пока в абракадабре типа «Є®«®ЄҐ ®¬Ґа»), затем передается управление в MS Outlook и сразу выходит кртическое сообщение «Недопустимый аргумент командной строки. Проверьте используемый параметр.». |
С запуском MS Outlook, вроде, поправил. Проверь.
По поводу абракадабры комментариев - у тебя descript.ion в DOS-кодировке? _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
AVos002
Joined: 04 May 2010 Posts: 47
|
(Separately) Posted: Tue Jun 01, 2010 17:54 Post subject: |
|
|
Batya wrote: | С запуском MS Outlook, вроде, поправил. Проверь.
|
Batya я не врубился, что именно мне надо поправить?
Batya wrote: | По поводу абракадабры комментариев - у тебя descript.ion в DOS-кодировке?
|
Эта бодяга понятная, ранее я говорил, что работаю одновременно в FARmanager (F) и Total Commander (TC), так вот комментарии в F только в DOS-кодировке, а TC более гибкий и позволяет выбирать кодировку и поэтому, чтобы видеть комментарии везде выбрал DOS-кодировку. Как только я смогу реализовать все функции в TC я постепенно все Descript.ion перекодирую. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Jun 01, 2010 18:01 Post subject: |
|
|
AVos002 wrote: | что именно мне надо поправить? | Да просто скопировать отредактированный скрипт, заменить старый и пересохранить. |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|