Question

我试图用单引号替换字符串中的双引号，得到以下代码，但收到错误消息“Object Required strLocation”

Sub UpdateAdvancedDecisions(strLocation)
  Dim d
  Dim strLLength

  strLLength = Len(strLocation) - 1

  For d = 0 To strLLength
    alert strLocation

    strValue = strLocation.Substring(2,3)

    If strLocation.substring(d,d+1)=" " " Then   
      strLLength = strLLength.substring(0, d) + "'" + strLLength.substring(d + 1,strLLength.length)

  Next
End Sub

Answer 1

正如Helen所说，你想使用Replace，但是她的例子将结果分配给你怪异的strLLength变量。试试这个：

strLocation = Replace(strLocation, """", "'")

这一行完成了你所询问的工作，并避免了你给定子程序中当前的所有代码。

您发布的代码中存在的其他问题：

一个包含字符串长度的数字的变量不会有“str”前缀，因此strLLength具有误导性
VBScript中的字符串从1到长度编制索引，而不是0到长度-1
VBScript
您为strValue指定了一个值，然后再也不再使用它了
你需要使用Mid来获取子字符串，VBScript中没有“substring”字符串方法
```
c = Mid(strLocation, d, 1) ' gets one character at position d
```

我越是看到这个，就越清楚它是一些你试图以VBScript运行但没有正确翻译的JavaScript。

使用VBScript的引用，如下所示：

如何在xsl页面中的vbscript中使用substring

1 个答案: