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"
}

用新行分割MySQL

1 个答案: