搜索并拆分找到的文本

Question

我试图从输入文本中找到一个位置，并将 = 后面的数字设置为变量。 不幸的是，有什么问题 output

使用我的代码，maxresults 变量返回“i”作为结果。 但应该是20。

代码：

bind pub "-|-" !a pub:a
proc pub:a { nick host handle channel text } {

    set maxresults ""
    if {[regexp -nocase {max=} $text]} {
    set maxresults0 [lindex [split $text max=] 1]
    set maxresults [lindex $maxresults0 0]
    putnow "PRIVMSG $channel :maxresults: $maxresults"
    }
}

输入：!a Remix find now country=german max=20 currency=euro

Output：最大结果：我

但它应该是：最大结果：20

Answer 1

你可以用正则regexp完成整个工作 -

if {[regexp -nocase {max=(\d+)} $text - maxresults]} {
    putnow "PRIVMSG $channel :maxresults: $maxresults"
}

请参阅文档http://www.tcl-lang.org/man/tcl8.6/TclCmd/regexp.htm