MyTTS

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

Упражнение номер один, начали

Кто там, вдалеке? Who is there, far away? Who is there, far away?
Это - ковбой Неуловимый Джо. This is the cowboy Elusive Joe. This is the cowboy Elusive Joe.
Неужели никто не может поймать его? Can no one catch him? Can no one catch him?
Да, его никто не может поймать. Yes, no one can catch him. Yes, no one can catch him.
Но, почему? But why? But why?
Потому что он - никому не нужен! Because nobody needs him! Because nobody needs him!

Конец упражнения

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

-- ЗАПИСЬ РУССКО-АНГЛИЙСКОГО АУДИО ДЛЯ ТЕКСТА В АКТИВНОЙ ВКЛАДКЕ
-- Дано: русские фразы чередуются с их английским переводом; английский
-- перевод повторяется дважды с 2-х секундной паузой; перед произнесением
-- перевода необходима пауза 4 секунды - чтобы ученик успел предложить
-- свой вариант перевода, а затем услышал правильный

-- запоминаем параметры первоначально активного голоса
vName, vRate, vPitch, vVolume = Voice()

k = WActive()  -- номер активного окна

-- на время работы скрипта включить многоязычный режим
o = {}
o.Reading_Multilingva = true
Settings(o)

-- настройка голосов (скорость, тембр, громкость не указаны, по умолчанию 0,0,100)
ru = 'Pavel'
en = 'Zira'

-- временные словари для пауз (их можно создать где угодно, не обязательно в папке dic)
h = HomeFolder('dic')
SaveToFile({[[([\.\?\!]+)=<silence msec="4000"/>$1]]},h..'tmp_pause4.rex')
SaveToFile({[[([\.\?\!]+)=<silence msec="2000"/>$1]]},h..'tmp_pause2.rex')

-- привязать словари к голосам (если путь не указан, то подразумевается стандартная папка ..\dic)
d = {}
d[Voice('Pavel')] = {'tmp_pause4.rex'}
d[Voice('Zira')] = {'tmp_pause2.rex'}

-- копию текста в активной вкладке разметить и поместить в Статистику 
WMarkup(k,0,ru,en)

-- словарные замены во вкладке Статистика
WFilter(0,0,d)
--WActive(0) -- для просмотра во время отладки!

-- запись двуязычного аудио по тексту в Статистике
-- т.к. измененный текст не был сохранен, то имя аудиофайла 
-- генерируется автоматически из даты и времени)
WAudio(0)

-- удалить временные словари
os.remove(h..'tmp_pause4.rex')
os.remove(h..'tmp_pause2.rex')

-- восстановить активность первоначального голоса
SetVoice(vName,vRate,vPitch,vVolume)

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

\b(Глава|Параграф)\s+([IVXХMDLC]+|\d+)=_$1 $2

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

^(.+)$=$1_

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

^(\x20*)(\d+)(\x20*)$=$1_Глава $2$3

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

Всё верно?
Все верно,
Всё верно,
Всё верно.
Все верно?
Все верно.

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

?онрев ёсВ
,онрев есВ
,онрев ёсВ
.онрев ёсВ
?онрев есВ
.онрев есВ

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

s = WText(1).."\r" -- в окне 1 содержится тестовый текст
local r = [[^.+$]]
local k = 1
local temp = ''
local fnd = ''

--Поиск по регулярному выражению:
while k > 0 do
CancelScript() -- проверка на прерывание скрипта пользователем
fnd, k = RexMatch(s,r,k) -- ищем текст по регулярному выражению

--ИНВЕРСИЯ найденного текста из переменной fnd
local z=#fnd
local fnd0=""
while z > 0 do
fnd0 = fnd0..string.sub(fnd,z,z)
z=z-1
end

--склеиваем результат
temp=temp..fnd0.."\r"  -- разделитель по умолчанию
if k > 0 then k = k+#fnd+1  end
end

print(temp)

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

--ИНВЕРСИЯ найденного текста из переменной fnd
local fnd0 = string.reverse(fnd)

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

s=WText(1)
k=1
u=1
while k < #s do -- до конца текста
fnd,k = RexMatch(s,{[[^[^_]{0,1000}[\r\n]]]},k)
if fnd>0 then
u=u+1
end
end
print(fnd,k)

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

-- поиск длинных абзацев в тексте
s = WText(1)
r = [[^.{1000,}$]]
u = {}  -- для запоминания найденного
k = 1
while k > 0 do
    fnd, k = RexMatch(s,r,k)
    if k > 0 then
        u[#u+1] = fnd
        k = k+#fnd+1
    end
end
-- если таблица найденного не пуста, то для примера напечатаем 1-е 
if #u > 0 then 
    print(u[1])
end

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

chcp 866
echo тестовый кириллический текст
pause

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

exec_string=[[notepad.exe d:\русскиебуквы.txt]]
os.execute(exec_string)
ShowMessage(exec_string)

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

exec_string=[[notepad.exe d:\русскиебуквы.txt]]
SaveToFile({exec_string},'d:\\1.bat')
os.execute('d:\\1.bat')
ShowMessage(exec_string)

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

--[[
1251: А  - Я а - п  192 - 239
866:   А  - Я а - п  128 - 175
1251: р-я  240 - 255
866:   р-я  224 - 239
1251: Ё- 168 ё - 184
866:   Ё- 240 ё - 241
]]
function WinToDos(s)
    local  str = ''
    for i=1, string.len(s) do
        local byte = s:byte(i)
        local b = byte
        if (byte >= 192 and byte <= 239) then  b =  byte-64       
        elseif  (byte >= 240 and byte <= 255 ) then  b = byte-16
        elseif byte == 168 then b=240  --Ё
        elseif byte == 184 then b=241  --ё
        end
        str = str..string.char(b)
    end
    return str  
end

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

s = [[русскиебуквы]]
s = WinToDos(s)
print(s)

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

function DosToWin(s)
    local str = ''
    for i=1, string.len(s) do
        local byte = s:byte(i)
        local b = byte
        if (byte >= 128 and byte <= 175) then b =  byte+64       
        elseif  (byte >= 224 and byte <= 239 ) then b = byte+16
        elseif byte == 240 then b=168  --Ё
        elseif byte == 241 then b=184  --ё
        end
        str = str..string.char(b)
    end
    return str  
end

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

s = [[агббЄЁҐЎгЄўл]]
s = DosToWin(s)
print(s) 

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

numberstart = 10
numberstart = Input('Установка таймера ПРИНУДИТЕЛЬНОГО отключения ПК в минутах:',{'Отключить ПК через (минут):'..'='..numberstart})
if numberstart == nil then goto HALT end
numberstart = tonumber(numberstart[1]) -- превращаем в число!
os.execute('shutdown /s /t '..(numberstart*60)..' /f /c "Demagog Script: До отключения ПК осталось: '..numberstart..' минут! Для отмены введите в командной строке: shutdown /a "')  
::HALT::

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

-- вычисляемое поле ввода
header = 'Заголовок'
itms = {'Время, мин=10'}
a = Input(header,itms)
s = 't = '..a[1]
f = load(s)  -- возвращено значение типа function
if f then 
    f()  -- выполняем ф-цию f, теперь у переменной t есть значение
    ShowMessage(t)
end

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

-- пример использования
z = os.clock()
s = WText(1)
s = ParagsLimitation(s,500)
-- вставляем двойные пустые строки для наглядности разбиения абзацев
s = string.gsub(s,'\r','\r\r')
print('время выполнения, сек: '..(os.clock()-z))
print()
print(s)

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

-- пример вывода сообщения пользователю в Строку состояния
local bk = BreakKeyName()
if CurrentLang() == 'Russian' then
    mess1 = 'Идет расчет '
    mess2 = ' Прервать '
else
    mess1 = 'Calculation '
    mess2 = ' Interrupt '
end
if bk then bk = mess2..bk else bk = '' end
StatusMessage(mess1..bk)

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

n=WStat(1, -1 slovar.rex, true) -- к окну 1 применить словарь slovar.rex результат поместить в буферное окно -1
r=WText(-1)--результат из буферного окна в переменную
print(n)--выводим измененный текст
print(r)--выводим список правил

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

s=WText(1)
WNew(-1,s)
WStat(-1, -2, "slovar1.rex", true)--получаем список сработавших правил slovar1.rex
WSeries(-1, -1, "slovar1.rex", true)--изменяем текст словарём slovar1.rex
WAdd(0,-1)--добавляем в статистику обновленный текст
WAdd(0,-2)--добавляем в статистику правила из slovar1.rex изменившие текст
WStat(-1, -2, "slovar2.rex", true)-- к измененному тексту выводим правила из словаря slovar2.rex
WSeries(-1, -1, "slovar2.rex", true)--изменяем текст следущим словарем slovar2.rex
WAdd(0,-1)
WAdd(0,-2)

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

-- "Формат - Количество вкладок" указано 10
-- т.е. видны вкладки 1 2 3 4 5 6 7 8 9 0
-- Как записать информацию в невидимую вкладку A?
WNew(10)
WAdd(10,'Петр Петрович Гарин изобрел гиперболоид.\r')
WAdd(10,'Но, ничего хорошего из этого не вышло...\r')
s = WText(10)
ShowMessage(s)  -- проверяем запись информации во вкладку 
WSave(10,'Гарин.txt')  -- сохраняем из невидимой вкладки в файл
WAudio(10)  -- БУДЕТ ИГНОРИРОВАНО!

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

-- ПРИМЕР ПОЛЬЗОВАТЕЛЬСКОГО МЕНЮ
-- (идея и первоначальная реализация: tonio_k)

-- внешний вид пометки пункта меню
mark = '(•)'
unmark = '( )'
--mark = '[x]'
--unmark = '[  ]'

menu_inifile = '123.mnu' -- куда сохранять настройки меню

-- читаем настройки из файла или задаем по умолчанию
-- false - пункт не отмечен
-- true - пункт отмечен
-- nil - не отмечаемый пункт!
if FileExists(menu_inifile) then
  m = table.load(menu_inifile)
else
  m = {}
  m.checked = {false,false,false,nil,false,nil,nil,nil} 
  m.duration = 5 
end

-- задаем меню с разделительной линией и пункт по умолчанию
caption = ' Выбрать пункт для редактирования или выполнить с текущими настройками'
items = {
'Обработать обычными словарями',
'Обработать словарями (fonems)',
'Записать в аудио MP3',
'Время аудиозаписи ~ 5 мин.',
'Выключить ПК по завершению работы',
string.rep('\150',75),
'Сохранить настройки и выйти',
'Выполнить с текущими настройками'
}
ind = 7

-- МЕНЮ С ПОМЕТКАМИ (ДОБАВИТЬ/СНЯТЬ ПОМЕТКУ: OK ИЛИ ENTER ИЛИ DBL CLICK) --

-- добавляем пометки в пункты, в соответствии с прочитанным из настроек
for i = 1,#items do
    if m.checked[i] == true then items[i] = mark..' '..items[i] end
    if m.checked[i] == false then items[i] = unmark..' '..items[i] end             
end
--
items[4] = 'Время аудиозаписи ~ '..m.duration..' мин.'

::START::

a = Menu(caption,items,ind)
if a == 0 then goto HALT end

-- меняем пометку на выбранном пункте, если он - отмечаемый
if m.checked[a] == false then
    items[a] = mark..' '..string.sub(items[a],#unmark+2,#items[a])
    m.checked[a] = true
else if m.checked[a] == true then
    items[a] = unmark..' '..string.sub(items[a],#mark+2,#items[a])
    m.checked[a] = false
end end

-- выполняем действия, назначенные на выбранный НЕ отмечаемый пункт
if a == 4 then
    -- назначаем время звучания аудио и прописываем его в пункте меню
    m.duration = m.duration+5
    k = Menu('Примерное время звучания, мин',{5,10,15,20,25,30},1)
    if k == 0 then goto START end
    m.duration = 5*k
    items[a] = 'Время аудиозаписи ~ '..m.duration..' мин.'
end
if a == 7 then
    -- сохраняем настройки меню и выходим
    table.save(m,menu_inifile) 
    goto HALT
end
if a == 8 then
    -- имя функции, выполняющей требуемое действие или команда dofile(...)
    -- ...
    goto HALT
end

goto START

::HALT::

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

a = Input('Настройка конвертации',{'Параметры'..'='.."ffmpeg.exe|-loglevel -8 -y -i %1 -af atempo=1.0 -b:a 64k %2|mp3"})

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

-- Скрипт, консолидирующий статистику частотности строк из вкладки 1 в 0
-- Каждая запись исходного списка имеет вид: частота|строка
-- При этом строки справа от | могут дублироваться
-- После обработки дубликаты будут удалены, частоты просуммированы 

-- вспомогательные функции
function DelUtf8BOM(s)
    local bom = '\239\187\191'
    if string.sub(s,1,3) == bom then s = string.sub(s,4,#s) end
    return s
end

function AddUtf8BOM(s)
    return '\239\187\191'..s
end


-- основная процедура

os.setlocale('', 'ctype') -- для работы с национальной локалью

-- заботимся о сохранении юникодных символов
o = {}
o.File_Encoding = feUTF8
Settings(o)

WSave(1,'tmp.txt')
a = LoadFromFile('tmp.txt')
a[1] = DelUtf8BOM(a[1])

-- консолидируем статистику
c = {}
for i = 1,#a do
    b = string.split(a[i],'|')
    if #b > 1 then
        if c[b[2]] == nil then
            c[b[2]] = tonumber(b[1])
        else
            c[b[2]] = c[b[2]]+tonumber(b[1])
        end
    end
end

d = ''
for k, v in pairs(c) do
    d = d..v..'|'..k..'\r'
end

-- опять же, заботимся о юникоде
AddUtf8BOM(d)
SaveToFile({d},'tmp.txt')

-- готово!
WOpen(0,'tmp.txt')

os.setlocale('C')  -- вернуть стандартную локаль

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

18|вася=Вася
1|вася=Вася
3|вася=Вася
4|вася=Вася
3|毛泽东=Мао Цзедун
10|маша=Маша
1|маша=Маша
13|маша=Маша
1|毛泽东=Мао Цзедун
13|коля=Коля

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

13|коля=Коля
24|маша=Маша
4|毛泽东=Мао Цзедун
26|вася=Вася

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

-- Функция, консолидирующий статистику частотности строк из вкладки i в j
-- Каждая запись исходного списка в i имеет вид: ЧастотаРазделительСтрока
-- При этом строки справа от Разделитель могут дублироваться.
-- После обработки дубликаты будут удалены, частоты просуммированы
function FreqConsolidate(i, j, delim, tmpfile)
    if delim == nil then delim = '|' end
    if tmpfile == nil then tmpfile = 'tmp.txt' end

    -- вспомогательные функции
    local function DelUtf8BOM(s)
        local bom = '\239\187\191'
        if string.sub(s,1,3) == bom then s = string.sub(s,4,#s) end
        return s
    end

    local function AddUtf8BOM(s)
        return '\239\187\191'..s
    end

    -- основная процедура

    os.setlocale('', 'ctype') -- для работы с национальной локалью

    -- заботимся о сохранении юникодных символов
    local o = {}
    o.File_Encoding = feUTF8
    Settings(o)

    WSave(i,tmpfile)
    local a = LoadFromFile(tmpfile)
    a[1] = DelUtf8BOM(a[1])

    -- консолидируем статистику
    local c = {}
    local b
    for i = 1,#a do
        b = string.split(a[i],delim)
        if #b > 1 then
            if c[b[2]] == nil then
                c[b[2]] = tonumber(b[1])
            else
                c[b[2]] = c[b[2]]+tonumber(b[1])
            end
        end
    end

    local d = ''
    for k, v in pairs(c) do
        d = d..v..delim..k..'\r'
    end

    -- опять же, заботимся о юникоде
    AddUtf8BOM(d)
    SaveToFile({d},tmpfile)

    -- готово!
    WOpen(j,tmpfile)
    if i ~= j then WNew(i) end

    os.setlocale('C')  -- вернуть стандартную локаль
end

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

FreqConsolidate(0,0) -- по умолчанию разделитель: '|'; врем. файл: tmp.txt

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

18|вася=Вася
1|вася=Вася
3|вася=Вася
4|вася=Вася
3|毛泽东=Мао Цзедун
10|маша=Маша
1|маша=Маша
13|маша=Маша
1|毛泽东=Мао Цзедун
13|коля=Коля

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

24|маша=Маша
4|毛泽东=Мао Цзедун
26|вася=Вася
13|коля=Коля

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

FreqConsolidate(0, 0, '\9') -- врем. файл по умолчанию будет tmp.txt

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

SaveToFile({exec_string},'d:\\1.bat')
os.execute('iconv.exe -c -f UTF-8 -t CP866 d:\\1.bat > d:\\1_866.bat')
os.execute('d:\\1_866.bat')

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

--Настройки по умолчанию:
if not FileExists('$MySettings.txt') then
	t = {}
	t.simbol = 10000
	t.Mess = 'Внимание, проверить на ошибки!'
	t.file = [[dic\СПИСОК СЛОВАРЕЙ 03 DIC СЛОВАРИ.lua]]
	t.Ans = false
	table.save(t,'$MySettings.txt')-- сохраняем таблицу в файл
end

-- читаем таблицу (другое имя взято для чистоты эксперимента) из файла
d = table.load('$MySettings.txt')

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

--Настройки по умолчанию:
if not FileExists('$MySettings.txt') then
	t = {}
	t.Mess = 'Внимание, проверить на ошибки!'
	t.file = [[dic\СПИСОК СЛОВАРЕЙ 03 DIC СЛОВАРИ.lua]]
	t.Ans = false
	t.Use = "новое значение"
	table.save(t,'$MySettings.txt')-- сохраняем таблицу в файл
end

-- читаем таблицу (другое имя взято для чистоты эксперимента) из файла
d = table.load('$MySettings.txt')

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

-- реформировать таблицу d по образцу t
function Reform(d, t)
    -- удалить из d то, чего больше нет в t
    for k,v in pairs(d) do
        if t[k] == nil then d[k] = nil end
    end
    -- добавить в d, то что появилось новое в t
    for k,v in pairs(t) do
        if d[k] == nil then d[k] = v end
    end
    return d
end

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

-- тест
d = Reform(d,t)
table.save(d,'debug.txt') -- посмотрим на результат