MyTTS

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

 WSeries(11, [[d:/MP3]], 6000, true, 'Серия', 'Конец серии')
h = HomeFolder('dic')
diclist =
{
    h..'vse_vsyo.rex',
    {h..'Michel.dic'}
}
x, y = FilterToAll([[d:/MP3]], '0*.txt', diclist)
ShowMessage('Готово!\13Обработано файлов: '..x..'\13Применено словарей: '..y)

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

require "work\\mylib"

homedir = Folders("ВЫБЕРИТЕ ПАПКУ, КУДА СОХРАНИТЬ Изменённый файл\nПапка по умолчанию: ", 'D:\\MP3', true)

--ПОЛУЧАЕМ НАЗВАНИЕ ФАЙЛА АКТИВНОГО ОКНА
ind = WActive()  -- получить номер активного окна
path_parts = WName(ind) -- получить полный путь и название файла книги из активного окна
path_parts = string.split(WName(ind),"\\") -- разбиваем путь на компоненты
namebook = string.gsub(path_parts[#path_parts],"%.%w+$","") -- берём последний элемент пути (имя файла) и удаляем расширение

WSeries(ind, homedir, 300, true, 'Сериал ', 'Конец серии',1)
h = HomeFolder('dic')
diclist =
{
    h..'60_резервируем омографы.dic',
    h..'61_резервируем омографы.dic',
	h..'62_резервируем омографы.dic',
  }
x, y = FilterToAll(homedir, '0*.txt', diclist)
ShowMessage('Готово!\13Обработано файлов: '..x..'\13Применено словарей: '..y)

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

function WSeries(i, folder, fragsize, parag, header, ender, startnum)
    local fname
    local s = WText(i)
    local b = Fragments(s,fragsize,parag)
    local k = #folder
    if not startnum then
        startnum = 1
    end
    if string.sub(folder,k,k) ~= '/' and string.sub(folder,k,k) ~= '\\' then
        folder = folder..'\\'
    end
    for i = 1,#b do
        fname = folder..string.format("%04d",(i+startnum-1))..'.txt'
        if header then
            b[i] = header..' '..(i+startnum-1)..'\r'..b[i]
        end
        if ender then
            b[i] = b[i]..'\r'..ender..' '..(i+startnum-1)
        end
        SaveToFile({b[i]},fname)
    end
end




function FilterToAll(folder, mask, diclist)
    local b, d, 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])
        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..a[i])
    end
    WNew(0)
    return #a, #diclist
end

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

local a = AllFiles(homedir,'0*.txt')		
for i = 1,#a do
WOpen(0,homedir..a[i])
path_p = WName(0) -- получить полный путь и название файла книги из активного окна
path_p = string.split(WName(0),"\\") -- разбиваем путь на компоненты
name_p = string.gsub(path_p[#path_p],"%.%w+$","") -- берём последний элемент пути (имя файла) и удаляем расширение
WSave(0,homedir..a[i])
WAudio(0,homedir,true)
WNew(0)
os.rename (homedir..'0001.mp3', homedir..name_p..'+.mp3')-- переименовываем 0001.mp3 на имя открытого в окне сериала
os.remove(homedir..a[i])
end

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

fin = 20

a = "qwertyuiopasdfghjklzxcvbnm"
s1 = os.clock()
-- при fin > 23 - not enough memory
for i = 1, fin do
	a = a..a
end
e1 = os.clock()
WLog("Concat")
WLog(e1-s1)

b = "qwertyuiopasdfghjklzxcvbnm"
s2 = os.clock()
-- при fin > 24 - not enough memory
for i = 1, fin do
	b = string.format("%s%s", b, b)
end
e2 = os.clock()
WLog("Format")
WLog(e2-s2)

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

function AllFolders(folder,mask)
  local a = FilesReview(folder,mask,false)
  dir_list = string.split(a,'|')
  table.remove(dir_list,1)
  table.remove(dir_list,1)
  return dir_list
end

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

function WLog(s)
    if not s then s = '' else s = tostring(s) end
    WAdd(0,-1,s..'\r')
    return #s
end

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

startdir = HomeFolder()
cap = "File Manager"

m = 1
while m ~= 0 do

dirs = AllFolders(startdir)
files = AllFiles(startdir)
items = {}

for d = 2, #dirs do
	d_string = string.format("[%s]",dirs[d])
	table.insert(items,d_string)
end

for f = 1, #files do
	table.insert(items,files[f])
end

m = Menu(cap, items, 1)

if m == 1 then
	startdir = string.gsub(startdir,"[^\\/]+[\\/]$","")
elseif m <= #dirs-1 then
	startdir = startdir..dirs[m+1].."\\"
else
	WLog("Выбран файл: "..files[m-#dirs+1])
end

end

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

-- Simultaneously аpply dictionaries and create audio for all files in a given folder 
function FilterAudioToAll(folder, mask, diclist)
    IgnoreDicPan()
    local b, d, 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])
        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..a[i])
		WOpen(0,folder..a[i])
		WAudio(0,folder,false)
		os.remove(folder..a[i])
    end
    WNew(0)
    return #a, #diclist
end

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

function qwerty(a)
    return sqrt(a) -- извлечь квадратный корень
end

function qwerty(a)
    return a*a -- возвести в квадрат
end

print(qwerty(2))

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

function qwerty(a)
    return a*a -- возвести в квадрат
end

function qwerty(a)
    return sqrt(a) -- извлечь квадратный корень
end

print(qwerty(2))

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

homedir = Folders("ВЫБЕРИТЕ ПАПКУ с книгами \nПапка по умолчанию: ", 'D:\\MP3', true)
if not homedir then goto HALT end

a = AllFiles(homedir,'*.txt')
for i = 1,#a do
    fn = SplitFileName(a[i])
    ShowMessage(fn[2]..fn[3])  -- имя файла без пути
end

::HALT::