как вставить короткое имя текущего файла в комстроку?

Столкнулись с проблемой в использовании макросов? Здесь можно получить помощь.
Post Reply
wolf
Posts: 1030
Joined: Fri 08 Apr, 2005 12:54
Location: Moscow

как вставить короткое имя текущего файла в комстроку?

Post by wolf »

независимо от режима панелей, понятно дело.
ошибка — считать, что фар для пользователей. (с) zg
Kildor
Posts: 1515
Joined: Wed 16 Mar, 2005 06:26
Location: Новосибирск
Been thanked: 1 time
Contact:

Post by Kildor »

V=panelitem(typePanel,Index,TypeInfo)
TypeInfo
Тип
Описание
1
String
Короткое имя
http://api.farmanager.com/ru/macro/macr ... tions.html
Ты мне не выкай!
«ФарФорум не для пользователей!»
Upd:
P.S. Я просто поддерживаю беседу.» © Народ.

xmpp:kildor@jabber.ru
wolf
Posts: 1030
Joined: Fri 08 Apr, 2005 12:54
Location: Moscow

Post by wolf »

Kildor
функция безусловно замечательная - использовать её как? примера нет..
т.е. что нужнО между macro:post и panelitem(0,0,1) ???
ошибка — считать, что фар для пользователей. (с) zg
User avatar
t-rex
Страшный и ужасный
Posts: 4910
Joined: Tue 15 Mar, 2005 16:17
Location: Tel-Aviv
Has thanked: 1 time
Been thanked: 8 times
Contact:

Post by t-rex »

%s=panelitem(); $Text %s
User avatar
DrKnS
Posts: 6114
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 12 times
Been thanked: 426 times

Post by DrKnS »

Нафига %s?
$Text Panelitem(0,0,1)
wolf
Posts: 1030
Joined: Fri 08 Apr, 2005 12:54
Location: Moscow

Post by wolf »

DrKnS, замечательно.
для красоты осталось только попадание "cd 9AEA~1" в историю команд как-то подавить. реально?
ошибка — считать, что фар для пользователей. (с) zg
User avatar
DrKnS
Posts: 6114
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 12 times
Been thanked: 426 times

Post by DrKnS »

Вполне реально. Но с AltHistory. (хоткей A):

Code: Select all

macro:post $if(Panelitem(0,0,1)!="") F9 Left Left Down Down Down Down Down Enter A Subtract Enter Enter Esc $text "cd " $Text Panelitem(0,0,1) Enter F9 Left Left Down Down Down Down Down Enter A Add Enter Enter Esc $Else Enter $End
;)
wolf
Posts: 1030
Joined: Fri 08 Apr, 2005 12:54
Location: Moscow

Post by wolf »

DrKnS wrote:Вполне реально. Но с AltHistory.;)
требовать плагин, чтобы научить FAR по CtrlPgDn всегда без пререканий входить в каталог - несколько перебор :)

ну и чего-то не заработало - в смысле всё равно мусор в историю попадает. туплю где-то.

[HKEY_CURRENT_USER\Software\Far\KeyMacros\Shell\CtrlPgDn]
"Sequence"="CtrlPgDn $if (Dialog) Esc F9 Left Left Down Down Down Down Down Enter A Subtract Enter Enter Esc $IClip CtrlIns CtrlY $text "cd " $Text Panelitem(0,0,1) Enter $if (Dialog) Esc $end ShiftIns $IClip F9 Left Left Down Down Down Down Down Enter A Add Enter Enter Esc $end"
"DisableOutput"=dword:00000001
"NoPluginPanels"=dword:00000001
"NoFiles"=dword:00000001

каталог для проверки конечно ®© на ntfs :)
ошибка — считать, что фар для пользователей. (с) zg
User avatar
DrKnS
Posts: 6114
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 12 times
Been thanked: 426 times

Post by DrKnS »

Хм, ну кто ж так кавычки в *.reg ставит?
Так попробуй:

Code: Select all

[HKEY_CURRENT_USER\Software\Far\KeyMacros\Shell\CtrlPgDn]
"DisableOutput"=dword:00000001
"NoPluginPanels"=dword:00000001
"NoFiles"=dword:00000001
"Sequence"="CtrlPgDn $if (Dialog) Esc F9 Left Left Down Down Down Down Down Enter A Subtract Enter Enter Esc $IClip CtrlIns CtrlY $text \"cd \" $Text Panelitem(0,0,1) Enter $if (Dialog) Esc $end F9 Left Left Down Down Down Down Down Enter A Add Enter Enter Esc $end"
Ща подумал: может, не зря пишет, что "изменения вступят в силу только после перезапуска"? Как-то через раз оно работает... :(
wolf
Posts: 1030
Joined: Fri 08 Apr, 2005 12:54
Location: Moscow

Post by wolf »

DrKnS
1. ты потерял ShiftIns $IClip после cd - перестало восстанавливать непустую комстроку.
2. оно работать то работает - а cd 9AEA~1 в непустую историю прописывает так же как и без возни с альтхистори.

чтоб кавычек в строке не было (т.е. чтоб пастить из рег в макробраузер и обратно) - переписал:
[HKEY_CURRENT_USER\Software\Far\KeyMacros\Shell\CtrlPgDn]
"Sequence"="CtrlPgDn $if (Dialog) Esc F9 Left Left Down Down Down Down Down Enter A Subtract Enter Enter Esc $IClip CtrlIns CtrlY c d Space $Text Panelitem(0,0,1) Enter $if (Dialog) Esc $end CtrlY ShiftIns $IClip F9 Left Left Down Down Down Down Down Enter A Add Enter Enter Esc $end"
"DisableOutput"=dword:00000001
"NoPluginPanels"=dword:00000001
"NoFiles"=dword:00000001

в пустую историю, впрочем, cd 9AEA~1 почему-то уже не попадает :)

ммать. вылезла ещё проблема -
непустую командную строку восстанавливает нормально,
а вот в пустую кто-то пихает конвертирвоанное в OEM имя каталога. где грабли?
ошибка — считать, что фар для пользователей. (с) zg
User avatar
DrKnS
Posts: 6114
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 12 times
Been thanked: 426 times

Post by DrKnS »

wolf wrote:
2. оно работать то работает - а cd 9AEA~1 в непустую историю прописывает так же как и без возни с альтхистори.
в пустую историю, впрочем, cd 9AEA~1 почему-то уже не попадает :)
Угу, на это я и купился :(
ммать. вылезла ещё проблема -
непустую командную строку восстанавливает нормально,
а вот в пустую кто-то пихает конвертирвоанное в OEM имя каталога. где грабли?
1. ты потерял ShiftIns $IClip после cd - перестало восстанавливать непустую комстроку.
Вот для этого я его и "потерял" :)

Чтоб не было всего этого геморроя - есть предложение (и не только по отношению к данному случаю):
История команд, просмотра, каталогов, диалогов:
Del удаляет текущую строку истории, ShiftDel очищает историю.
А то иногда бывает - ввел какую-то лажу, и фиг удалишь :)
User avatar
HaRT
Moderator
Posts: 10868
Joined: Tue 30 Aug, 2005 17:21
Has thanked: 221 times
Been thanked: 358 times

Post by HaRT »

DrKnS wrote:Чтоб не было всего этого геморроя - есть предложение (и не только по отношению к данному случаю):
История команд, просмотра, каталогов, диалогов:
Del удаляет текущую строку истории, ShiftDel очищает историю.
А то иногда бывает - ввел какую-то лажу, и фиг удалишь :)
+1
Давно чего-то подобного не хватает. Ну а конкретную клавишу можно ещё обсудить. Например, ShiftF8.
User avatar
DrKnS
Posts: 6114
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 12 times
Been thanked: 426 times

Post by DrKnS »

Клавиша по барабану, есть макросы. Был бы сабж ;)
Post Reply

Return to “Нужна помощь”