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