tcl - 用新行拆分 MySQL

Question

我在我的 tcl 脚本中有一个 mysql select qry，这是垂直的。查询中大约有 30 个问题，包含 3-6 个字母。我想在 80 个字符后将其拆分为新行

set sql_network "SELECT `grp` FROM `name` WHERE `network` LIKE '$network'"
set result_network [mysqlsel $db_handle $sql_network -list]
putquick "PRIVMSG $channel :Results: \002$result_network\002"

我已经对此进行了测试，但它不起作用。我怀疑它指的是个别的短词

set length [::textutil::adjust $result_network -length 80 -strictlength true]

Answer 1

该textutil::adjust命令返回调整后的文本。在发送之前，您需要做更多的工作：

set LINE_LENGTH 80

set sql_network "SELECT `grp` FROM `name` WHERE `network` LIKE '$network'"
set result_network [mysqlsel $db_handle $sql_network -list]

set text [::textutil::adjust $result_network -length $LINE_LENGTH -strictlength true]
foreach line [split $text "\n"] {
    putquick "PRIVMSG $channel :Results: \002$line\002"
}