Написал небольшую функцию для составления списка файлов и каталогов, подходящих по маске. В отличие от "обычных" масок эта функция понимает wildcard-ы в промежуточных каталогах. Например, осуществляет поиск по маске
%TEMP%\18*\update.7z и даже
*:\Program Files*\wi* или
[c-d,y]:\Program Files*\wi* Особенно удобно бывает для поиска "потерянных" файлов. Также собираюсь (если автор разрешит) встроить в скрипт
BookmarkManager.lua для перехода при неполном задании путей
Менеджер закладок с использованием этой процедуры...
--[[
WildCardSearch.lua
поиск файла по частично известному пути
Запуск:
lua:@WildCardSearch.lua
Буняк А.Х.©
--]]
local function _FillSubdirs( sFull )
local function _SplitPath(sn)
local res, t={}
while sn and sn~='' do
t,sn = sn:match([[^([^\]*)\?(.*)$]])
if t and t ~= '' then res[#res+1] = t end
end
return res
end
-- Начало _FillSubdirs
local aDirs=_SplitPath( sFull )
if #aDirs == 0 then return end
local aRes={}
local Root=aDirs[1]:upper()
table.remove(aDirs, 1)
do
if Root:sub(1,2):match('^[A-Z]:$') then
aRes[1] = Root .. '\\'
else
for i=mf.asc('A'),mf.asc('Z') do
local d=mf.chr(i)..':'
if Root == '*:' then
aRes[#aRes+1] = d .. '\\'
else
if d:match(Root) then
aRes[#aRes+1] = d .. '\\'
end
end
end
end
end
local function _ListFolders(root, mask)
local ares={}
local function _LiFoProc(_,nf)
ares[#ares+1] = nf
end
far.RecursiveSearch(root, mask, _LiFoProc)
if #ares == 0 then ares = nil end
return ares
end -- _ListFolders
while #aDirs > 0 do
local n=#aRes
for i=1,n do
local aList = _ListFolders(aRes[i], aDirs[1])
if aList then
for _,v in ipairs(aList) do table.insert(aRes, v) end
end
end
-- Удаляю необработанные
for _=1,n do table.remove(aRes, 1) end
table.remove(aDirs,1)
end
return aRes
end -- _FillSubdirs
local sFull = [[*:\Program Files*\wi*]]
sFull = mf.prompt('Расширение каталогов','Полный путь с wildcard-ами',21,sFull)
local aList=_FillSubdirs(sFull)
far.Show(unpack(aList))