在表格中插入带引号和不带引号的字符串部分。

你不能使用 Lua 模式处理带引号的字符串。你需要显式地解析字符串，如下面的代码所示。

--定义 split 函数
function split(s)
    local t={}
    local n=0
    local b,e=0,0
    while true do
        b,e=s:find("%s*",e+1)
        b=e+1
        if b>#s then break end
        n=n+1
        if s:sub(b,b)=="'" then
            b,e=s:find(".-'",b+1)
            t[n]=s:sub(b,e-1)
        elseif s:sub(b,b)=='"' then
            b,e=s:find('.-"',b+1)
            t[n]=s:sub(b,e-1)
        else
            b,e=s:find("%S+",b)
            t[n]=s:sub(b,e)
        end
    end
    return t  --返回切割完成的字符串数组
end

--定义输入字符串
s=[[1 2 word 2 9 'more words' 1 "and more" "1 2 34"]]
print(s)  --输出输入字符串
t=split(s)  --对输入字符串进行切割
for k,v in ipairs(t) do
    print(k,v)  --输出切割结果
end

Lua 字符串模式和正则表达式在需要进行嵌套层数或令牌数量平衡，例如括号 ( ) 的解析时不太适用。但是，Lua 中另一个强大的工具可以处理这种情况：LPeg。

LPeg 语法有点过时，需要一些适应时间，因此我将使用 lpeg re 模块来使其更易于理解。请记住，任何你在一种语法形式中可以做的事情也可以在另一种形式中表达出来。

首先，定义解析你的格式描述的语法：

local re = require 're'
local cmdgrammar =
  [[
    saycmd  <- '!' cmd extra
    cmd     <- %a%w+
    extra   <- (singlequote / doublequote / unquote / .)*
    unquote <- %w+
    singlequote   <- "'" (unquote / %s)* "'"
    doublequote   <- '"' (unquote / %s)* '"'
  ]]

接下来，编译语法并用它来匹配一些测试示例：

local cmd_parser = re.compile(cmdgrammar)
local saytest =
{
  [[!save 1 2 word 2 9 'more words' 1 "and more" "1 2 34"]],
  [[!tell 5 "a private message"]],
  [[!teleport 0 1]],
  [[!say 'another private message' 42 "foo bar" baz]],
}

目前该语法没有捕获规则，因此 re.match 返回它能够匹配的字符串中的最后一个字符位置 +1。这意味着成功解析将返回字符串的完整字符数 +1，并因此是你的语法的有效实例。

for _, test in ipairs(saytest) do
  assert(cmd_parser:match(test) == #test + 1)
  end

现在，有趣的部分来了。一旦你的语法按照你的要求工作，你现在可以添加捕获，这些捕获可以自动将结果提取到一个 Lua 表中，而且工作量相对较小。这是最终语法规范和表捕获：

local cmdgrammar =
  [[
    saycmd  <- '!' {| {:cmd: cmd :} {:extra: extra :} |}
    cmd     <- %a%w+
    extra   <- {| (singlequote / doublequote / { unquote } / .)* |}
    unquote <- %w+
    singlequote   <- "'" { (unquote / %s)* } "'"
    doublequote   <- '"' { (unquote / %s)* } '"'
  ]]

再次运行测试并转储 re.match 结果：

for i, test in ipairs(saytest) do
  print(i .. ':')
  dump(cmd_parser:match(test))
  end

你应该得到类似于以下的输出：

lua say.lua

1:
{
  extra = {
    "1",
    "2",
    "word",
    "2",
    "9",
    "more words",
    "1",
    "and more",
    "1 2 34"
  },
  cmd = "save"
}
2:
{
  extra = {
    "5",
    "a private message"
  },
  cmd = "tell"
}
3:
{
  extra = {
    "0",
    "1"
  },
  cmd = "teleport"
}
4:
{
  extra = {
    "another private message",
    "42",
    "foo bar",
    "baz"
  },
  cmd = "say"
}