json字符串和表相互转化中遇到的一个严重问题

导致脚本崩溃的一个问题

Import "zm.luae"
zm.Init
Dim aaa="fdsf23423dsfsdf"
dim 结果表=Encode.JsonToTable(aaa)
TracePrint zm.VarInfo(结果表)

结果：

发生运行时错误！错误代码：2，错误行号：0，错误信息：676

主要是如果把字符串转化为json表的过程中 如果 字符串的写法不符合json的写法而强制转化为表 就会导致错误 脚本整体崩溃 所以 我们把字符串转化为表 需要提前确认下字符串是否符合json的要求 符合才能转化 不符合则不转化避免导致脚本崩溃

解决办法：（初级版 只是简单的判断下字符串开头结尾的字符而已 中间的内容格式依然无法判断）

/*
*作用 判断一个字符串是否是json字符串 但是只是简易判断 只是简单的正则判断下开头结尾是否是{}
*返回值 为0表示不是json字符串 为1表示是
*注意使用的是紫猫插件切记
*/
Function is_json(s)
    //关于正则的
    Dim ret() //返回表参数, 可以省略该参数
    Dim data=""
    Dim  pattern ="^{.*}$"
    Dim 结果=-1
    data = zm.RegExMatch(s, pattern, ret)
    If data then
        结果=1
    Else
        TracePrint "未匹配到数据"
        结果=0
    End If
    is_json=结果
End Function

123