Функция exclude(str,str), Разбивает строку на подстроки по строке и возвращат массив параметров

string.exclude = function(self, str)
  return {self:match(("(.*)(%s)(.*)"):format(str))}
end

strl=exclude(str,stre)

function test(str,stre)
local strl= exclude(str,stre)
DC():MessageBox(strl[1]..strl[2],"HubsID","yes","question")
end

function test(str,stre)
local strl=str:exclude(stre)
DC():MessageBox(strl[1]..strl[2],"HubsID","yes","question")
end

function OnStartup()
    test("a-_b-_c-_e-_f", "-_")
end
    
function test(str,stre)
    local strl = {}
    strl = str:exclude(stre)
    for i,v in pairs(strl) do
        Core.SendToAll(i.."     "..v)
    end    
end

string.exclude = function(self, str)
  return {self:match(("(.*)(%s)(.*)"):format(str))}
end

function array_explode(ValString,Sep)
  if (string.find(ValString,Sep,1,false)) then
    local retarr = {}
    local s = 1
    local e = 0
    local fnd = ""
    local snd = ""
    local iii = 0
    ValString = ValString..Sep
      while (s) do
        s,e,fnd = string.find(ValString,"(.-)"..Sep.."+",e+1,false)
        if (fnd ~= nil and fnd ~= "") then
          table.insert(retarr,fnd)
        end
        iii = iii + 1
      end
    return retarr
  else
    return {ValString}
  end
end

string.explode = function (ValString,Sep)
if (string.find(ValString,Sep,1,false)) then
local retarr = {}
local s = 1
local e = 0
local fnd = ""
local snd = ""
local iii = 0
ValString = ValString..Sep
while (s) do
s,e,fnd = string.find(ValString,"(.-)"..Sep.."+",e+1,false)
if (fnd ~= nil and fnd ~= "") then
table.insert(retarr,fnd)
end
iii = iii + 1
end
return retarr
else
return {ValString}
end
end

string.explode = function(self, Sep)
  self = self..Sep
  local ret, pref, suff = {}, self:match(("(.-)%s+(.*)"):format(Sep))
  while pref do
    table.insert(ret, pref)
    pref, suff = suff:match(("(.-)%s+(.*)"):format(Sep))
  end
  return ret
end

--[[  \fn self:Cmds(sData, sId, iIp, sNick)
*     \bref Partition the received command
*     \param sData - cmd, sId - user's id, iIp - user's ip, sNick - user's nick
*     \return true or false
]]
Cmds = function(self, sData, sId, iIp, sNick)
  sData = sData.."|"
  local pref, suff = sData:match"(.-)|+(.*)"
  while pref do
    if not self:Cmd(pref, sId, iIp, sNick) then
      return false
    end
    pref, suff = suff:match"(.-)|+(.*)"
  end
  return true
end;

-- 1)
strl[1] = ""
strl[2] = "a"
strl[3] = "b"
strl[4] = "c"
strl[5] = "d"

-- 2)
strl[1] = "a"
strl[2] = "b"
strl[3] = "c"
strl[4] = "d"

table.insert(ret, pref)

if pref ~= '' then table.insert(ret, pref) end