Перечень файлов и каталогов с подкаталогами с wildcard-ами

Здесь обсуждается всё, что касается макросов.
Post Reply
User avatar
buniak_a_h
Posts: 4259
Joined: Sat 20 Apr, 2013 00:17
Location: Санкт-Петробад
Has thanked: 222 times
Been thanked: 644 times
Contact:

Перечень файлов и каталогов с подкаталогами с wildcard-ами

Post by buniak_a_h »

Написал небольшую функцию для составления списка файлов и каталогов, подходящих по маске. В отличие от "обычных" масок эта функция понимает wildcard-ы в промежуточных каталогах. Например, осуществляет поиск по маске %TEMP%\18*\update.7z и даже *:\Program Files*\wi* или [c-d,y]:\Program Files*\wi* Особенно удобно бывает для поиска "потерянных" файлов. Также собираюсь (если автор разрешит) встроить в скрипт BookmarkManager.lua для перехода при неполном задании путей Менеджер закладок с использованием этой процедуры...
  1. --[[
  2.  
  3. WildCardSearch.lua
  4.  
  5. поиск файла по частично известному пути
  6.  
  7. Запуск:
  8.  
  9. lua:@WildCardSearch.lua
  10.  
  11. Буняк А.Х.©
  12.  
  13. --]]
  14.  
  15. local function _FillSubdirs( sFull )
  16.  
  17.  
  18.  
  19.   local function _SplitPath(sn)
  20.  
  21.    local res, t={}
  22.  
  23.    while sn and sn~='' do
  24.  
  25.     t,sn = sn:match([[^([^\]*)\?(.*)$]])
  26.  
  27.     if t and t ~= '' then res[#res+1] = t end
  28.  
  29.    end
  30.  
  31.    return res
  32.  
  33.   end
  34.  
  35.  
  36.  
  37.   -- Начало _FillSubdirs
  38.  
  39.   local aDirs=_SplitPath( sFull )
  40.  
  41.   if #aDirs == 0 then return end
  42.  
  43.   local aRes={}
  44.  
  45.   local Root=aDirs[1]:upper()
  46.  
  47.   table.remove(aDirs, 1)
  48.  
  49.   do
  50.  
  51.     if Root:sub(1,2):match('^[A-Z]:$') then
  52.  
  53.       aRes[1] = Root .. '\\'
  54.  
  55.     else
  56.  
  57.       for i=mf.asc('A'),mf.asc('Z') do
  58.  
  59.         local d=mf.chr(i)..':'
  60.  
  61.         if Root == '*:' then
  62.  
  63.           aRes[#aRes+1] = d .. '\\'
  64.  
  65.         else
  66.  
  67.           if d:match(Root) then
  68.  
  69.             aRes[#aRes+1] = d .. '\\'
  70.  
  71.           end
  72.  
  73.         end
  74.  
  75.       end
  76.  
  77.     end
  78.  
  79.   end
  80.  
  81.   local function _ListFolders(root, mask)
  82.  
  83.     local ares={}
  84.  
  85.     local function _LiFoProc(_,nf)
  86.  
  87.       ares[#ares+1] = nf
  88.  
  89.     end
  90.  
  91.     far.RecursiveSearch(root, mask, _LiFoProc)
  92.  
  93.     if #ares == 0 then ares = nil end
  94.  
  95.     return ares
  96.  
  97.   end -- _ListFolders
  98.  
  99.   while #aDirs > 0 do
  100.  
  101.     local n=#aRes
  102.  
  103.     for i=1,n do
  104.  
  105.       local aList = _ListFolders(aRes[i], aDirs[1])
  106.  
  107.       if aList then
  108.  
  109.         for _,v in ipairs(aList) do table.insert(aRes, v) end
  110.  
  111.       end
  112.  
  113.     end
  114.  
  115.     -- Удаляю необработанные
  116.  
  117.     for _=1,n do table.remove(aRes, 1) end
  118.  
  119.     table.remove(aDirs,1)
  120.  
  121.   end
  122.  
  123.   return aRes
  124.  
  125. end -- _FillSubdirs
  126.  
  127.  
  128.  
  129. local sFull = [[*:\Program Files*\wi*]]
  130.  
  131. sFull = mf.prompt('Расширение каталогов','Полный путь с wildcard-ами',21,sFull)
  132.  
  133. local aList=_FillSubdirs(sFull)
  134.  
  135. far.Show(unpack(aList))
  136.  
  137.  
Attachments
WildCardSearch.lua.7z
(1015 Bytes) Downloaded 111 times
Last edited by buniak_a_h on Sun 29 Apr, 2018 02:33, edited 1 time in total.
Post Reply

Return to “Обсуждение макросов”