MyTTS

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

WFilter(0,0,dic..

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

false)  --перебором (галочка убрана)

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

os.execute('start "program1" D:\scripts\script_1.bat parameter1 parameterN')
os.execute('start "program1" "D:\scripts\script 2.cmd" parameter1 parameterN')
os.execute('start "program1" D:\scripts\lua53.exe "D:\script 3.lua" parameter1 parameterN')

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

require "profiles/grafica"

-- графический индикатор процесса
-- i изменяется от 1 до imax
function Gauger(i,imax)
    Clear()
    Area(-100,-100,100,100) 
    Pen(Red,1)
    Brush('FFFFA4')
    Ellipse(-80,-80,80,80)
    Brush('')
    Brush(LightGreen)
    Pie(-80,-80,80,80,0,2*math.pi*i/imax)
    Render()
end


-- пример использования
Show()
imax = 1000
for i = 1,imax do
    Delay(1) -- имитирует процесс неких вычислений внутри цикла
    if i % 50 == 0 then -- достаточно 20 кадров по ходу процесса 
        Gauger(i,imax)  -- отображает готовность i-го шага вычислений
    end
end
Hide()

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

-- графический индикатор процесса
-- i изменяется от 1 до imax
function Gauger(i,imax)
    Clear()
    Area(-100,-100,100,100) 
    Pen(Red,1)
    Brush('FFFFCE')
    Ellipse(-80,-80,80,80)
    Brush('')
    Brush(LightGreen)
    Pie(-80,-80,80,80,0,2*math.pi*i/imax)
    Brush(White)
    Ellipse(-55,-55,55,55)
    Font('Arial',20,Green)
    TextOut(-15,15,math.floor(100*i/imax))
    Render()
end

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

 Get-ExecutionPolicy -List
        Scope ExecutionPolicy
        ----- ---------------
MachinePolicy       Undefined
   UserPolicy       Undefined
      Process       Undefined
  CurrentUser       Undefined
 LocalMachine      Restricted

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

get-executionpolicy -List | format-list
pause

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

        Scope ExecutionPolicy
        ----- ---------------
MachinePolicy       Undefined
   UserPolicy       Undefined
      Process       Undefined
  CurrentUser       Undefined
 LocalMachine          Bypass

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

-- ПРИМЕР 1
for i = 1,1000000000 do
    a = i
    if Cancel() then goto HALT end
end
::HALT::
ShowMessage(a)

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

-- ПРИМЕР 2
-- показ по отдельности всех слов из текста в окне 1
require "profiles/grafica"

cl = os.setlocale('', 'ctype')

s = WText(1)
s = string.gsub(s,'\9',' ')
s = string.gsub(s,'-','- ')
s = string.gsub(s,'\r',' ')
s = string.gsub(s,'\n',' ')
a = string.split(s,' ')

GaugeInit(#a)
Show()
for i = 1,#a do
    Clear()
    Area(-60,-12,60,12)
    Font('Verdana',8,Black)
    Pen(LightGray,2)
    Rectangle(-60,-12,60,12)
    if string.trim(Body(a[i])) ~= '' then
        TextOut(0,8,a[i],taCenter)
        Render()
        --StrSpeak(a[i]) -- если нужно чтение , то раскомментируйте эту строку
        Delay(300)   -- а эту - закомментируйте
    end
    Gauge(i)
    if Cancel() then break end
end
Hide()
Gauge(0)

os.setlocale(cl)

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

a=a+1
if Cancel() then ShowMessage(a) end

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

ShowMessage('НАЧАТЬ 1-Й ДЛИТЕЛЬНЫЙ ПРОЦЕСС')
for i = 1,1000000000 do
    a = i
    if Cancel() then break end
end
ShowMessage('a = '..a)

ForgotCancel()  -- заново ожидать нажатия Break
if Cancel() then goto HALT end

ShowMessage('НАЧАТЬ 2-Й ДЛИТЕЛЬНЫЙ ПРОЦЕСС')
for i = 1,1000000000 do
    b = i
    if Cancel() then break end
end
ShowMessage('b = '..b)

::HALT::

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

require "profiles/grafica"

Clear()
Show()

Headline('У попа')
Delay(2000)
Headline('была собака')
Delay(2000)
Headline('') -- нет заголовка
Delay(2000)
Headline() -- заголовок по умолчанию

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

	Show() -- Открываем окно графика
	Clear() -- очищаем окно с старыми событиями
	Headline('Прогресс выполнения')
	local schetchik = 1	
--Начало цикла
TextOut(-3,3,"Обработка сериала "..schetchik.." из "..#a.." ("..math.floor(100*schetchik/#a).."%)",2)
Render()
schetchik = schetchik + 1
--Конец цикла

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

	Show() -- Открываем окно графика
	Clear() -- очищаем окно с старыми событиями
	Headline('Прогресс выполнения')
	local schetchik = 1	
--Начало цикла
TextOut(-3,3,"Обработка сериала "..schetchik.." из "..#a,2)
TextOut(-3,-10,"("..math.floor(100*schetchik/#a).."%)",2)
Render()
schetchik = schetchik + 1
--Конец цикла

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

docend1 = '... Конец '
docend2 = '-ого тОма...'
tom = 1 -- начальная нумерация тома

WNew(0)
WAdd(0,'   СБОРНИК    \r') -- Вставка заголовка. Можно заремареить если не нужно.

k = 0 
for i = 1,16 do -- с 1 по 16 окно
k = k+1
s = WText(k)
if #s == 0 then goto HALT end
WAdd(0,k,'')
WAdd(0,'\r\r'..docend1..k..docend2..'\r\r') -- Вставка нумерации тома. Можно заремареить если не нужно. 
tom = tom+1
end

::HALT::
ShowMessage('Готово! Результат в окне "0 - Статистика"')

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

dic = HomeFolder('dic')
dic2 = HomeFolder('dic2')--на случай если словарь в другой dic2 папке
WFilter(0,0,dic2..'00_REX_подготовка текста.rex',true)
WFilter(0,0,dic2..'20_Ё-фикатор.dic',true)
ttb = WText(0)

if [[ЗДЕСЬ ПРОВЕРКА на наличии в переменной ttb символов  IVXMDLC\d   ]] then
WFilter(0,0,dic..'10_REX_числа.rex',true)
end

WFilter(0,0,dic..'40.1_(w+) звезды подготовка.rex',false)
WFilter(0,0,dic..'40.2_(w+) звезды аналог.dic',false)

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

-- возвращает 1-ю найденную  в строке s арабскую или латинскую цифру или nil
function CiferExists(s)
    return string.match(s,"[IVXMDLC%d]+")
end

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

ttb = WText(1)
if string.match(ttb,"[IVXMDLC%d]+") then 
    WFilter(1,1,dic..'10_REX_числа.rex',true)
end