Question

我有一个小脚本，从文件加载XML并将数据保存到变量（XML格式很糟糕，无法更改！）。一切正常，除了变量不断删除反斜杠（“\”）。我试图运行Replace函数来“加倍”反斜杠，见下文：

Dim path As String
path = CType(Me.Dts.Variables("XMLINFilePath").Value, String)

Dim streamReader As New IO.StreamReader(path)
Dim StreamText As String = streamReader.ReadToEnd()

StreamText = Replace(StreamText, "\", "\\")
Me.Dts.Variables("XMLContents").Value = StreamText

但结果变量仍然只有单个反斜杠。替换功能起作用，因为我可以更改其他字符，它似乎没有检测到字符串中的任何反斜杠，当然这是！有没有一种方法可以让脚本在将其保存到变量之前放入正确数量的反斜杠？

由于

Answer 1

Public Sub Main()



    Dim path As String
    path = "D:\Book.xml"

    Dim streamReader As New IO.StreamReader(path)
    Dim StreamText As String = streamReader.ReadToEnd()

    StreamText = Replace(StreamText, "\", "\\")
    MsgBox(StreamText)

    Dts.TaskResult = Dts.Results.Success
End Sub

请参阅此图片我发布的更改内容：http://i58.tinypic.com/mky7uu.jpg

并确保您的xml正确无误。加这段代码：

在VB中转义字符

1 个答案: