Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: [WDX] Similarity 
Author Message
LonerD



PostPosted: Tue Apr 02, 2013 01:04    Post subject: Reply with quote

Чуток автоматизировал скрипт:
Code:
IfWinActive , ahk_class TTOTAL_CMD
{
   if 0 < 1
   {
      MsgBox, Too less parameters!`nInsert searched file name.
   }
   else
   {
      searchStr :=""
      
      Loop, %0%
      {
         param := %A_Index%
         searchStr = %searchStr% %param%
      }

      EnvGet, COMMANDER_PATH, %COMMANDER_PATH%
      IniFile = %COMMANDER_PATH%\leven.ini
      IniWrite, %searchStr%, %IniFile%, Search, Phrase

      PostMessage 1075, 2026, , , ahk_class TTOTAL_CMD
      PostMessage 1075, 501, , , ahk_class TTOTAL_CMD
      WinWait, ahk_class TFindFile
      WinClose, ahk_class TFindFile
      PostMessage 1075, 7539, , , ahk_class TTOTAL_CMD
   }
}


И соответствующий набор колонок:
Code:
Widths39=120,25,-50,-70,-30,-30,-30,-30
Headers39=Size\nDate\ndistance\nsimilarity\naverage\ncontains
Contents39=[=tc.size]\n[=tc.writedate.Y.M.D h:m:s]\n[=similarity.distanceLev]\n[=similarity.similarityLev]\n[=similarity.average]\n[=similarity.contains]
Options39=1936|1

(номер колонки и команду для него в последней строке скрипта надо подправить под себя, равно как и остальные параметры по желанию).

Запускаем скрипт с параметром ?, вводим искомое слово - и больше ничего вручную делать не надо - после отработки скрипта автоматически происходит переключение в режим просмотра без каталогов и в заданный набор колонок.

Кто-нибудь может попробовать откомпилировать 64-х битную версию? Плагин хоть и весьма своеобразный в работе, но выдаёт интересные и небесполезные результаты.
Попробовал перекомпилировать - ничего не вышло. После декларации функции main() компиляция завершается, хоть и с ворнингами, но плагин как таковой - не работает.
_________________
Windows 11 | TC DreamLair eternal pre-α
View user's profile Send private message Visit poster's website ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group