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

巴特西

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

最新文章

热门文章