TCL CSV引用字符

2019年8月4日 259次阅读

我如何使用csv添加引号：

% package require csv
0.7.3

% set l [list "21" "Some test" "Some test"]
% ::csv::join $l {,} {"}
21,Some test,Some test

我希望输出像
“21”,“一些测试”,“一些测试”

最佳答案 csv包不提供这样的引用,除非你欺骗它.

人们肯定会争辩说它应该只是提供一个选项来做到这一点,但试试这个：

package require struct::list

set l {1 "Some Text" "Some Test"}
set r [join [struct::list map $l {format {"%s"}}] ","]
puts $r
点赞