类_JSON 解析 新增参数，大数值到文本

初夏喔

  

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

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

' 暂时无法通过替换换行的方式来纠正JSON格式，原因是如果JSON是格式化的，替换了换行格式就会错误！
如果真 (JsonStr.是否为空 () ＝ 假)
JsonStr.清除 ()
初始化 ()
如果真 (JsonStr.是否为空 ())
返回 (假)
如果真 (大数值到文本)
JSON文本 ＝ JsonStr.文本方法 (“Eval”, “'” ＋ JSON文本 ＋ “'.replace(/(” ＋ #引号 ＋ “\w+” ＋ #引号 ＋ “\s*:\s*)([-\d.]{16,})([,}])/g,” ＋ #引号 ＋ “$1\” ＋ #引号 ＋ “$2\” ＋ #引号 ＋ “$3” ＋ #引号 ＋ “)”)
JsonStr.逻辑方法 (“Eval”, “var ” ＋ dataName ＋ “ = null”)
局_JSON文本 ＝ 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 /> .参数 为对象, 逻辑型, 可空<br /> .参数 错误原因, JsonError, 可空<br /> .局部变量 局_JSON文本, 文本型<br /> .局部变量 局_JsonError, 对象<br /> <br /> ' 暂时无法通过替换换行的方式来纠正JSON格式，原因是如果JSON是格式化的，替换了换行格式就会错误！<br /> .如果真 (JsonStr.是否为空 () ＝ 假)<br />     JsonStr.清除 ()<br />     初始化 ()<br /> .如果真结束<br /> .如果真 (JsonStr.是否为空 ())<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (大数值到文本)<br />     JSON文本 ＝ JsonStr.文本方法 (“Eval”, “'” ＋ JSON文本 ＋ “'.replace(/(” ＋ #引号 ＋ “\w+” ＋ #引号 ＋ “\s*:\s*)([-\d.]{16,})([,}])/g,” ＋ #引号 ＋ “$1\” ＋ #引号 ＋ “$2\” ＋ #引号 ＋ “$3” ＋ #引号 ＋ “)”)<br /> .如果真结束<br /> JsonStr.逻辑方法 (“Eval”, “var ” ＋ dataName ＋ “ = null”)<br /> 局_JSON文本 ＝ JSON文本<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”))

改动源码三行代码，分别为

  

子程序名	返回值类型	公开	备 注
解析	逻辑型
参数名	类 型	参考	可空	数组	备 注
大数值到文本	逻辑型

如果真 (大数值到文本)
JSON文本 ＝ JsonStr.文本方法 (“Eval”, “'” ＋ JSON文本 ＋ “'.replace(/(” ＋ #引号 ＋ “\w+” ＋ #引号 ＋ “\s*:\s*)([-\d.]{16,})([,}])/g,” ＋ #引号 ＋ “$1\” ＋ #引号 ＋ “$2\” ＋ #引号 ＋ “$3” ＋ #引号 ＋ “)”)

.版本 2<br /> .子程序 解析, 逻辑型, 公开<br /> .参数 大数值到文本, 逻辑型, 可空<br /> <br /> .版本 2<br /> <br /> .如果真 (大数值到文本)<br />     JSON文本 ＝ JsonStr.文本方法 (“Eval”, “'” ＋ JSON文本 ＋ “'.replace(/(” ＋ #引号 ＋ “\w+” ＋ #引号 ＋ “\s*:\s*)([-\d.]{16,})([,}])/g,” ＋ #引号 ＋ “$1\” ＋ #引号 ＋ “$2\” ＋ #引号 ＋ “$3” ＋ #引号 ＋ “)”)

该参数用于处理数值过大溢出问题


来自群组: 热心网友

淘神

#在这里快速回复#感谢分享

hsyh

感谢分享

liua123

厉害厉害！

小明无敌

https://bbs.125.la/forum.php?mod ... 26&highlight=MB @@项目部004 这个也可以 挺实用的

初夏喔

xinhan2012 发表于 2023-3-10 17:53
大数值取数值属性还是能取到的，就是取到的因为精度问题，不一致。如果改成文本后，使用取数值属性就取不 ...

改成文本取不到的原因是因为双精度小数型溢出了。长整型能接，所以溢出的文本老老实实用文本接受就好了，要计算之类的用大数

xinhan2012

初夏喔 发表于 2023-3-10 16:39
@项目部004 以上代码测试通过，望加入，该问题 问答区 以及 本版块 出现过好多次了~
...

可以加一行，解析json里面被替换数值得属性名称，如果是取数值属性，就改成取通用属性，这样就好了

xinhan2012

初夏喔 发表于 2023-3-10 17:29
大数值双精度小数型接不到吧。

大数值取数值属性还是能取到的，就是取到的因为精度问题，不一致。如果改成文本后，使用取数值属性就取不到了，然后能兼容一下这个就好了，因为数值这个大家习惯都是直接取数值，得想个办法识别这个

初夏喔

xinhan2012 发表于 2023-3-10 17:23
这样用json取数值属性会不会失效啊，因为转成文本了，要用取通用属性了

大数值双精度小数型接不到吧。

xinhan2012

这样用json取数值属性会不会失效啊，因为转成文本了，要用取通用属性了