通过转义特殊字符在vbscript中读写文件

Question

我想通过转义文本中的特殊字符并将输出包含在双引号中来将文本文件复制到另一个

例如。将输入文件视为：

ABC"hi%"
bcd

我想输出

"ABC" + "" + "hi%" + "" +vbCRLF + "bcd" 

在一行中。脚本应该在输入文本的每行末尾动态添加回车和换行。

任何帮助都将不胜感激。

感谢

Answer 1

您应该能够使用一系列Replace()语句来完成此操作。

s = objTextStream.ReadAll()
s = Replace(s, """", """""")
s = Replace(s, vbTab, """ & vbTab & """)
s = Replace(s, vbCrLF, """ & vbCrLf & """)
.... 
' Add quotes around the whole string
s = """" & s & """"

然而，由于需要连接，最终结果中可能会出现一些空字符串。例如，如果您有连续的选项卡，那么您的输出字符串将如下所示：

"some text" & vbTab & "" & vbTab & "" & vbCrLf & "Line2"

所以你可能需要做最后一个Replace()来消除这些：

s = Replace(s, "& """" &", "&")