MyTTS

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

require "profiles/grafica"  -- подгружаем ГРАФИЧЕСКУЮ библиотеку с функциями
schetchik0 = 1
schetchik1 = 0
lev = -5
prav = 5
mess = "Книга "..schetchik0
param = 2
for i = 1,5 do
schetchik1 = schetchik1 + 1
Show() -- Открываем окно графика
Headline('Прогресс выполнения')	
Clear() -- очищаем окно с старыми событиями	
TextOut(-3,3,"Обработка сериала "..schetchik1,2)
if lev then
TextOut(lev,prav,mess,param) -- берем глобальные переменные из основного скрипта
end
Render()
Delay(1000)
end

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

require "profiles/grafica"

Headline('Прогресс')
Show()
for k = 1,5 do
    for i = 1,15 do
        Clear()
        Area(-100,-100,100,100) -- рабочая область (задает масштаб) 
        Font('Arial',30,Green)
        TextOut(0,50,'Сериал '..k,taCenter)
        TextOut(0,0,'Книга '..i,taCenter)
        Render()
        Delay(100) -- имитация вычислений для книги
    end
    Delay(200) -- имитация вычислений для сериала
end

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

-- печать всех строк текста из окна 1, отвечающих заданному регулярному выражению
-- поиск идет с учетом регистра (символ @ в начале РВ)
s = WText(1)
r = [[@^[^\=]*\=[^\=]*вОрон\b[^\=]*$]]
k = 1
while k > 0 do
    fnd, k = RexMatch(s,r,k)
    print(fnd)
    if k > 0 then k = k+#fnd+1 end
end

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

-- печать всех строк текста из окна 1, отвечающих заданному регулярному выражению
-- поиск идет с учетом регистра (символ @ в начале РВ)
s = WText(1)
r = [[@^[^\=]*\=[^\=]*вОрон\b[^\=]*$]]
GaugeInit(#s)
k = 1
while k > 0 do
    fnd, k = RexMatch(s,r,k)
    print(fnd)
    if k > 0 then k = k+#fnd+1 end
    Gauge(k)
end
Gauge(0)

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

-- сортировка table по убыванию
function table.sortdescending(lines)
local t = {}
for i = 1, #lines do
t[i] = lines[i]
end
table.sort (lines, function (a, b) return (a > b) end)
for i = 1, #lines do
t[i] = lines[i]
end
return t
end

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

--Содержимое окна 1 будет отсортировано по убыванию и помещено в окно статистики.
s=WText(1)
s = string.split(s,'\r') -- преобразовываем список в ТАБЛИЦУ
s = table.sortdescending(s) --  сортируем по убыванию
s = table.concat(s,'\r')  -- преобразовываем ТАБЛИЦУ в текст
WNew(0,s)

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

-- сортировка table по убыванию
function table.sortdescending(lines)
  local t = {}
  for i = 1, #lines do
    t[i] = lines[i]
  end
  table.sort (lines, function (a, b) return (a > b) end)
  for i = 1, #lines do
    t[i] = lines[i]
  end
  return t
end

-- для строк вида 'цифры|буквы'
-- выровнять цифровую часть  до 6 цифр, добавив ведущие нули
function addzeros(s)
  local c
  local a = string.split(s,'|')
  if #a == 2 then
    c = string.rep('0',6-#a[1])..a[1]..'|'..a[2]
  else
    c = s
  end  
  return c
end

-- убрать ведущие нули из строки
function delzeros(s)
  local c
  local a = string.split(s,'|')
  if #a == 2 then
    c = string.format("%u",a[1])..'|'..a[2]
  else
    c = s
  end  
  return c
end 

--Содержимое окна 1 будет отсортировано по убыванию и помещено в окно статистики.
s=WText(1)
s = string.split(s,'\r') -- преобразовываем список в ТАБЛИЦУ

for i = 1,#s do s[i] = addzeros(s[i]) end

s = table.sortdescending(s) --  сортируем по убыванию

for i = 1,#s do s[i] = delzeros(s[i]) end

s = table.concat(s,'\r')  -- преобразовываем ТАБЛИЦУ в текст
WNew(0,s)

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

a=1; a=a+1; print(a)

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

a=a+1 -- прибавим один

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

a=1; a=a+1--[[прибавим один]]; print(a)

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

--Удаляем словосочетания которые гарантировано заменяются без ошибок на всЁ
s = RexRepl(s,{[[\b(все таки|на всем|все равно|все-таки|всё таки|всё-таки)\b=_$1]]}) -- добавляем гарантированные исключения