换行拆分 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: [=11=]2$result_network[=11=]2"

我已经测试过了，但它不起作用。我怀疑是指个别短词

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

Answer 1

textutil::adjust命令returns调整后的文本。在发送之前你需要做更多的工作：

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: [=10=]2$line[=10=]2"
}

换行拆分 MySQL

Split MySQL by new line

tcl

eggdrop