Функции Для Разработчиков, склад полезных функций

function string.lower2(s)
    return s:gsub("([А-Я])",function(str) return string.char(str:byte()+32) end):gsub("Ё", "ё"):lower()
end

function string.upper2(s)
    return s:gsub("([а-я])",function(str) return string.char(str:byte()-32) end):gsub("ё", "Ё"):upper()
end

:gsub("[%^%$%(%)%%%.%[%]%*%+%-%?]","%%%1")

local result = data:gsub(str:gsub("[%^%$%(%)%%%.%[%]%*%+%-%?]","%%%1"),repl)

repl:gsub("%%","%%%%")

local test_counter=0
local test_startTime=os.time()
while test_startTime==os.time() do end
test_startTime=os.time()
while os.time()==test_startTime do
  test_counter=test_counter+1
  [КОД_ДЛЯ_АНАЛИЗА]
end
return tostring(test_counter)

function GetLinesCount(str) return #str:gsub("[^\010]","")+1 end

for i in pairs(t) do

for i=1,#t do

local str="12345"
str=str+0

local str="12345"
str=tonumber(str)

for i=1,#t do

for i in pairs(t) do

for i in ipairs(t) do

for i,v in ipairs(t) do

function new_string_builder()
    local string_table = {}
    local object = {}
    
    function object.insert(...)
        for idx, str in ipairs({...}) do
            table.insert(string_table, idx, str)
        end
    end
    
    function object.add(...)
        for idx, str in ipairs({...}) do
            table.insert(string_table, str)
        end
    end
    
    function object.get(spliter)
        spliter = spliter or ""
        return table.concat(string_table, spliter)
    end
    
    function object.empty()
        return not next(string_table)
    end
    
    function object.len()
        local len = 0
        for index, str in ipairs(string_table) do
            len = len + #str
        end
        return len
    end
    
    return object
end

buf = new_string_builder()

for i = 0, 10 do
    buf.add(i.." ")
end

print(buf.get())

0 1 2 3 4 5 6 7 8 9 10

local arg = {...}

function Serialize(tTable, sTableName, hFile, sTab)
    sTab = sTab or ""
    hFile:write(sTab,sTableName," = {\n")
    for key, value in pairs(tTable) do
        local sKey = (type(key) == "string") and ("[%q]"):format(key) or ("[%d]"):format(key)
        if type(value) == "table" then
            Serialize(value, sKey, hFile, sTab.."\t")
        else
            hFile:write(sTab,"\t",sKey," = ",(type(value) == "string") and ("%q"):format(value) or tostring(value))
        end
        hFile:write(",\n")
    end
    hFile:write(sTab,"}")
end

function table.print(tTable, sTableName, sTab, bComma)
    sTab = sTab or ""
    print(sTableName and sTab..sTableName.." = {" or sTab.."{")
    for key, value in pairs(tTable) do
        local sKey = (type(key) == "string") and ("[%q]"):format(key) or ("[%d]"):format(key)
        if type(value) == "table" then
            table.print(value, sKey, sTab.."\t",true)
        else
            print(sTab.."\t"..sKey.." = "..((type(value) == "string") and ("%q"):format(value) or tostring(value))..",")
        end
    end
    print(sTab.."}"..(bComma and "," or ""))
end

print(a..b..c..d)

print(a, b, c, d)

function SerializeToString(tTable, sTableName, sTab)
    local tTableConcat = {}
    local sTab = sTab or ""
    table.insert(tTableConcat, sTab)
    table.insert(tTableConcat, sTableName and sTableName.." = {\r\n" or "return {\r\n")
    for key, value in pairs(tTable) do
        local sKey = (type(key) == "string") and ("[%q]"):format(key) or ("[%d]"):format(key)
        if(type(value) == "table") then
            table.insert(tTableConcat, SerializeToString(value, sKey, sTab.."\t"))
        else
            local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value)
            table.insert(tTableConcat, sTab)
            table.insert(tTableConcat, "\t")
            table.insert(tTableConcat, sKey)
            table.insert(tTableConcat, " = ")
            table.insert(tTableConcat, sValue)
        end
        table.insert(tTableConcat, ",\r\n")
    end
    table.insert(tTableConcat, sTab)
    table.insert(tTableConcat, "}")
    return table.concat(tTableConcat)
end

local CP866 = {
    [160] = 255, [161] = 246, [162] = 247, [164] = 253, [168] = 240,
    [170] = 242, [175] = 244, [176] = 248, [178] = 73,  [179] = 105,
    [183] = 250, [184] = 241, [185] = 252, [186] = 243, [191] = 245,
}
function string.tooem(str)
    return (str:gsub("[Ђ-я]",function(c)
        c = c:byte()
        if c >= 192 and c <= 239 then
            return string.char(c-64)
        elseif c >= 240 then
            return string.char(c-16)
        elseif CP866[c] then
            return string.char(CP866[c])
        else
            return "?"
        end
    end))
end

function unescape (s)
      s = string.gsub(s, "+", " ")
      s = string.gsub(s, "%%(%x%x)", function (h)
            return string.char(tonumber(h, 16))
          end)
      return s
    end