在tcl脚本中用html实体替换特殊字符

Question

我正在使用tcl脚本创建一个xml文件。在我的tcl脚本文件中，我试图用相应的实体替换特殊的聊天符，例如

return [string map [list – '"–"' ]

但以下这些特殊人物不会被替换，

¨ “ ‚ < – … ¶ ”

Answer 1

要替换HTML的最小字符集是使用以下方法完成的：

set html_mapping {{"} &quot; ' &apos; & &amp; < &lt; > &gt;}
return [string map $html_mapping $inputString]

您也可以映射其他字符，只需将额外的元素添加到该列表中。这是一种一般的方法。

# Put this between the two lines above
foreach char [split "¨“‚…¶”" {}] {
    scan $char %c ch_num
    lappend html_mapping $char [format "&#%d;" $ch_num]
}

最好是独立地确保您正在传输的HTML被解释为使用UTF-8作为字符编码。这样，您就限制了与实体编码相关的工作量。