тогда рассмотрите такое пожелание:
Код: Выделить всё
s = WText(1) -- в окне 1 содержится тестовый текст
a = string.split(s,'\r')
for i = 1,#a-1 do
if (#a[i] ~= #a[i+1]) or (string.sub(a[i],-5) ~= string.sub(a[i+1],-5)) then
a[i] = a[i]..'\r'
end
end
s = table.concat(a,'\r')
print(s)
Изменён скрипт YaTTS.lua - при "склейке" аудиофрагментов именование файлов теперь имеет вид "имя файла книги_nnnn.mp3", где nnnn - порядковый номер. Если была запущена озвучка несохранённой вкладки, то именование имеет вид "tmp_doc_nnnn.mp3"
Demagog+YandexTTS.zipКод: Выделить всё
local function TextSortAndDelDubl(dubltext)
local r = string.split(dubltext,'\r') -- преобразовываем текст в ТАБЛИЦУ
r = table.sortuniq(r) -- сортируем и удаляем дубликаты в ТАБЛИЦЕ
r = table.concat(r,'\r') -- преобразовываем ТАБЛИЦУ в текст
return r
end
s=WText(1) -- применить к окну 1
s=TextSortAndDelDubl(s) -- удаляем дубликаты
print(s)
. Мда... это исключение с Ё надо как то запомнить 
На текущий момент связка "Demagog + Яндекс TTS-скрипты" работает только со "старой" версией сервиса, где используется ключ разработчика.
Можно:
Код: Выделить всё
--буфер в переменную
s = Clipboard()
--изменяем s
s = "изменён_"..s
--переменную в буфер
Clipboard(s)пожелание к доработке: склеивание аудио файлов что бы происходило в одном окне (без мелькания открывания и закрывания окон к каждому файлу) Может это можно сделать через применение консольной команды к предварительно созданному созданному плейлисту?
Код: Выделить всё
tom = 1 -- начальная нумерация тома
tom = Input('АВТОМАТИЧЕСКАЯ НУМЕРАЦИЯ',{'Начать нумерацию с цифры:'..'='..tom})
tom = tom[1]
print(tom+1)Код: Выделить всё
tom = math.floor(tom[1]) -- округление до целого числа
Код: Выделить всё
tom = 1 -- начальная нумерация тома
tom = Input('АВТОМАТИЧЕСКАЯ НУМЕРАЦИЯ',{'Начать нумерацию с цифры:'..'='..tom})
tom = tom[1]
print(type(tom)) -- увидим, что тип введенного значения - строка!
print(tom) -- печать строки tom
print(tom+1) -- автоматическое преобразование результата в число и печать
Код: Выделить всё
tom = 1 -- начальная нумерация тома
tom = Input('АВТОМАТИЧЕСКАЯ НУМЕРАЦИЯ',{'Начать нумерацию с цифры:'..'='..tom})
tom = tonumber(tom[1]) -- номер тома - число!
print(type(tom))
print(tom)
print(tom+1)
так как любая ошибка в lua (в скрипте или в функции) останавливает выполнение скрипта - решил взять эту особенность на вооружение:
Код: Выделить всё
--ФУНКЦИИ:
function CancelScript()
local txt_cancel = 'ПОЛЬЗОВАТЕЛЬ ВРУЧНУЮ ПРЕРВАЛ РАБОТУ СКРИПТА!'
if Cancel() then
Gauge(0) -- убираем зеленую полосу прогресса
StatusMessage(txt_cancel)
error('\r\r\r'..AnsiToUtf8(txt_cancel,true)..'\r\r',0)
end
end
function AnsiToUtf8(s,hasbom)
local q = {}
local bom = '\239\187\191'
local u, a, b, k
-- russian unicode table
q['А'] = 1040
q['Б'] = 1041
q['В'] = 1042
q['Г'] = 1043
q['Д'] = 1044
q['Е'] = 1045
q['Ж'] = 1046
q['З'] = 1047
q['И'] = 1048
q['Й'] = 1049
q['К'] = 1050
q['Л'] = 1051
q['М'] = 1052
q['Н'] = 1053
q['О'] = 1054
q['П'] = 1055
q['Р'] = 1056
q['С'] = 1057
q['Т'] = 1058
q['У'] = 1059
q['Ф'] = 1060
q['Х'] = 1061
q['Ц'] = 1062
q['Ч'] = 1063
q['Ш'] = 1064
q['Щ'] = 1065
q['Ъ'] = 1066
q['Ы'] = 1067
q['Ь'] = 1068
q['Э'] = 1069
q['Ю'] = 1070
q['Я'] = 1071
q['Ё'] = 1025
--
q['а'] = 1072
q['б'] = 1073
q['в'] = 1074
q['г'] = 1075
q['д'] = 1076
q['е'] = 1077
q['ж'] = 1078
q['з'] = 1079
q['и'] = 1080
q['й'] = 1081
q['к'] = 1082
q['л'] = 1083
q['м'] = 1084
q['н'] = 1085
q['о'] = 1086
q['п'] = 1087
q['р'] = 1088
q['с'] = 1089
q['т'] = 1090
q['у'] = 1091
q['ф'] = 1092
q['х'] = 1093
q['ц'] = 1094
q['ч'] = 1095
q['ш'] = 1096
q['щ'] = 1097
q['ъ'] = 1098
q['ы'] = 1099
q['ь'] = 1100
q['э'] = 1101
q['ю'] = 1102
q['я'] = 1103
q['ё'] = 1105
--
u = ''
for i = 1,#s do
b = string.sub(s,i,i)
if string.byte(b) < 128 then
u = u..b
else
k = q[b]
if k == nil then a = '?' else a = utf8.char(k) end
u = u..a
end
end
if hasbom then u = bom..u end
return u
end
Код: Выделить всё
-- ПРИМЕР
for i = 1,1000000000 do
a = i
CancelScript()
end
::HALT::
ShowMessage(a)Код: Выделить всё
-- Cancel script when user pressed global hotkey Break
function CancelScript()
local msg, umsg
if CurrentLang() == 'Russian' then
msg = 'СКРИПТ ПРЕРВАН ПОЛЬЗОВАТЕЛЕМ!'
umsg = AnsiToUtf8(msg,true)
else
msg = 'SCRIPT TERMINATED BY USER!'
umsg = msg
end
if Cancel() then
Gauge(0) -- remove progress bar (if was activated)
StatusMessage(msg)
error(umsg..'\r\r',0)
end
end
Код: Выделить всё
-- Full convert ANSI <---> UTF-8 for cp1251 code page --
local ansi_decode={
[128]='\208\130',[129]='\208\131',[130]='\226\128\154',[131]='\209\147',[132]='\226\128\158',[133]='\226\128\166',
[134]='\226\128\160',[135]='\226\128\161',[136]='\226\130\172',[137]='\226\128\176',[138]='\208\137',[139]='\226\128\185',
[140]='\208\138',[141]='\208\140',[142]='\208\139',[143]='\208\143',[144]='\209\146',[145]='\226\128\152',
[146]='\226\128\153',[147]='\226\128\156',[148]='\226\128\157',[149]='\226\128\162',[150]='\226\128\147',[151]='\226\128\148',
[152]='\194\152',[153]='\226\132\162',[154]='\209\153',[155]='\226\128\186',[156]='\209\154',[157]='\209\156',
[158]='\209\155',[159]='\209\159',[160]='\194\160',[161]='\209\142',[162]='\209\158',[163]='\208\136',
[164]='\194\164',[165]='\210\144',[166]='\194\166',[167]='\194\167',[168]='\208\129',[169]='\194\169',
[170]='\208\132',[171]='\194\171',[172]='\194\172',[173]='\194\173',[174]='\194\174',[175]='\208\135',
[176]='\194\176',[177]='\194\177',[178]='\208\134',[179]='\209\150',[180]='\210\145',[181]='\194\181',
[182]='\194\182',[183]='\194\183',[184]='\209\145',[185]='\226\132\150',[186]='\209\148',[187]='\194\187',
[188]='\209\152',[189]='\208\133',[190]='\209\149',[191]='\209\151'
}
local utf8_decode={
[128]={[147]='\150',[148]='\151',[152]='\145',[153]='\146',[154]='\130',[156]='\147',[157]='\148',[158]='\132',[160]='\134',[161]='\135',[162]='\149',[166]='\133',[176]='\137',[185]='\139',[186]='\155'},
[130]={[172]='\136'},
[132]={[150]='\185',[162]='\153'},
[194]={[152]='\152',[160]='\160',[164]='\164',[166]='\166',[167]='\167',[169]='\169',[171]='\171',[172]='\172',[173]='\173',[174]='\174',[176]='\176',[177]='\177',[181]='\181',[182]='\182',[183]='\183',[187]='\187'},
[208]={[129]='\168',[130]='\128',[131]='\129',[132]='\170',[133]='\189',[134]='\178',[135]='\175',[136]='\163',[137]='\138',[138]='\140',[139]='\142',[140]='\141',[143]='\143',[144]='\192',[145]='\193',[146]='\194',[147]='\195',[148]='\196',
[149]='\197',[150]='\198',[151]='\199',[152]='\200',[153]='\201',[154]='\202',[155]='\203',[156]='\204',[157]='\205',[158]='\206',[159]='\207',[160]='\208',[161]='\209',[162]='\210',[163]='\211',[164]='\212',[165]='\213',[166]='\214',
[167]='\215',[168]='\216',[169]='\217',[170]='\218',[171]='\219',[172]='\220',[173]='\221',[174]='\222',[175]='\223',[176]='\224',[177]='\225',[178]='\226',[179]='\227',[180]='\228',[181]='\229',[182]='\230',[183]='\231',[184]='\232',
[185]='\233',[186]='\234',[187]='\235',[188]='\236',[189]='\237',[190]='\238',[191]='\239'},
[209]={[128]='\240',[129]='\241',[130]='\242',[131]='\243',[132]='\244',[133]='\245',[134]='\246',[135]='\247',[136]='\248',[137]='\249',[138]='\250',[139]='\251',[140]='\252',[141]='\253',[142]='\254',[143]='\255',[144]='\161',[145]='\184',
[146]='\144',[147]='\131',[148]='\186',[149]='\190',[150]='\179',[151]='\191',[152]='\188',[153]='\154',[154]='\156',[155]='\158',[156]='\157',[158]='\162',[159]='\159'},[210]={[144]='\165',[145]='\180'}
}
local nmdc = {
[36] = '$',
[124] = '|'
}
function AnsiToUtf8(s, hasbom)
local bom = '\239\187\191'
local r, b = ''
for i = 1, s and s:len() or 0 do
b = s:byte(i)
if b < 128 then
r = r..string.char(b)
else
if b > 239 then
r = r..'\209'..string.char(b - 112)
elseif b > 191 then
r = r..'\208'..string.char(b - 48)
elseif ansi_decode[b] then
r = r..ansi_decode[b]
else
r = r..'_'
end
end
end
if hasbom then r = bom..r end
return r
end
function Utf8ToAnsi(s)
local bom = '\239\187\191'
local a, j, r, b = 0, 0, ''
if string.sub(s,1,3) == bom then s = string.sub(s,4,#s) end
for i = 1, s and s:len() or 0 do
b = s:byte(i)
if b < 128 then
if nmdc[b] then
r = r..nmdc[b]
else
r = r..string.char(b)
end
elseif a == 2 then
a, j = a - 1, b
elseif a == 1 then
a, r = a - 1, r..utf8_decode[j][b]
elseif b == 226 then
a = 2
elseif b == 194 or b == 208 or b == 209 or b == 210 then
j, a = b, 1
else
r = r..'_'
end
end
return r
end
-- End of full convert ANSI <---> UTF-8 --
Код: Выделить всё
-- ПРОВЕРКА PLS-СЛОВАРЯ НА ДУБЛИКАТЫ
-- Важно! Файл словаря должен быть в кодировке UTF-8
fname = 'ЙЦУКЕН.pls' -- файл словаря, укажите свой
a = LoadFromFile(fname) -- побайтная загрузка файла в кодировке ansi или utf-8
s = table.concat(a,'\r') -- словарь загружен в строку s
-- При попытке отобразить такую utf8-строку командами print() или ShowMessage()
-- на месте кириллицы и МФА-транскрипции будут кракозябры. Но, можно сохранить в файл :)
--SaveToFile({s},'sss.txt') -- отладочная проверка!
-- Список секций словаря
a = {}
pos = 1
for i = 1,#s do
k, z = string.find(s,'<lexeme>',pos,true)
if k then
pos = z+1
ke, ze = string.find(s,'</lexeme>',pos,true)
if ke then
b = string.sub(s,k,ze)
a[#a+1] = b
pos = ze+1
end
end
end
table.sort(a)
-- В сортированном списке секций дубликаты идут подряд
d = {}
for i = 1,#a-1 do
if a[i] ~= '' then
for j = i+1,#a do
if a[j] == a[i] then -- найдена секция-дубликат
d[#d+1] = a[j]
a[j] = ''
else
break
end
end
end
StatusMessage('Проверено '..math.ceil(100*i/#a)..'%')
end
-- Сохраняем результат
SaveToFile(d,'_out_.txt')
ShowMessage(fname..'\r'..'Найдено дубликатов '..#d..'\r'..'Результат в файле _out_.txt')
StatusMessage('')
Интересно, а побайтное открытие быстрее будет, чем:a = LoadFromFile(fname) -- побайтная загрузка файла в кодировке ansi или utf-8
это я неудачный пример привел.
Код: Выделить всё
dic = HomeFolder('dic')
WOpen(0,dic..'70.ФОНЕМЫ Dopolneniya строчные.dic')
WAdd(-1,0)
WOpen(0,dic..'75.ФОНЕМЫ-ОМО.dic')
WAdd(-1,0)
WOpen(0,dic..'78.ФОНЕМЫ.dic')
WAdd(-1,0)
WNew(0)
WAdd(0,-1)
WSave(0,"#ФОНЕМЫ.dic")Код: Выделить всё
dic = HomeFolder('dic')
a1 = LoadFromFile(dic..'70.ФОНЕМЫ Dopolneniya строчные.dic')
s1 = table.concat(a1,'\r') -- словарь загружен в строку s
a2 = LoadFromFile(dic..'75.ФОНЕМЫ-ОМО.dic')
s2 = table.concat(a2,'\r') -- словарь загружен в строку s
a3 = LoadFromFile(dic..'78.ФОНЕМЫ.dic')
s3 = table.concat(a3,'\r') -- словарь загружен в строку s
s=s1..s2..s3
SaveToFile({s},'#ФОНЕМЫ.dic')Код: Выделить всё
local bom = '\239\187\191'
if string.sub(s,1,3) == bom then s = string.sub(s,4,#s) end
Код: Выделить всё
::Мои настройки::
simbol=10800
Mess=Внимание проверить на ошибки!
f_fail=dic\\СПИСОК СЛОВАРЕЙ 03 DIC СЛОВАРИ.lua
Код: Выделить всё
--Найти переменную в файле и получить её значение
function ReadValueFromFile(value,f_path)
local s = LoadFromFile(f_path,true)
s = table.concat(s, '\r') -- преобразовываем список в ТЕКСТ
f_peremen = value
start_pos, end_pos = string.find(s, "\013"..f_peremen.."=[^\r]+",1)
fnd = string.sub(s,start_pos,end_pos)
fnd = string.sub(s,start_pos+1+#f_peremen+1,end_pos)
return fnd
end
--Найти переменную в файле и ПЕРЕЗАПИСАТЬ её значение
function RewriteValueToFile(value,variable_value, f_path)
local s = LoadFromFile(f_path,true)
s = table.concat(s, '\r') -- преобразовываем список в ТЕКСТ
f_peremen = value
znach = variable_value
start_pos, end_pos = string.find(s, "\013"..f_peremen.."=[^\r\n]+",1)
s = string.sub(s,1,start_pos)..f_peremen.."="..znach..string.sub(s,end_pos,#s)
s = string.gsub(s, '\r', '\r\n')--что бы в блокноте нормально открывал
SaveToFile({s}, f_path)
return s
end
Код: Выделить всё
is="$мои переменные.txt"
simbol=ReadValueFromFile("simbol",is)--найти переменную в файле и присвоить значение
--simbol = tonumber(simbol)--переменную переводим в числовой формат
simbol=simbol-1
print(simbol)
RewriteValueToFile("simbol",simbol, is) -- перепишем полученное новое значение simbol
Код: Выделить всё
is="$мои переменные.txt"
f_fail=ReadValueFromFile("f_fail",is)--открыть файл по пути, взятого из файла с переменными
WOpen(0,f_fail)
, - не понятно, почему если в первом примере убрать ремарку у
Код: Выделить всё
--simbol = tonumber(simbol)-переменную переводим в числовой формат
Всё прекрасно работает: число в файле при каждом запуске уменьшается на 1, и совпадает с тем, которое отображается в окне "0 - Статистика". Независимо от того, заремлена или нет строка: simbol = tonumber(simbol)Код: Выделить всё
#Мои настройки
simbol=10800
Mess=Внимание проверить на ошибки!
f_fail=dic\\СПИСОК СЛОВАРЕЙ 03 DIC СЛОВАРИ.lua
Код: Выделить всё
--Найти переменную в файле по имени и получить её значение
-- Замечание. Имя переменной НЕ может начинаться с символа #
function ValueFromFile(name, f_path)
local t = LoadFromFile(f_path,true)
for i = 1,#t do
local a = string.split(t[i],'=')
if a[1] and string.sub(a[1],1,1) ~= '#' and a[1] == name then
return a[2]
end
end
end
--Найти переменную в файле и ПЕРЕЗАПИСАТЬ её значение
function ValueToFile(name, value, f_path)
local t = LoadFromFile(f_path,true)
for i = 1,#t do
local a = string.split(t[i],'=')
if a[1] == name then
t[i] = name..'='..value
end
end
SaveToFile(t,f_path)
end
--Пример 1
is = "$мои переменные.txt"
simbol = ValueFromFile("simbol",is)--найти переменную в файле и присвоить значение
simbol = tonumber(simbol) --переменную переводим в числовой формат
simbol = simbol-1
print(simbol)
ValueToFile("simbol",simbol, is) -- перепишем полученное новое значение simbol
--Пример 2
is = "$мои переменные.txt"
f_fail = ValueFromFile("f_fail",is)--открыть файл по пути, взятого из файла с переменными
WOpen(0,f_fail)
Код: Выделить всё
-- создаем таблицу значений, которые требуется
-- сохранить для дальнейшего использования
t = {}
t.simbol = 10000
t.Mess = 'Внимание, проверить на ошибки!'
t.file = [[dic\СПИСОК СЛОВАРЕЙ 03 DIC СЛОВАРИ.lua]]
t.Ans = false
-- сохраняем таблицу в файл
table.save(t,'$MySettings.txt')
-- читаем таблицу (другое имя взято для чистоты эксперимента) из файла
d = table.load('$MySettings.txt')
-- любое сохраненное значение доступно по имени, например:
ShowMessage(d.Mess)
-- значения сохраняются с учетом их типов, проверим:
for k, v in pairs(d) do
ShowMessage(k..' = '..tostring(v))
end
Код: Выделить всё
chcp 1251
start /min Demagog.exe "d:\Books\Пророк.txt" /a "d:\Demagog\_Tests_\YaTTS.lua" /m /q
Код: Выделить всё
Упражнение номер один, начали
Кто там, вдалеке? 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 секунды - чтобы ученик успел предложить
-- свой вариант перевода, а затем услышать правильный
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)
-- запись двуязычного аудио по тексту в Статистике
-- т.к. измененный текст не был сохранен, то имя аудиофайла
-- генерируется автоматически из даты и времени)
WAudio(0)
-- удалить временные словари
os.remove(h..'tmp_pause4.rex')
os.remove(h..'tmp_pause2.rex')
- записываю в мультилингва - голос в аудио файлах хрипит. Попробовал без Мультилингва - хрипит. Думал это результат обновления Демагога что-то сбилось. Уже хотел гневный отзыв писать - Оказывается (вот не знаю как) но сбилась настройка SAFT22kH16BitMono а мне функция мультилингва нужна для того, что бы запущенная запись в аудио не зависела от того, какой голос и какая для него выбрана скорость в текущих настройках Демагога. Теперь с новой версии Демагога Я этот параметр жёстко прописываю в самом скрипте за счёт принудительной вставки в начале текста тэг с параметрами голоса для мультилингва
А вместо английского - шведский, итальянский, французский, немецкий?
Я так понял, это изменение возникло начиная с вер. 379?Если имя словаря указано без пути, то предполагается, что словарь находится в рабочей папке Demagog в стандартной папке ..\dic.
Код: Выделить всё
WFilter(0,0,"#ФОНЕМЫ.dic",false)Код: Выделить всё
WFilter(0,0,HomeFolder().."#ФОНЕМЫ.dic",false)а мне кажется логичнее наоборот, без дополнительных параметров сделать "обязательной" проверку на наличие файла в сам WFilter. Если в скрипте все правильно, то... , это значит, что Всё правильно, всё работает. Если неправильно, то выходит ошибка о которой я буду знать, а не начинать редактировать скрипт, удивляться, почему у меня в штатном режиме все работает, а в скрипте нет. Причём я могу записать пару книг и только начав слушать понять, что что то где то не работает. Перечитывать код, вставлять прерывания что бы выявить где теряется словарь и почему?
Код: Выделить всё
-- Пример 1. Получить имя активного голоса
vName = Voice()
-- Пример 2
-- получить параметры активного голоса
vName, vRate, vPitch = Voice()
-- активировать другой голос и записать с ним аудиофайл
SetVoice('Pavel',1,0)
WAudio(1)
-- восстановить активность предыдущего голоса
SetVoice(vName,vRate,vPitch)