如何在lua中查找字符串的一部分并将其分成3个部分？（前，匹配，后）

假设我有这个字符串，我想要将其分割成如下格式

local str = "The mouse walked by the blue cheese"

就像这样

local pre = "The mouse walked by the "
local matched = "blue"
local post = " cheese"

有什么好的建议吗？我搜索了一段时间，感觉陷入了困境。

我尝试了这个，它可以在英语中工作，但似乎在阿拉伯语中无法工作：

function split(string, delimiter)
  local result = { }
  local from = 1
  local delim_from, delim_to = string.find( string, delimiter, from )
  while delim_from do
    table.insert( result, string.sub( string, from , delim_from-1 ) )
    from = delim_to + 1
    delim_from, delim_to = string.find( string, delimiter, from )
  end
  table.insert( result, string.sub( string, from ) )
  return result
end

local myStr = "The mouse walked by the blue cheese"

sep = split(myStr, "blue")
print("part1 1: "..sep[1])
print("part2 2: "..sep[2])

** EDITED=================================================== **

请告诉我如果有多个目标词需要分割该怎么办，例如

local myStr = "the mouse ate the cheese, the mouse ate the cheese!, lot of cheese there !"

这里的问题在于它将其分成多个部分，需要的是

before = "the mouse ate the " after = ", the mouse ate the cheese!, lot of cheese there !"

我做了这个，它可以在英语中工作，但对于阿拉伯语不起作用

function split4(pString, pPattern)

    local didFind = 0

    if string.find(pString,".") then
        pString = string.gsub(pString,"%.","'.'")
    end

    if pPattern == "." then
        pPattern = "'.'"
    end

    local Table = {}  -- NOTE: use {n = 0} in Lua-5.0
    local FinalTable = {}
    local fpat = "(.-)" .. pPattern
    local last_end = 1
    local s, e, cap = pString:find(fpat, 1)
    while s do
        if s ~= 1 or cap ~= "" then
            print("Found")
            table.insert(Table,cap)
            didFind = didFind + 1
        end
        last_end = e+1
        s, e, cap = pString:find(fpat, last_end)
    end
    if last_end <= #pString then
        print("Found NOT")
        cap = pString:sub(last_end)
        table.insert(Table, cap)
    end
    print(#Table)
    print("totalDidFind "..didFind)

    FinalTable[1] = Table[1]

    if (didFind > 2) then
      local endString = ""
      for z = 2 , didFind do
        endString = endString..Table[z]..pPattern
      end
      FinalTable[2] = endString

    end

    totalDidFind = 0
    return FinalTable
end