MyTTS

Код: Выделить всё

 -- WSave(0,folder..a[i])
-- WOpen(0,folder..a[i])

Код: Выделить всё

WNew(0)
homedic = HomeFolder('dic_test')-- Полный путь к словарю с подпапкой 'dic_test'
local n=10000 
local slovar1 = 'REX_1_VAR.rex' 
local slovar2 = 'REX_2_VAR.rex' 
local k=''
local s=WText(1)


--Открываем в окне №2 и №3 словари для редактирования 
local pravilo1=WText(2)
local pravilo2=WText(3)
if pravilo1=='' then WOpen(2,homedic..slovar1) else WSave(2,homedic..slovar1) end
if pravilo2=='' then WOpen(3,homedic..slovar2) else WSave(3,homedic..slovar2) end
local pravilo1=WText(2)
local pravilo2=WText(3)


--Если окно №1 "Пустое" то оставляем открытыми словари для редактировани и прерываем скрипт
if s=='' then 
WActive(1)
WAdd(1,-1,'Сюда вводим текст для тестирования') 
goto HALT end


--Смотрим как сработали правила из словарей 
WNew(0)
WFilter(1,0,homedic..slovar1,true)  -- обработать БЫСТРЫМ алгоритмом
local t1=WText(0)
WNew(0)
WFilter(1,0,homedic..slovar2,true)  -- обработать БЫСТРЫМ алгоритмом
local t2=WText(0)
WNew(0)

--Создание размнооженной копии текста
for i = 1,n do
k=s..'\r'..k
end

--Запуск словарей - включение секундомера
WNew(0)
WAdd(0,-1,k) 
local x = os.clock()
WFilter(0,0,homedic..slovar1,true)  -- обработать БЫСТРЫМ алгоритмом
local pr1=(string.format('Время обработки '.." %.2f\n", os.clock() - x))
WNew(0)
WAdd(0,-1,k) 
local x = os.clock()
WFilter(0,0,homedic..slovar2,true)  -- обработать БЫСТРЫМ алгоритмом
local pr2=(string.format('Время обработки '.." %.2f\n", os.clock() - x))

--Вывод результатов в окно статистики
WNew(0)
WAdd(0,-1,slovar1..'\r') 
WAdd(0,-1,pravilo1..'\r\r') 
WAdd(0,-1,s..'\r') 
WAdd(0,-1,t1..'\r') 
--Если результат работы правила равен оригиналу, значит правило не сработало
--if s==t1 then WAdd(1,-1,'ВНИМАНИЕ! Похоже правило не срабатывает') end
WAdd(0,-1,pr1) 
WAdd(0,-1,'#############################################################\r') 
WAdd(0,-1,slovar2..'\r') 
WAdd(0,-1,pravilo2..'\r\r') 
WAdd(0,-1,s..'\r') 
WAdd(0,-1,t2..'\r') 
--Если результат работы правила равен оригиналу, значит правило не сработало
--if s==t2 then WAdd(1,-1,'ВНИМАНИЕ! Похоже правило не срабатывает') end
WAdd(0,-1,pr2) 
WAdd(0,-1,'#############################################################\r') 

WActive(0)
ShowMessage('Готово')
::HALT::

Код: Выделить всё

WNew(0)
WAdd(0,-1,k) 
local x = os.clock()
WFilter(0,0,homedic..slovar1,true)  -- обработать БЫСТРЫМ алгоритмом
local pr1 = (string.format(' '.." %.2f\n", os.clock() - x))
vo1 = vo1..pr1
WNew(0)
WAdd(0,-1,k) 
local x = os.clock()
WFilter(0,0,homedic..slovar1,true)  -- обработать БЫСТРЫМ алгоритмом
local pr1 = (string.format(' '.." %.2f\n", os.clock() - x))
vo1 = vo1..pr1
WNew(0)
WAdd(0,-1,k) 
local x = os.clock()
WFilter(0,0,homedic..slovar1,true)  -- обработать БЫСТРЫМ алгоритмом
local pr1 = (string.format(' '.." %.2f\n", os.clock() - x))
vo1 = vo1..pr1

Код: Выделить всё

x, y = FilterToAll([[d:/MP3]], '0*.txt', diclist)
ShowMessage('Готово!\13Обработано файлов: '..x..'\13Применено словарей: '..y)

Код: Выделить всё

function primer(x)
    return x^2, x^3, x^4 -- функция возвратит 3 значения
end

Код: Выделить всё

function primer2(....)
    ...
    local a = {}
    for i = ... do
        ...
        a[#a+1] = ... --запоминаем очередное значение в список
        ...
    end
    return a
end

Код: Выделить всё

function FilterAndAudioToAll(folder, mask, diclist, remsource)
    IgnoreDicPan()
    local b, d, mode
     local k = #folder
	local q
    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
		q=i
        WOpen(0,folder..a[i])
        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
		WSave(0,folder..'temp'..a[i])
        WOpen(0,folder..'temp'..a[i])
		WAudio(0,folder,false)
		local name_p = SplitFileName(a[i])[2]
		os.rename (folder..'temp'..name_p..'.mp3', folder..name_p..'.mp3')
		os.remove(folder..'temp'..a[i]) 	
		if remsource then 
		if q > 1 then os.remove(folder..a[q-1]) end
		end
    end
		if remsource then os.remove(folder..a[q]) end
    return #a, #diclist
end

Код: Выделить всё

function FilterAndAudioToAllAndLog(folder, mask, diclist, remsource)
    IgnoreDicPan()
    local b, d, mode
    local k = #folder
	local zi
	local pru = "История обработки:"
	local q
    if string.sub(folder,k,k) ~= '/' and string.sub(folder,k,k) ~= '\\' then
        folder = folder..'\\'
    end
    local a = AllFiles(folder,mask)
	zi = os.time()
	--
	local logfile = FileExists(folder..'\\log.log')
	if not logfile then 
	WNew(0)
	WSave(0,folder..'\\log.log')
	end
	WOpen(0,folder..'\\log.log')
	WAdd(0,-1,pru)
	WSave(0,folder..'\\log.log')
	for i = 1,#a do
	q=i
        WOpen(0,folder..a[i])
        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
        local rr1 = os.time() - zi
		WSave(0,folder..'temp'..a[i])
        WOpen(0,folder..'temp'..a[i])
		zi = os.time()
		WAudio(0,folder,false)
		local rr2 = os.time() - zi
		pru = a[i]..' - Словари: '..rr1..' сек; Аудио: '..rr2..' сек; Всего: '..rr1+rr2..' сек.' 
		name_p = SplitFileName(a[i])[2]
		os.rename (folder..'temp'..name_p..'.mp3', folder..name_p..'.mp3')
	WOpen(0,folder..'\\log.log')
	WAdd(0,-1,pru)
	WSave(0,folder..'\\log.log')
	os.remove(folder..'temp'..a[i]) 	
		if remsource then 
		if q > 1 then os.remove(folder..a[q-1]) end
		end
    end
	if remsource then os.remove(folder..a[q]) end
    return #a, pru

Код: Выделить всё

История обработки:
0001.txt - Словари: 4 сек; Аудио: 1 сек; Всего: 5 сек.
0002.txt - Словари: 6 сек; Аудио: 2 сек; Всего: 8 сек.

Код: Выделить всё

-- Thank  balaamster 
function SecToHMS(sec)
    local h = math.floor(sec / 3600)
    local m = math.floor((sec % 3600) / 60)
    local s = math.floor(sec % 60)
    local hms = string.format("%02d:%02d:%02d", h, m, s)
    return hms
end

Код: Выделить всё

WOpen(0,folder..'\\log.log')
pru = WText(0)
return #a, pru

Код: Выделить всё

local clock = os.clock  -- создали локальный экземпляр функции os.clock()
function sleep(n)  -- спячка на n секунд
  local t = clock()
  while clock() - t <= n do end
end

Код: Выделить всё

require "work/mylib"

ind = WActive()
WNew(0)
WAdd(0,-1,'Действую без шума и пыли, по вновь утвержденному плану!\13(возврат в рабочее окно через 5 сек)')
WActive(0)
sleep(5)
WActive(ind)

Код: Выделить всё

-- DEMONSTRATION OF THE INTERPRETER IN THE PROGRAM "DEMAGOG" 
-- MAKE OF THE TEXTS COLLECTION
-- TEXTS FOR ADD MAY BE ANYONE FORMAT FROM: DOC, DOCX, HTM, HTML, SHTML, FB2, EPUB, TXT
-- PRESS F2

--------------------------------------------------
if CurrentLang() == 'Russian' then
  header = 'Составление сборника'
  askname = 'Введите название'
  defname = 'СБОРНИК '
  ready = 'Готово! Результат в окне "0 - Статистика"'
  msg = 'Составление сборника текстов\013\013Подбор текстов прекращается, когда в очередном диалоге выбора нажата кнопка "Отмена" или клавиша Esc. Возможен множественный выбор файлов: Shift+ArrowDn и/или Ctrl+LeftMouseClick\013\013Продолжить?'
  docend = 'Конец книги'
else
  header = 'Make of the collection'
  askname = 'Input name'
  defname = 'COLLECTION '
  ready = 'Done! The result in the "0 - Stats" window'
  msg = 'Make of the texts collection\013\013The text selection is stopped when the Cancel button or Esc key is pressed in the next selection dialog. Multiple file selections are possible: Shift+ArrowDn and/or Ctrl+LeftMouseClick\013\013 Continue?'
  docend = 'End of book'
end
--------------------------------------------------

if not MessageDialog(msg) then goto HALT end

nazvanie = Input(header,{askname..'='..defname})
if not nazvanie then goto HALT end
nazvanie = nazvanie[1]

WNew(0,nazvanie)
s = WText(0)
k = 0
while true do
    f = OpenDialog(true)
    if not f then break end
    for i = 1,#f do
        k = k + 1
        WOpen(0,f[i])
        w = WText(0)
        s = s..'\r\n\r\n\r\n'..w..'\r\n\r\n\r\n'..docend..' '..k
    end 
end

WNew(0)
WAdd(0,-1,s)
WActive(0)  
ShowMessage(ready)

::HALT::

Код: Выделить всё

doscomand = sox..' -G --multi-threaded -q '..'"'..homedir..a[i]..'"'..' -C 64.01 '..'"'..homedir..'temp_'..a[i]..'"'..' tempo -s 1.1 pitch -50  reverb 20 40 40'

Код: Выделить всё

-G --multi-threaded -q %1 -C 64.01 %2 tempo -s 1.1 pitch -50  reverb 20 40 40

Код: Выделить всё

    doscomand = string.format('%s -G --multi-threaded -q %s -C 64.01 %s tempo -s 1.1 pitch -50  reverb 20 40 40 2>>С://temp//log.txt & pause', sox, in_file, out_file)

Код: Выделить всё

os.execute('C:\\windows\\system32\\cmd.exe /k dir "C:\\windows\\"')
os.execute('"C:\\windows\\system32\\cmd.exe" /k dir C:\\windows\\')

Код: Выделить всё

os.execute('"C:\\windows\\system32\\cmd.exe" /k dir "C:\\windows\\"')

Код: Выделить всё

sox = string.format('%ssox.exe',HomeFolder('sox'))

Код: Выделить всё

    doscomand = string.format('sox.exe -G --multi-threaded -q %s -C 64.01 %s tempo -s 1.1 pitch -50  reverb 20 40 40 & pause', in_file, out_file)