类_JSON解析支持回调函数

初夏喔

  

子程序名	返回值类型	公开	备 注
解析	逻辑型		如果返回假，请检查Json文本是否为标准格式，如果确定，请检查 Windows 里 System 和 SysWOW64 是否需要权限
参数名	类 型	参考	可空	数组	备 注
JSON文本	文本型				必须是标准的JSON格式！如果文本中有转义字符且需要保留，请传入前自行处理。
为对象	逻辑型
错误原因	JsonError
回调函数	文本型

变量名	类 型	静态	数组	备 注
局_JSON文本	文本型
局_JsonError	对象

' 暂时无法通过替换换行的方式来纠正JSON格式，原因是如果JSON是格式化的，替换了换行格式就会错误！
如果真 (JsonStr.是否为空 () ＝ 假)
JsonStr.清除 ()
初始化 ()
如果真 (JsonStr.是否为空 ())
返回 (假)
JsonStr.逻辑方法 (“Eval”, “var ” ＋ dataName ＋ “ = null”)
局_JSON文本 ＝ JSON文本
如果真 (回调函数 ≠ “”)
JsonStr.文本方法 (“Eval”, “function ” ＋ 回调函数 ＋ “(obj){return JSON.stringify(obj); }”)
局_JSON文本 ＝ JsonStr.文本方法 (“Eval”, JSON文本)
如果 (为对象)
JsonStr.逻辑方法 (“AddCode”, “var ” ＋ dataName ＋ “ = ” ＋ 局_JSON文本)
JsonStr.逻辑方法 (“AddCode”, “var ” ＋ dataName ＋ “ = eval(” ＋ 局_JSON文本 ＋ “)”)
如果真 (是否为空 (错误原因) ＝ 假)
局_JsonError ＝ JsonStr.对象型方法 (“Error”, )
错误原因.Number ＝ 局_JsonError.读数值属性 (“Number”, )
错误原因.Source ＝ 局_JsonError.读文本属性 (“Source”, )
错误原因.Description ＝ 局_JsonError.读文本属性 (“Description”, )
错误原因.HelpFile ＝ 局_JsonError.读文本属性 (“HelpFile”, )
错误原因.HelpContext ＝ 局_JsonError.读数值属性 (“HelpContext”, )
错误原因.Text ＝ 局_JsonError.读文本属性 (“Text”, )
错误原因.Line ＝ 局_JsonError.读数值属性 (“Line”, )
错误原因.Column ＝ 局_JsonError.读数值属性 (“Column”, )
返回 (JsonStr.逻辑方法 (“Eval”, dataName ＋ “ != null”))

.版本 2<br /> <br /> .子程序 解析, 逻辑型, 公开, 如果返回假，请检查Json文本是否为标准格式，如果确定，请检查 Windows 里 System 和 SysWOW64 是否需要权限<br /> .参数 JSON文本, 文本型, , 必须是标准的JSON格式！如果文本中有转义字符且需要保留，请传入前自行处理。<br /> .参数 为对象, 逻辑型, 可空<br /> .参数 错误原因, JsonError, 可空<br /> .参数 回调函数, 文本型, 可空<br /> .局部变量 局_JSON文本, 文本型<br /> .局部变量 局_JsonError, 对象<br /> <br /> ' 暂时无法通过替换换行的方式来纠正JSON格式，原因是如果JSON是格式化的，替换了换行格式就会错误！<br /> .如果真 (JsonStr.是否为空 () ＝ 假)<br />     JsonStr.清除 ()<br />     初始化 ()<br /> .如果真结束<br /> .如果真 (JsonStr.是否为空 ())<br />     返回 (假)<br /> .如果真结束<br /> JsonStr.逻辑方法 (“Eval”, “var ” ＋ dataName ＋ “ = null”)<br /> 局_JSON文本 ＝ JSON文本<br /> .如果真 (回调函数 ≠ “”)<br />     JsonStr.文本方法 (“Eval”, “function ” ＋ 回调函数 ＋ “(obj){return JSON.stringify(obj); }”)<br />     局_JSON文本 ＝ JsonStr.文本方法 (“Eval”, JSON文本)<br /> .如果真结束<br /> .如果 (为对象)<br />     JsonStr.逻辑方法 (“AddCode”, “var ” ＋ dataName ＋ “ = ” ＋ 局_JSON文本)<br /> .否则<br />     JsonStr.逻辑方法 (“AddCode”, “var ” ＋ dataName ＋ “ = eval(” ＋ 局_JSON文本 ＋ “)”)<br /> .如果结束<br /> .如果真 (是否为空 (错误原因) ＝ 假)<br />     局_JsonError ＝ JsonStr.对象型方法 (“Error”, )<br />     错误原因.Number ＝ 局_JsonError.读数值属性 (“Number”, )<br />     错误原因.Source ＝ 局_JsonError.读文本属性 (“Source”, )<br />     错误原因.Description ＝ 局_JsonError.读文本属性 (“Description”, )<br />     错误原因.HelpFile ＝ 局_JsonError.读文本属性 (“HelpFile”, )<br />     错误原因.HelpContext ＝ 局_JsonError.读数值属性 (“HelpContext”, )<br />     错误原因.Text ＝ 局_JsonError.读文本属性 (“Text”, )<br />     错误原因.Line ＝ 局_JsonError.读数值属性 (“Line”, )<br />     错误原因.Column ＝ 局_JsonError.读数值属性 (“Column”, )<br /> .如果真结束<br /> 返回 (JsonStr.逻辑方法 (“Eval”, dataName ＋ “ != null”))

来自群组: 热心网友

MrJalon

学习了 学习了

yqx520

不懂，来学习和得分的

Boss宝8286702

        支持开源~！感谢分享

MrJalon

看一下 感谢分享

lintianming111

谢谢分享

初夏喔

七彩色工作室 发表于 2022-2-9 11:49
这是升级版的json解析么

是的，但是项目部004既然说不想改这个类的话那只能换种方式了。等下我扔到开源区

七彩色工作室

这是升级版的json解析么

项目部004

不想动这个类了！通过类公开方法的取回对象，然后想怎么调用就怎么调用！