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

我有以下字符串，希望删除后面的逗号。如何在VB脚本中实现这一点。我想我的替代者应该做这件事

我有：

str=[{“key”：“132904”，}]

我想要：

[{“key”：“132904”}]

---

我正在做：

str=Replace（str，“，}]”，“}]”

但是没有发生任何事情，因为我的字符串保持不变。

Replace语句对于所提到的目的来说很好

如果我执行此代码：

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

我明白了

然后

---

尾随的“，”现在消失了。

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 

---

str=Replace（str，“，”，”）

您可以使用一个示例正则表达式来执行此操作，可以使用一个正则表达式来仅删除最后一个

（？：.（？！，）+$

。其他建议的解决方案都假定JSON对象中只有一个键值对，其他任何东西都会中断。