MyTTS

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

WNew(0)
local sox = string.format('"%ssox.exe"',HomeFolder('sox'))
local tmp_bat = string.format('%s\\%s', os.getenv("TEMP"),"tmp.bat")

local homedir = Folders("ВЫБЕРИТЕ ПАПКУ С MP3 для изменения скорости воспроизведения\n", '', true)
if not homedir then goto HALT end

local a = AllFiles(homedir,'*.mp3')
for i = 1,#a do
  if FileExists(homedir..a[i]) then
    local in_file = string.format('%s%s', homedir, a[i])
    local out_file = string.format('%stemp_%s', homedir, a[i])
    local doscomand = string.format('%s -G --multi-threaded -q "%s" -C 64.01 "%s" tempo -s 1.1', sox, in_file, out_file)
    SaveToFile({doscomand}, tmp_bat)
    if FileExists(tmp_bat) then
      os.execute("chcp 1251 | "..tmp_bat)
      os.remove(tmp_bat)
--      os.remove(in_file) 
--      os.rename(out_file, in_file)
      msg = string.format("УСПЕШНО: %s\n", in_file)
      WLog(msg)
    else
      err_msg = string.format("ОШИБКА: Файл %s не был создан\nИсходное аудио %s не обработан\n",tmp_bat, in_file)
      WLog(err_msg)
      ShowMessage(err_msg)
      goto HALT 
    end
  end 
end
::HALT::

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

WActive(1)
local home = HomeFolder()
local ini_path = home..'$.cfg'
local ini = LoadFromFile(ini_path,true)
os.rename (ini_path, ini_path.."_bkp")

for i=1,#ini do
    if string.match(ini[i],'^Encoder=') ~= nil then
        ini[i] = string.format("Encoder=%ssox\\sox.exe",home)
    elseif string.match(ini[i],'^AllParam=') ~= nil then
        ini[i] = 'AllParam=-G --multi-threaded -q %1 -C 64.01 %2 tempo -s 1.1'
    elseif string.match(ini[i],'^AudioType=') ~= nil then
        ini[i] = 'AudioType=mp3'
    end
end

SaveToFile(ini,ini_path.."_mod")
os.rename (ini_path.."_mod", ini_path)
os.exit()

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

-- печать всех строк текста из окна 1, отвечающих заданному регулярному выражению
-- поиск идет с учетом регистра (символ @ в начале РВ)
s = WText(1)
r = [[@^[^\=]*\=[^\=]*вОрон\b[^\=]*$]]
k = 1
while k > 0 do
    fnd, k = RexMatch(s,r,k)
    print(fnd)
    if k > 0 then k = k+#fnd+1  end
end

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

-- печать всех фрагментов текста из окна 2, отвечающих заданному dic-правилу
-- поиск, в данном случае, идет без учета регистра
s = WText(2)
r = [[все * *ло]]
k = 1
while k > 0 do
    fnd, k = DicMatch(s,r,k)
    print(fnd)
    if k > 0 then k = k+#fnd  end
end

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

-- печать всех строк текста из окна 1, отвечающих заданному регулярному выражению
-- поиск идет с учетом регистра (символ @ в начале РВ)
ind = WActive()
s = WText(ind)
header = 'Поиск фрагментов текста'
askname = 'Регулярное выражение (REX):'
defname = [[@^[^=]*\=[^=]*шаблОн[^=]*$]]

if FileExists('#RexFind.@') then 
    fnd = LoadFromFile('#RexFind.@')[1]
else
    fnd = defname
end

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

SaveToFile({fnd},'#RexFind.@')

WNew(0)
r = fnd
k = 1
while k > 0 do
    fnd, k = RexMatch(s,r,k)
    print(fnd)
    if k > 0 then k = k+#fnd+1  end
end
WActive(0)
::HALT::