Немного модифицировал функции по применению словарей к сериалу
FilterToAll(folder, mask, diclist, remsource) и
FilterAndAudioToAll(folder, mask, diclist, remsource) под индексный метод. Большое спасибо
balaamster за помощь.
По новому переименованные функции будут выглядеть так:
Код: Выделить всё
function IndexFilterToAll(folder, mask, diclist)
IgnoreDicPan()
local b, d, p, mode
local k = #folder
if string.sub(folder,k,k) ~= '/' and string.sub(folder,k,k) ~= '\\' then
folder = folder..'\\'
end
local a = AllFiles(folder,mask)
for i = 1,#a do
WOpen(0,folder..a[i])
--создание SPEEDOMOREX.rex
book_text = WText(0)
index_dicrex_text = SPEEDOMOREX_NEW_DICREX(book_text)
SaveToFile({index_dicrex_text},HomeFolder('dic')..'SPEEDOMOREX.rex') -- сохраним новый SPEEDOMOREX.rex
--
for j = 1,#diclist do
b = diclist[j]
if type(b) == 'table' then
d = b[1]
mode = b[2]
else
d = b
mode = true
end
WFilter(0,0,d,mode)
end
os.remove(HomeFolder('dic')..'SPEEDOMOREX.rex')
WSave(0,folder..a[i])
end
WNew(0)
return #a, #diclist
end
Код: Выделить всё
function IndexFilterAndAudioToAll(folder, mask, diclist, remsource)
IgnoreDicPan()
local b, d, p, mode
local k = #folder
if string.sub(folder,k,k) ~= '/' and string.sub(folder,k,k) ~= '\\' then
folder = folder..'\\'
end
local a = AllFiles(folder,mask)
GaugeInit(#a)
for i = 1,#a do
Gauge(i)
WOpen(0,folder..a[i])
--Создание укороченного словаря под именем SPEEDOMOREX.rex
book_text = WText(0)
index_dicrex_text = SPEEDOMOREX_NEW_DICREX(book_text)
SaveToFile({index_dicrex_text},HomeFolder('dic')..'SPEEDOMOREX.rex') -- сохраним новый SPEEDOMOREX.rex
--
for j = 1,#diclist do
b = diclist[j]
if type(b) == 'table' then
d = b[1]
mode = b[2]
else
d = b
mode = true
end
WFilter(0,0,d,mode)
end
-- удаление словаря после его применения
os.remove(HomeFolder('dic')..'SPEEDOMOREX.rex')
--
WSave(0,folder..'temp_'..a[i])
WOpen(0,folder..'temp_'..a[i])
WAudio(0,folder,false)
p = SplitFileName(a[i])[2]
os.rename (folder..'temp_'..p..'.mp3', folder..p..'.mp3')
os.remove(folder..'temp_'..a[i])
if remsource and i > 1 then os.remove(folder..a[i-1]) end
end
if remsource then os.remove(folder..a[#a]) end
WNew(0)
return #a, #diclist
end
Для работы этих функций нужно в скрипте, вызывающего эти функции прописать:
1) в переменной diclist в списке последовательности применения словарей вместо основного словаря с омографами указать имя 'SPEEDOMOREX.rex',
пример:
dic = HomeFolder('dic')
diclist =
{
dic..'10_REX_стандартные замены.rex',
dic..'SPEEDOMOREX.rex', -- (было 20_REX_Замены от waska.rex)
dic..'30_REX_Замены пополнение.rex',
dic..'40.1_звезды подготовка.rex,
}
2) Что бы создать индекс к основному словарю (в примере 20_REX_Замены от waska.rex), нужно прописать один раз в начале скрипта:
Код: Выделить всё
WOpen(0,HomeFolder('dic')..'20_REX_Замены от waska.rex') -- открываем словарь для извлечения индекс слов.
dicrex_text = WText(0) -- переменная глобальная, в ней храним всё содержимое 20_REX_Замены от waska.rex, чтобы не открывать его каждый раз. Так как операции ввода/вывода на диск всегда медленнее работы с памятью.
global_index_rex = SPEEDOMOREX_INDEX(dicrex_text) -- переменная глобальная, в ней храним поисковую строку в виде: \b(адреса|ангара|бегу|дома)\b
WNew(0)
здесь в глобальную переменную
global_index_rex записывается поисковый индекс, который будет применяться к каждому открытому тексту сериала в поиске омографов.
3) Теперь можно применять функции IndexFilteToAll(folder, mask, diclist, remsource) или IndexFilterAndAudioToAll(folder, mask, diclist, remsource)
4) Дополнительно для работы этих функций нужно в калькуляторе или в личной библиотеке mylib_inex.lua (вызывается командой
require "profiles/mylib_inex") добавить еще записи:
Код: Выделить всё
-- очистить список строк lines от дубликатов (спасибо balaamster)
function table.getuniq(lines)
local t = {} -- список без дубликатов
table.sort(lines)
t[1] = lines[1]
for i = 2, #lines do
if lines[i] ~= t[#t] then t[#t+1] = lines[i] end
end
return t
end
function nayti_vse_po_zaprosu(text, rex_zapros)
local s = text
local r = rex_zapros
local k = 1
local temp = ''
local fnd = ''
while k > 0 do
fnd, k = RexMatch(s,r,k)
temp=temp..fnd..'\r'
if k > 0 then k = k+#fnd+1 end
end
return temp
end
function SPEEDOMOREX_INDEX(dicrex_text)--создание индекса
-- найдем все индексы в словаре REX по шаблону: #\w.+$
global_index_rex = nayti_vse_po_zaprosu(dicrex_text, [[#\w.+$]])
--переводим полученный список в одну поисковую строку в виде: \b(адреса|ангара|бегу|дома)\b
global_index_rex = [[\b(]]..global_index_rex..[[)\b]]
global_index_rex = string.gsub(global_index_rex,",","|")
global_index_rex = string.gsub(global_index_rex,"#",'|')
global_index_rex = string.gsub(global_index_rex,"||",'|')
global_index_rex = string.gsub(global_index_rex,"%(|","(")
global_index_rex = string.gsub(global_index_rex,"|%)",")")
global_index_rex = string.gsub(global_index_rex,'\r','')
global_index_rex = string.gsub(global_index_rex,'\n','')
return global_index_rex
end
function SPEEDOMOREX_NEW_DICREX(book_text)
local s = book_text -- текст текущего участка книги
s = nayti_vse_po_zaprosu(s, global_index_rex) -- ищем в тексте книги омографы по поисковому запросу из ранее сохраненого global_index_rex
s = table.getuniq(string.split(s,'\r'))-- удаляем дубликаты
s = table.concat(s, '\r')
--переводим найденный список в одну поисковую строку вида: #(\w+,)*\b(адреса|ангара|бегу|дома)\b[^#]+
s = [[#(\w+,)*\b(]]..s..[[)\b[^#]+]]
s = string.gsub(s,'\r','|')
s = string.gsub(s,"||",'|')
s = string.gsub(s,"%(|","(")
s = string.gsub(s,"|%)",")")
s = string.gsub(s,'\r','')
s = string.gsub(s,'\n','')
local index_rex_from_text = s
--SaveToFile({index_rex_from_text},'indexZZ.@') -- для отладки сохраним полученный индекс в файл indexZZ.@
-- Вытаскиваем все правила из словаря rex
s = nayti_vse_po_zaprosu(dicrex_text, index_rex_from_text)
return s
end
на всякий случай все функции в одном файле
Отправлено спустя 11 часов 42 минуты 54 секунды:
Небольшое изменение:
tonio_k писал(а): ↑08 мар 2019 23:36
2) Что бы создать индекс к основному словарю (в примере 20_REX_Замены от waska.rex), нужно прописать один раз в начале скрипта:
можно прописать всего одну строку, а остальное перенести в функцию function SPEEDOMOREX_INDEX
Код: Выделить всё
global_index_rex = SPEEDOMOREX_INDEX(HomeFolder('dic')..'20_REX_Замены от waska.rex') -- переменная глобальная
tonio_k писал(а): ↑08 мар 2019 23:36
4) Дополнительно для работы этих функций нужно в калькуляторе или в личной библиотеке mylib_inex.lua (вызывается командой require "profiles/mylib_inex") добавить еще записи:
в функцию function SPEEDOMOREX_INDEX исправить на
Код: Выделить всё
function SPEEDOMOREX_INDEX(index_dicrex_path)--создание индекса
WOpen(0,index_dicrex_path) -- открываем словарь для извлечения индекс слов. переменная dic глобальная, так как объявлена ранее в СПИСОК СЛОВАРЕЙ.lua без local
dicrex_text = WText(0) -- переменная глобальная, в ней храним всё содержимое 20_REX_Замены от waska.rex, чтобы не открывать его каждый раз. Так как операции ввода/вывода на диск всегда медленнее работы с памятью.
-- найдем все индексы в словаре REX по шаблону: #\w.+$
global_index_rex = nayti_vse_po_zaprosu(dicrex_text, [[#\w.+$]])
--переводим полученный список в одну поисковую строку в виде: \b(адреса|ангара|бегу|дома)\b
global_index_rex = [[\b(]]..global_index_rex..[[)\b]]
global_index_rex = string.gsub(global_index_rex,",","|")
global_index_rex = string.gsub(global_index_rex,"#",'|')
global_index_rex = string.gsub(global_index_rex,"||",'|')
global_index_rex = string.gsub(global_index_rex,"%(|","(")
global_index_rex = string.gsub(global_index_rex,"|%)",")")
global_index_rex = string.gsub(global_index_rex,'\r','')
global_index_rex = string.gsub(global_index_rex,'\n','')
SaveToFile({global_index_rex},'index.@') -- для отладки сохраним полученный индекс в файл indexZZ.@
WNew(0)
return global_index_rex
end
файл
mylib_inex с изменениями
.
