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

Question

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

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

我想：[{"key" : "132904"}]

我在做：str = Replace(str, ", }]", "}]")但什么都没有发生，因为我的字符串保持不变。

标签： vbscript

Answer 1

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