VBScript函数从json字符串中删除尾随逗号

Question

我有以下字符串，并且要删除结尾的逗号。如何在VB脚本中完成此操作。我以为我的替换应该做。

我有：.Select(this, sourceOrder.OrderType)

我要：str = [{"key" : "132904", }]

我正在做[{"key" : "132904"}]，但是什么也没发生，因为我的字符串保持不变。

Answer 1

Replace语句就可以满足上述目的。

如果我执行以下代码：

dim str
str = "[{""key"" : ""132904"", }]"
msgbox "original: " & vbNewLine & str
str = Replace(str, ", }]", "}]")
msgbox "After update: " & vbNewLine & str

我知道

然后

结尾的“，”现在不见了。

Answer 2

Replace语句和RegX.Replace对我来说很好。

dim str,RegX, SearchPattern, ReplacedText
Set RegX = NEW RegExp

str = "[{""key"" : ""132904"", }]"

' Use Regular expression
SearchPattern = ",.*}"
ReplaceString = "}"
RegX.Pattern = SearchPattern
RegX.Global = True
ReplacedText = RegX.Replace(str, ReplaceString)

msgbox "str: " & str & vbNewLine & _
       "Using Replace: " & Replace(str, ", }]", "}]")& vbNewLine & _
       "Using Regex: " & ReplacedText 

Answer 3

str = "[{""key"" : ""132904"", }]"
Arr = Split(Str, """")
msgbox Arr(1) & " " & Arr(3)

这是怎么做。