MyTTS

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

ind=WActive()
k=WSel(ind)
ShowMessage(k)

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

ind=WActive()
k=WSel(ind)
fnd=WSelText(ind)
ShowMessage(k..', '..#fnd)

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

k, len = WSel(ind)

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

z = k+len

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

ind=WActive()
k=WSel(ind)
fnd=WSelText(ind)
start=k-#fnd+1
ShowMessage(start..', '..#fnd)

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

-- пусть текст во вкладке 1 имеет выделенный фрагмент
k, len = WSel(1)
s = WText(1)
c = string.sub(s,k+1,k+len)
ShowMessage(k..' '..len..' |'..c..'|') -- посмотрим на результат

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

-- Создать фонетический dic-словарь в окне "0 - Статистика"
-- по списку слов с ударениями, находящемуся в активной вкладке.
-- Например:
-- вЫкатившиеся
-- двадцатИ
-- темнО

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

cap = 'Укажите тип транскрипции'
items = {
'Международный фонетический алфавит (IPA)',
'Microsoft Universal Phone Set (UPS)'
}

ans = Menu(cap,items)
if ans == 0 then goto HALT end
if ans == 1 then 
    -- шаблон тега Pronunciation Lexicon Specification
    mask = '<phoneme ph="@"/>'
else
    -- шаблон тега Microsoft SAPI5
    mask = '<PRON SYM="@"/>'
end

ind = WActive()  -- номер активной вкладки
bom = '\239\187\191' -- спецификация UTF-8
s = WText(ind) 
a = string.split(s,'\r')
c = ''
for i = 1,#a do
    if a[i] ~= '' then
        if ans == 1 then d = RuIPA(a[i]) else d = RuUPS(a[i]) end
        b = string.lower(a[i])
        b = AnsiToUtf8(b)
        c = c..b..'='..string.gsub(mask,'@',d)..'\r'
    end 
end
-- передадим новый utf8-текст во вкладку 0
-- через сохранение во временном файле
c = bom..c
SaveToFile({c},'_.tmp')
WOpen(-1,'_.tmp'); WNew(0); WAdd(0,-1,'\r\r')
os.remove('_.tmp')

WActive(0)

::HALT::
os.setlocale('C')

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

вЫкатившиеся
двадцатИ
темнО

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

выкатившиеся=<phoneme ph="vˈɨkətʲɪfʂᵻjəsʲə"/>
двадцати=<phoneme ph="dvətt͡sɐtʲˈi"/>
темно=<phoneme ph="tʲɪmnˈo"/>

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

выкатившиеся=<PRON SYM="V S1 IX K AX T pal IH F SR IX low J AX S pal AX"/>
двадцати=<PRON SYM="D V AX T TS AEX T pal S1 I"/>
темно=<PRON SYM="T pal IH M N S1 O"/>

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

-- цифры могут быть в любом месте строки
-- но учитываются только до знака табуляции (если он есть)

-- здесь в строках нет знака табуляции
a = {
'абрикос123',
'корабль 7К-Л1',
'миг-17б',
'восток-1',
'агент 007'
}

a = table.sortdig(a,true)  -- по возрастанию
s = table.concat(a,'\r')
print(s)
print()

-- здесь в строках присутствует знак табуляции
a = {
'17	миг',
'123	абрикос',
'1	восток',
'71	корабль',
'7	агент'
}

a = table.sortdig(a)  -- по убыванию
s = table.concat(a,'\r')
print(s)

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

восток-1
агент 007
миг-17б
корабль 7К-Л1
абрикос123

123	абрикос
71	корабль
17	миг
7	агент
1	восток

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

-- Функция, консолидирующий статистику частотности строк из вкладки 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



WNew(2,[[4	(\S| -)\s(\bчаса\b)(\.\.\.|\,)=$1 часА$3
80	[ ]+=
]])
FreqConsolidate(2, 2, "\9") -- подсчет статистики

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

WNew(2,[[4	(\S| -)\s(\bчаса\b)(\.\.\.|\,)=$1 часА$3
80	[ ]+=
]])

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

WNew(2,[[1	(\b(без|без [егоёих]{1,3}|вашего|вместо|возле|возле [егоёих]{1,3}|выше|выше [егоёих]{1,3}|два|для|для [егоёих]{1,3}|до|до [егоёих]{1,3}|ему|из|из [запод]{1,3}|какого то|какого тоъ|кроме|кроме [егоёих]{1,3}|мало|мне ни|моего|нет|нет у меня|ни|никому не|ну|оба|оба [егоёихэт]{1,3}|от|от [егоёих]{1,3}|после|против|против [егоёих]{1,3}|со|с [егоёих]{1,3}|своего|смысле|такого|твоего|три|у|у [егоёих]{1,3}|четыре|этого)\b\s?(\w+)?)\s{1,4}(\bслова\b)=$1 слОва
1	(авят|ает|аешь|азал|айте|аны|анял|ать|ашел|!ают|[м]ают|ая|[вмрч]ая|[вмрх]али|ашли|взял|вшим|даем|етны|ечал|зна[лю]|зови|иеся|ими|ируя|ись|ить|ймут|[вкмнч]ать|идал|кали|[вл]или|лены|[мн]ает|ньи|няли|[лн]ять|[рч]ала|руем|ших|ые|ющей|ющих|яют|[вджшщ]ние|гие|жие|кие|хие|чие|шие|щие)(\s*\w*\s*\w*\s*\w*\s*)\s+(места)\b=$1$2 местА
1	@(\w+)([,: -]*)\s+Том([аеуомыи]+)\b=$1$2 ЪЪтОм$3
1156	[ ]+= 
1	\b(ей|на|под|ту же|эту)\b(\s*\w*\s*)\s+полку\b=$1$2 пОлку
1	\b(из|к|по)\b\s+(\bдому\b)=$1 дОму
1	ЪЪтОм(\w+)=тОм$1]])

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

Огнедышащий
огнЕдышащий
огнедЫшащий
огнедышАщий
огнедышащИй
огнедышащиЙ

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

a = LoadFromFile('proverka.txt')
s = table.concat(a,'\r')
_, n = string.gsub(Utf8ToAnsi(s),'_','')
ShowMessage('Символов, не входящих в таблицу ANSI: '..n)

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

a = LoadFromFile('proverka.txt',false)
s = table.concat(a,'\r')
s = string.gsub(s,'\95', "")--удаляем все нижние подчеркивания (если они присутствовали в тексте) 
s = string.gsub(s,'\63', "_")--заменяем все знаки вопроса(если они присутствовали в тексте) 
SaveToFile({s},'result.txt') -- сохраняем результат
WOpen(-1,'result.txt') -- переоткрываем файл в окно Демагога
o = {} 
o.File_Encoding = feANSI  
Settings(o)
WSave(-1,'result.txt')--сохраним файл уже с ANSI кодировкой - при изменении кодировки все UTF8 символы заменятся на знак ?
WOpen(0,'result.txt')
WNew(-1)
WActive(0)
WNew(-1)
WActive(0)
s=WText(0)

--Ищем в файле с ANSI кодировкой знаки "?" которые появляются в результате того, что lua  не распознает utf8 сиволы
_, n = string.gsub(s,'?','')
ShowMessage('Символов, не входящих в таблицу ANSI: '..n)

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

На крыльце дОма для рабочих.
ДорОгой тетушки неплохо провели время.
Обработанный дУхами скелет, пугал всех посетителей (из фэнтези).
за едУ служить не буду.
К тому же явно сЁстры.
Я узнаЮ везде, где появляюсь.

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

@(\bкрейсера\b)\s{1,4}([А-ЯЁ]\w+)(\,|\sи)\s{1,4}([А-ЯЁ]\w+)=крейсерА $2$3 $4
@(\bна\b)\s{1,4}([А-ЯЁ]\w+)\s{1,4}(\bострова\b)=$1 $2 островА