MyTTS

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

[00:00.00]Произвольный текст 1
[01:00.00]Произвольный текст 2
[02:00.00]Произвольный текст 3

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

os.execute(' mkdir "d:\temp\1\" ')--Создать каталог 1
os.execute(' RD /S /Q "d:\temp\1\" ')--удалить каталог 1 со всем содержимым

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

mkdir "d:\temp\1\"

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

RD /S /Q "d:\temp\1\"

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

Execute('m.bat','',wsHide) -- создает папку 1
Execute('d.bat','',wsHide) -- удаляет папку 1 со всем содержимым
-- всё происходит скрытно от пользователя

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

cmd.exe /d /c mkdir бла-бла

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

-- lines without duplicates
function unique(a)
	local q = {}
	local t = {}
	local k = 0
		for  i = 1, #a do
			if q[a[i]] == nil then
				k=k+1
				q[a[i]] = '' 
				t[k] = a[i]		
			end
	end
        return t
end

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

function table.sortuniq(lines)
	lines = unique(lines)
	table.sort(lines)
	return lines
end

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

t = {}
t['один'] = 1
t['два'] = 2
t['три'] = 1
d = unique(t)  -- удаляем дубликаты
print(t['три'])  -- напрасно ждали, что теперь будет nil

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

-- lines without duplicates
function unique(a)
    local q, t = {}, {}
        for  i = 1, #a do
            if not q[a[i]] then
                 q[a[i]] = true
                 t[#t+1] = a[i]       
            end
    end
    return t
end

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

for  i = 1, #a do
    q[a[i]] = i 
end

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

local set = {}
for _, l in ipairs(a) do set[l] = true end
return set

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

t['один'] = true
t['два'] = true
t['один'] = true

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

   for  i = 1, #a do
        q[a[i]] = true
   end

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

function unique2(a)
    local q, t = {}, {}
    for  i = 1, #a do
        q[a[i]] = true
    end
    for key, value in pairs(q) do
        t[#t+1] = key
    end
    return t
end

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

-- lines without duplicates

function unique(a)
    local q, t = {}, {}
        for  i = 1, #a do
            if not q[a[i]] then
                 q[a[i]] = true
                 t[#t+1] = a[i]       
            end
    end
    return t
end

function unique2(a)
    local q, t = {}, {}
    for  i = 1, #a do
        q[a[i]] = true
    end
    for key, value in pairs(q) do
        t[#t+1] = key
    end
    return t
end

-- Test

-- формируем большую тестовую таблицу, изобилующую дубликатами
t = {}
for i = 1,1000000 do
    t[#t+1] = '1)х.ыфЁ:66;%%?**'
end
for i = 1,1000000 do
    t[#t+1] = '2)двести двадцать два миллиона попугаев'
end
for i = 1,1000000 do
    t[#t+1] = '3)берег пруда был покрыт выкарабкивающимися из воды лягушками'
end
for i = 1,1000000 do
    t[#t+1] = '4)odnA:Fnp0]q39487`253455fmdlsk*$#^YT&(*_)(e gjgf ,skf cj,frf'
end
for i = 1,1000000 do
    t[#t+1] = '5)Жил-был великий писатель, Лев Николаич Толстой, Не ел он ни рыбы ни мяса, ходил совершенно босой. Жена его - Софья Толстая, напротив, любила поесть. Она не ходила босая, спасая фамильную честь.'
end


z = os.clock()
d = unique(t)
time = os.clock()-z
print('\149 unicue. time= ',time)
for i = 1,#d do
    print(d[i])
end

print()

z = os.clock()
d = unique2(t)
time = os.clock()-z
print('\149 unicue2. time= ',time)
for i = 1,#d do
    print(d[i])
end

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

# Script>-- lines without duplicates2.txt

• unicue. time= 	0.17199999999957
1)х.ыфЁ:66;%%?**
2)двести двадцать два миллиона попугаев
3)берег пруда был покрыт выкарабкивающимися из воды лягушками
4)odnA:Fnp0]q39487`253455fmdlsk*$#^YT&(*_)(e gjgf ,skf cj,frf
5)Жил-был великий писатель, Лев Николаич Толстой, Не ел он ни рыбы ни мяса, ходил совершенно босой. Жена его - Софья Толстая, напротив, любила поесть. Она не ходила босая, спасая фамильную честь.

• unicue2. time= 	0.15599999999995
1)х.ыфЁ:66;%%?**
5)Жил-был великий писатель, Лев Николаич Толстой, Не ел он ни рыбы ни мяса, ходил совершенно босой. Жена его - Софья Толстая, напротив, любила поесть. Она не ходила босая, спасая фамильную честь.
2)двести двадцать два миллиона попугаев
4)odnA:Fnp0]q39487`253455fmdlsk*$#^YT&(*_)(e gjgf ,skf cj,frf
3)берег пруда был покрыт выкарабкивающимися из воды лягушками

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

for _, line in ipairs(a) do set[line] = line end

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

t['один'] = 'один'
t['два'] = 'два'
t['один'] = 'один'

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

function unique(a)
    local set = {}
    for _, line in ipairs(a) do
        if set[line] == nil  then
            set[line] = line
        end
    end
    return set
end

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

# Script>-- lines without duplicates2.txt

• unicue. time= 	0.178
1)х.ыфЁ:66;%%?**
2)двести двадцать два миллиона попугаев
3)берег пруда был покрыт выкарабкивающимися из воды лягушками
4)odnA:Fnp0]q39487`253455fmdlsk*$#^YT&(*_)(e gjgf ,skf cj,frf
5)Жил-был великий писатель, Лев Николаич Толстой, Не ел он ни рыбы ни мяса, ходил совершенно босой. Жена его - Софья Толстая, напртив, любила поесть. Она не ходила босая, спасая фамильную честь.

• unicue2. time= 	0.35999999999999

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

t[s] = s

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

function DirFolder(f,m)
	local s = io.popen('dir '..f..m..' /B /S /O:S', 'r' )
	s = s:read "*a"
	s = DosToAnsi(s)
	s = string.split(s,'\r')-- таблицу
	GaugeInit(#s)
		for i=1,#s do
			Gauge(i)
			--if FileExists(s[i]) then print(s[i]) end
			print(s[i])
		end
	Gauge(0)
	s = table.concat(s,'\r')  -- в текст
	s = string.gsub(s,'[\r\n]+','\r') 
	return(s)
end

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

f='D:\\tmp\\Книги\\'
m = '*.txt'--маска
DirFolder(f,m)

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

--вывести содержимое указанной папки вместе с подкаталогами. 
--полученный cписок будет отсортирован по размеру файлов (по возрастанию)
function DirFolder(f,m)
	local s = io.popen('dir '..f..m..' /B /S /O:S', 'r' )
	s = s:read "*a"
	s = DosToAnsi(s)
	s = string.gsub(s,'[\r\n]+','\r') --  заменяю все варианты разделителей на '\r'
	s = string.split(s,'\r')
	local t={}
	local u=0
		for i=1,#s do
			if FileExists(s[i]) then 
				u=u+1
				t[u]=s[i]
			end
		end
	s=nil
	return(t)
end

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

f='D:\\tmp\\Книги\\'-- путь к папке 
m = '*.*'-- маска файла "*.*" "*.fb2" "*00*.txt" 
s=DirFolder(f,m)
for i=1, #s do
	print(s[i])
end

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

s = 'a1bra2ka3da4bra'
a = string.split(s,'1234')
for i = 1,#a do
    print(a[i])
end

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

s = 'a1bra2ka3da4bra3113131sim444536031'
a = string.split(s,'1234')
for i = 1,#a do
    print(a[i])
end

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

a=OpenDialog(true)
if a==nil then goto HALT end
item={'MD2','MD4','MD5','SHA1','SHA256','SHA384','SHA512',}
shapka = " Выберите криптографический хеш:"
dial = Menu(shapka,item,4)
if dial == 0 then goto HALT end
for i=1, #a do
	local s = io.popen('certutil -hashfile "'..a[i]..'" '..item[dial], 'r' )
	s = s:read "*a"
	s = string.split(s,'\r\n')
	s[2] = string.gsub(s[2],' ','')--удалить пробелы
	print(s[2])
	print(a[i])
	print()
end
::HALT::

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

f = io.popen(...)
s = f:read "*a"
f:close()