如何使用 'string map' 删除 TCL 字符串中的引号
How to remove quotes in TCL string by using 'string map'
我真的被这个问题困扰了几个小时了。我正在将 TCL 脚本的输出写入 .csv 文件。理论上它应该有 130 行，但它在第 117 行之后停止，这是第一次出现双引号的地方。所以我想使用 'string map' 删除双引号，但我尝试过的所有方式仍然输出双引号。其他字符按照我的意图进行了清晰的映射。
set lines [string map [list "\;" {} "," {} {"} {} "\'" {} ] $lines]
set lines [string map [list "\;" {} "," {} "\"" {} {'} {} ] $lines]
set lines [string map [list "\;" {} "," {} \" {} \' {} ] $lines]
有没有人知道如何正确地从字符串中删除双引号？
谢谢！
保罗
您使用的 string map 调用将起作用 — 所有调用都使用正确构造的偶数长度映射 — 但您在输入字符串中看到的字符可能不是标准双引号 (") 而是他们更复杂的表亲 (“, ”)。还有一些其他字符看起来也很相似，例如裸分音符 (¨)。
我真的被这个问题困扰了几个小时了。我正在将 TCL 脚本的输出写入 .csv 文件。理论上它应该有 130 行，但它在第 117 行之后停止，这是第一次出现双引号的地方。所以我想使用 'string map' 删除双引号，但我尝试过的所有方式仍然输出双引号。其他字符按照我的意图进行了清晰的映射。
set lines [string map [list "\;" {} "," {} {"} {} "\'" {} ] $lines]
set lines [string map [list "\;" {} "," {} "\"" {} {'} {} ] $lines]
set lines [string map [list "\;" {} "," {} \" {} \' {} ] $lines]
有没有人知道如何正确地从字符串中删除双引号？
谢谢！ 保罗
您使用的 string map 调用将起作用 — 所有调用都使用正确构造的偶数长度映射 — 但您在输入字符串中看到的字符可能不是标准双引号 (") 而是他们更复杂的表亲 (“, ”)。还有一些其他字符看起来也很相似，例如裸分音符 (¨)。