MyTTS

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

(\b(будут|как)\b\s?(\w+)?)\s{1,4}(\bволоса\b)=$1 волосА
(\bволоса\b)((\s(\w+)?){1,}(на жопе|рвать)(\w+)?)=волосА $2
######################################################################################################################################
(нул|ный|шел|шелся|шагал|взмыл|влип|заметил|уселся|летел|сделал|подтвердил|склонил|прокричал)\b(\s*\w*\s*)(\bворон\b)=$1$2вОрон
(\w+([ншщ]ий|ый)\b\s?(\w+)?)\s{1,4}(\bворон\b)=$1 вОрон
(\b(живёт|каркающий|мёртвый|пляшет|чернеет|чёрный)(\w+)?(\s(\w+)?){1,})(\bворон\b)=$1 вОрон
(\b(единорог)\b\s?(\w+)?)\s{1,4}\b(и|или|с)\b\s{1,4}(\bворон\b)=$1 $4 вОрон
(\b(твой|тот же)\b\s?(\w+)?)\s{1,4}(\bворон\b)=$1 вОрон
(\bворон\b)\s?(\w+)?\s{1,4}(\w+(етел)\b)=вОрон $2
(\bворон\b)((\s(\w+)?){1,}(восседал|заскуча|каркну[влт]|клювом|не мог|перехвати[влт]|пригнул|приземлился|пролетит|расправлял|сгорел|сорвался|тянет)(\w+)?)=вОрон $2
######################################################################################################################################
(\w+(гося|его|нье|ого)\b\s?(\w+)?)\s{1,4}(\bворона\b)=$1 вОрона
(\b(автомат|бок|Верну[влт]|вижу|голос|дети|задач|крыло|крыльям|обличий|огромного|орден|отпусти[влт]|перо|перья|полёт|полётом|птенцам|реплик|рождени|смерть|сознание|старого|уби[влт]|увидел|уничтожить|хребтом|чёрного)(\w+)?(\s(\w+)?){1,})(\bворона\b)=$1 вОрона

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

-i C:\temp\fon.mp3

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

[0]aecho=0.8:0.6:20|40:0.2|0.2[b]

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

[b][1]amix=inputs=2:duration=first:weights=1 0.3

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

-- печать всех строк текста из окна 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]

if fnd == '' then 
	fnd = defname
	SaveToFile({fnd},'#rexFind.@')
	goto HALT
 end

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)

-- установить курсор на первой позиции найденного
s = WText(ind)
fnd, k = RexMatch(s,r,1)
if k > 0 then WSel(ind,k-1,#fnd) end

::HALT::

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

function rnd_fon(fdir, ftype)
  local fon_home = HomeFolder(fdir)
  local fon_files = AllFiles(fon_home,'*.'..ftype)
  local fon_count = #fon_files
  return fon_home..fon_files[math.random(1,fon_count)]
end

function FilterAndAudioToAllMod(folder, mask, diclist, remsource)
    IgnoreDicPan()
    local b, d, p, mode
    local k = #folder
    if string.sub(folder,k,k) ~= '/' and string.sub(folder,k,k) ~= '\\' then
        folder = folder..'\\'
    end
    local a = AllFiles(folder,mask)
    for i = 1,#a do
        WOpen(0,folder..a[i])
        for j = 1,#diclist do
            b = diclist[j]
            if type(b) == 'table' then
                d = b[1]
                mode = b[2]
            else
               d = b
               mode = true
            end
            WFilter(0,0,d,mode)
        end
        WSave(0,folder..'temp_'..a[i])
        WOpen(0,folder..'temp_'..a[i])
        -- modification
        local cmd = string.format('CHCP 1251 | COPY /Y %q %q', rnd_fon('fon', 'mp3'), HomeFolder()..'fon.mp3')
        os.execute(cmd)
        -- end
        WAudio(0,folder,false)
        p = SplitFileName(a[i])[2]
        os.rename (folder..'temp_'..p..'.mp3', folder..p..'.mp3')
        os.remove(folder..'temp_'..a[i])
        if remsource and i > 1 then os.remove(folder..a[i-1]) end
    end
    if remsource then os.remove(folder..a[#a]) end
    WNew(0)
    return #a, #diclist
end