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

Function RemoveTrailingComma(jsonString)
    Dim lastIndex
    lastIndex = Len(jsonString) - 1
    
    ' 从字符串末尾开始逐个字符检查
    While lastIndex >= 0
        If Mid(jsonString, lastIndex, 1) = "," Then
            ' 如果找到逗号，则删除该逗号及其后面的空格
            jsonString = Left(jsonString, lastIndex - 1) & Trim(Mid(jsonString, lastIndex + 1))
            Exit While
        ElseIf Mid(jsonString, lastIndex, 1) = " " Then
            ' 如果找到空格，则继续向前查找
            lastIndex = lastIndex - 1
        Else
            ' 如果既不是逗号也不是空格，则退出循环
            Exit While
        End If
    Wend
    
    RemoveTrailingComma = jsonString
End Function