MyTTS

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

startdir = Folders("ВЫБЕРИТЕ ПАПКУ ДЛЯ ОБРАБОТКИ","C:\\NST\\")

function AllFolders(path)
    local list = {}
    for dir in io.popen(string.format([[dir %s /b /ad]],path)):lines() do table.insert(list,path..dir.."\\") end
    return list
end

function recursion_dirs(path)
    dir_tree = {}
    function walk_dirs(dirs_table)
        if #dirs_table > 0 then
            for _, i in pairs(dirs_table) do
                table.insert(dir_tree,i)
                walk_dirs(AllFolders(i))
            end
        end
    end
    walk_dirs(AllFolders(path))
    return dir_tree
end

for i,j in pairs(recursion_dirs(startdir)) do print(i,j) end

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

homedir = Folders("ВЫБЕРИТЕ ПАПКУ, КУДА СОХРАНИТЬ MP3", "D:\\MP3", true)
--тут долгая работа словарей
WAudio(ind,homedir)

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

function recursion_dirs(path)
    local  tmp_file = string.format("%s%s", os.getenv("LOCALAPPDATA"), "\\temp\\scr_temp.txt") -- Задаём путь ко временному файлу
    os.remove(tmp_file)  -- Удаляем временный файл, если он сохранился по какой-то причине
    local  dir_tree_cmd = string.format([[chcp 1251 | for /R %s %%d in (.) do echo %%d>>%s]], startdir, tmp_file)
    os.execute(dir_tree_cmd)   -- Получаем все подкаталоги через цикл for из cmd.
    local  dirs = {}
    for str in io.lines(tmp_file) do table.insert(dirs,string.sub(str,1,-3)) end  -- Заполняем таблицу путями каталогов.
    os.remove(tmp_file) -- Удаляем временный файл.
    return dirs
end

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

function ExtractFileName(full_file_name)
  if type(full_file_name) ~= "string" then return nil end
  local splitted_path = string.split(full_file_name,"\\")
  local filename = string.gsub(splitted_path[#splitted_path ],"%.%w+$","")
  return filename
end

function ExtractFilePath(full_file_name)
  if type(full_file_name) ~= "string" then return nil end
  local splitted_path = string.split(full_file_name,"\\")
  local filepath = table.concat(splitted_path,"\\",1,#splitted_path-1)
  return filepath.."\\"
end

function ChangeFileExt(file_name, new_ext)
  if type(file_name) ~= "string" or type(new_ext) ~= "string" then return nil end
  return (string.gsub(file_name,"%.%w+$","."..new_ext))
end

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

function SplitFileName(s)
    local a = {'','',''}
    local dot = false
    local d = #s+1
    for k = #s,1,-1 do
        b = string.sub(s,k,k)
        if (b == '.') and not dot then
            a[3] = string.sub(s,k,#s)
            d = k 
            dot = true
        end
        if (b == '\\') or (b == '/') then
            a[2] = string.sub(s,k+1,d-1)
            a[1] = string.sub(s,1,k)
            return a  
        end
    end
    a[2] = string.sub(s,1,d-1)
    return a
end

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

s = [[d:\qwerty\йцукен.1.txt]]
a = SplitFileName(s)
for i = 1,#a do
    print(i,a[i])
end

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

s = [[d:\qwerty\йцукен.1.txt]]
a = SplitFileName(s)
s = a[1]..a[2]..'.lua'
print(s) 

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

z=123 

h = math.floor(z / 60^3)
m = math.floor(z / 60)
s = math.floor(z % 60)
result = string.format("%02dч. %02dм. %02dс.", h, m, s)

print(result)

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

-- Деление текста на фрагменты заданного размера (в символах) 
function Fragments(s,fragsize,parag)
    local a
    s = string.gsub(s,'\9',' ')  -- табуляция ==> пробел
    s = string.gsub(s,'%.%.%.','\133')  -- 3 точки подряд ==> символ "многоточие"
    if not parag then  -- фрагменты собираются из предложений 
        -- вставляем разделительный символ в конце каждого предложения
        -- концом предложения считаем один из символов  . ; ! ?
        s = string.gsub(s,'!','!\3')
        s = string.gsub(s,';',';\3')
        s = string.gsub(s,'%?','?\3')
        s = string.gsub(s,'%.','.\3')
        a = string.split(s,'\3')
    else  -- фрагменты собираются из абзацев
        a = string.split(s,'\r')
    end  
    local b = {}
    local m = 0
    local c = ''
    local j = 1
    for i = 1,#a do  -- создаем список фрагментов
        if (m >= fragsize) or (i ==#a) then
            b[j] = c
            c = a[i]
            m = 0
            j = j+1
        else
            m = m+#a[i]
            if not parag then c = c..a[i] else c = c..'\r'..a[i] end
        end
    end
    return b
end

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

s = WText(WActive())
b = Fragments(s,6000)
for i = 1,#b do
    fname = 'work\\extract\\N'.. string.format("%04d",i)..'.txt'
    SaveToFile({b[i]},fname)
end

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

ext = ".txt"
-- стартовый каталог
path = "C:\\books\\" 
-- или:
-- path = Folders("caption", "C:\\books\\")

function recursion_dirs(path, dmask, dir_table)
    if type(path) ~= "string" then return nil end
    if path:sub(-1,-1) ~= "\\" then path = path.."\\" end
    local dir_table = dir_table or {path}
    local collection = AllFolders(path, dmask)
    if #collection ~= 0 then
        for _,i in pairs(collection) do
            if i ~= "." and i ~= ".." then
                local i_path = path..i.."\\"
                dir_table[#dir_table+1] = i_path
                recursion_dirs(i_path,dmask,dir_table)
            end
        end
    end
    return dir_table
end

-- получаем все подкаталоги
all_subdirs = recursion_dirs(path)

-- таблица для списка файлов
all_files_with_ext = {}

-- получаем все файлы, с заданным расширением (ext = ".txt"), находящиеся в подкаталогах из списка, и заносим их полные пути в таблицу.
for _,i in pairs(all_subdirs) do 
    for j, k in pairs(AllFiles(i,ext)) do
        table.insert(all_files_with_ext,i..k)
    end
end

-- распечатываем список путей
for _,i in pairs(all_files_with_ext) do print(i) end

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

-- Деление текста на фрагменты заданного размера (в символах) 
function Fragments(s,fragsize,parag)
    local a
    s = string.gsub(s,'\9',' ')  -- табуляция ==> пробел
    s = string.gsub(s,'%.%.%.','\133')  -- 3 точки подряд ==> символ "многоточие"
    if not parag then  -- фрагменты собираются из предложений 
        -- вставляем разделительный символ в конце каждого предложения
        -- концом предложения считаем один из символов  . ; ! ?
        s = string.gsub(s,'!','!\3')
        s = string.gsub(s,';',';\3')
        s = string.gsub(s,'%?','?\3')
        s = string.gsub(s,'%.','.\3')
        a = string.split(s,'\3')
    else  -- фрагменты собираются из абзацев
        a = string.split(s,'\r')
    end  
    local b = {}
    local m = 0
    local c = ''
    local j = 1
    for i = 1,#a do  -- создаем список фрагментов
        if (m >= fragsize) or (i ==#a) then
            b[j] = c
            c = a[i]
            m = 0
            j = j+1
        else
            m = m+#a[i]
            if not parag then c = c..a[i] else c = c..'\r'..a[i] end
        end
    end
    return b
end
--------------------------------------------------------------------------------
s = WText(WActive())
b = Fragments(s,6000)
for i = 1,#b do
    fname = 'work\\extract\\N'.. string.format("%04d",i)..'.txt'
    SaveToFile({b[i]},fname)
end

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

cap = 'Выключить компьтер после записи аудио?'
itms = {' ДА',' НЕТ'}
a = Menu(cap,itms)
if a == 0 then goto HALT end
if a == 1 then 
ShowMessage('После записи аудио, ПК будет выключен!')
end
ind = WActive()  -- получить номер текущего окна
confirm = WAudio(ind) -- записать в аудио текущеее окна
if (a == 1) and confirm then
os.execute('shutdown /s') -- выключить компьютер
end
::HALT::