专家坐堂-json如何转化为文本Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- json如何转化为文本

目前代码：

Dim json As String = ja.ToString

Dim ja12 As JArray = Jarray.Parse(json)

Dim ssss As String

For i As Integer = 0 To ja12.Count - 1

ssss = "在" & ja12(i)("评查活动id").ToString() & "活动中，对"

ssss &= ja12(i)("评查案件id").ToString() & "等案件进行评查打分，其中：审查调查阶段得分" & ja12(i)("审查调查得分").ToString() & "分，审理阶段得分" & ja12(i)("审理得分").ToString() & "分，加分" & ja12(i)("加分").ToString() & "分，加倍扣分" & ja12(i)("加倍扣分").ToString() & "分，总分为：" & ja12(i)("最终得分").ToString() & "分，评为：" & ja12(i)("评查等次").ToString() & "案件。" & Chr(13) & Chr(10)

ssss &= "分值明细为："

Dim ja121 As JArray = Jarray.Parse(ja12(i)("children").ToString())

For i121 As Integer = 0 To ja121.Count - 1

ssss &= i121 + 1 & "、" & ja121(i121)("卷宗名称").ToString() & "卷中" & ja121(i121)("资料名称").ToString().Replace(".pdf", "").Replace(".png", "") & "的材料因" & ja121(i121)("参考规则").ToString() & "（" & ja121(i121)("分值类型").ToString().Replace("分", "") & ja121(i121)("评分").ToString() & "分）；"

OutPut.Show(ssss & Chr(13) & Chr(10))

输出得到：

在3a71a95f-dcba-4752-b57a-fbe5bb86f78a活动中，对fe686d2b-9d8c-4a99-bafc-0cf0a48ca328等案件进行评查打分，其中：审查调查阶段得分43.5分，审理阶段得分50分，加分0分，加倍扣分0分，总分为：93.5分，评为：优秀案件。

分值明细为：1、证据卷中20231101问题的材料因证据存在瑕疵（扣0.5分）；2、证据卷中20231101问题的材料因未按规定履行审查调查程序（扣1分）；3、证据卷中20231101问题的材料因事实认定错误审理部门指出后不予纠正（扣5分）；

在86e31265-1817-4b78-a976-967c1071bec8活动中，对fe686d2b-9d8c-4a99-bafc-0cf0a48ca328等案件进行评查打分，其中：审查调查阶段得分37.5分，审理阶段得分50分，加分0分，加倍扣分0分，总分为：87.5分，评为：合格案件。

分值明细为：1、证据卷中的材料因遗漏应当认定的违纪违法事实且未作出合理说明（扣2.5分）；2、证据卷中的材料因基本事实不清楚（扣2.5分）；3、证据卷中20231101问题的材料因主要证据不到位审理部门指出后不予纠正（扣5分）；4、材料卷中的材料因事实认定错误审理部门未予纠正（扣2.5分）；

想实现：如何转化成为文本。输出格式为：蓝色部分为求助部分，目前尚未实现。

一、遍历活动名称节点，然后按活动输出如下数据

{活动名称}中，经过对{案件名称}的评查打分。主要是一次活动中，会有多个案件名称出现，如在某某活动中，对案件名称1，名称2，……共计n件，进行评查评分。

二、遍历{案件名称}节点，然后名称进行遍历，逐案输出如下数据

经查{案件名称}，评分总计{评分总分}，其中审查调查{审查调查得分}分，审理{审理得分}分，加分{加分}分，加倍扣{加倍扣分}分，总分{最终得分}分，结论为：{评查等次}。

三、遍历带【标准】【项目】【细则】节点的内容循环输出

其中：标准合计{标准}分，项目合计{项目}分，细则合计{细则}分。其中某某标准共计分，项目1共计分，项目1下的细则1为1分，细则2为2分，项目2下的细则3为1分，标准1共计分，项目3下的……遍历到的就输出，

四、遍历具体的{卷宗名称}{材料名称}{评分}节点循环输出

具体为：（循环children中的数据隔行输出）

1、{卷宗名称}卷中的{材料名称}，因{参考规则}得{评分}。

2、{卷宗名称}卷中的{材料名称}，因{参考规则}得{评分}。

3、{卷宗名称}卷中的{材料名称}，因{参考规则}得{评分}。

……

最终效果：

待实现：在3a71a95f-dcba-4752-b57a-fbe5bb86f78a活动中，共对{案件名称1}{案件名称2}{案件名称3}{案件名称4}……进行评查。其中优秀多少合格多少 ……

待实现：其中，某某标准多少分，某某项目多少分，某某细则多少分……某某标准共计分，项目1共计分，项目1下的细则1为1分，细则2为2分，项目2下的细则3为1分，标准1共计分，项目3下的……遍历到的就输出

当前json格式如下：【省略了部分数据】

[

{

"评查活动id": "3a71a95f-dcba-4752-b57a-fbe5bb86f78a",

"活动名称": "",

"评查案件id": "fe686d2b-9d8c-4a99-bafc-0cf0a48ca328",

"案件名称": "",

"一票否决数": 0,

"【标准】程序合规、手续完备查得分": 1.0,

"【项目】审查调查程序得分": 1.0,

"【细则】未按规定履行审查调查程序得分": 1.0,

"【标准】事实清楚、证据确凿得分": 5.5,

"【项目】事实证据得分": 5.5,

"【细则】事实认定错误审理部门指出后不予纠正得分": 5.0,

"【细则】证据存在瑕疵得分": 0.5,

"评分总分": 6.5,

"审查调查总分": 6.5,

"审查调查得分": 43.5,

"审理总分": 0.0,

"审理得分": 50.0,

"加分": 0.0,

"加倍扣分": 0.0,

"最终得分": 93.5,

"评查等次": "优秀",

"children": [

{

"卷宗id": "bdcebda0-397c-440a-b3a3-ab3470b87857",

"卷宗名称": "证据",

"材料id": "4660e5f2-6dcc-4067-9fdd-68097b20169c",

"资料名称": "20231101问题.pdf",

"扣分id": "92995b6c-87be-4aa7-a6ad-92b58a33daa8",

"一票否决": "否",

"案件阶段": "审查调查阶段",

"参考规则": "证据存在瑕疵",

"评分": "0.5"

{

"卷宗id": "bdcebda0-397c-440a-b3a3-ab3470b87857",

"卷宗名称": "证据",

"材料id": "4660e5f2-6dcc-4067-9fdd-68097b20169c",

"资料名称": "20231101问题.pdf",

"扣分id": "3a46258b-1824-4eb5-8136-910d13a34d58",

"一票否决": "否",

"案件阶段": "审查调查阶段",

"参考规则": "未按规定履行审查调查程序",

"评分": "1"

]

……………………

……………………省略若干，后续部分格式都如上一样…………

[此贴子已经被作者于2023/11/10 21:31:13编辑过]