字符串替换vb.net不起作用

问题描述

| 我在这里做错了什么？

If FilePath.ToLower().Contains(\".pdf\") Then
    Dim Replaced As String = FilePath.Replace(\"\\\",\"/\")
    FilePath = \"http:\" & Replaced
End If 

例如，如果FilePath是

\\\\sharepoint\\file.pdf

，则预期输出应为

http://sharepoint/file.pdf

。但是，实际输出是

http:\\\\sharepoint\\file.pdf

更新1 这是原始字符串： 这是我的VB代码之后的样子： 如您所见，添加了http：部分，但是没有碰到反斜杠。 更新2 它与斜线有关。因为当我替换其他字符（例如，@）时，替换后的字符串会正确显示。但不是斜杠     

解决方法

我仍然不太清楚为什么，但是以下内容修复了我的代码：

Dim Replaced As String = FilePath
If FilePath.ToLower().Contains(\".pdf\") Then
    Replaced = FilePath.Replace(\"\\\",\"/\")
    Replaced = \"http:\" & Replaced
End If 

然后在我使用的vbscript代码中

Sub toonDocument()
dim spobject
set spobject = CreateObject(\"Sharepoint.Document\")
spobject.FilePath = \"<% = Replaced %>\"
spobject.openen()
set spobject = nothing

所以

<% = Replaced %>

（而不是

<%= FilePath %>

）