目前代码：
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() & "分）；"
Next
OutPut.Show(ssss & Chr(13) & Chr(10))
Next
输出得到：
在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}……进行评查。其中优秀多少 合格多少 ……
在3a71a95f-dcba-4752-b57a-fbe5bb86f78a活动中，对fe686d2b-9d8c-4a99-bafc-0cf0a48ca328等案件进行评查打分，其中：审查调查阶段得分43.5分，审理阶段得分50分，加分0分，加倍扣分0分，总分为：93.5分，评为：优秀案件。
待实现：其中，某某标准多少分，某某项目多少分，某某细则多少分……某某标准共计分，项目1共计分，项目1下的细则1为1分，细则2为2分，项目2下的细则3为1分，标准1共计分，项目3下的……遍历到的就输出
分值明细为：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共计分，项目1下的细则1为1分，细则2为2分，项目2下的细则3为1分，标准1共计分，项目3下的……遍历到的就输出
分值明细为：1、证据卷中的材料因遗漏应当认定的违纪违法事实且未作出合理说明（扣2.5分）；2、证据卷中的材料因基本事实不清楚（扣2.5分）；3、证据卷中20231101问题的材料因主要证据不到位 审理部门指出后不予纠正（扣5分）；4、材料卷中的材料因事实认定错误 审理部门未予纠正（扣2.5分）；
当前json格式如下：【省略了部分数据】
[
{
"评查活动id": "3a71a95f-dcba-4752-b57a-fbe5bb86f78a",
"活动名称": "",
"评查案件id": "fe686d2b-9d8c-4a99-bafc-0cf0a48ca328",
"案件名称": "",
"一piao否决数": 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",
"一piao否决": "否",
"案件阶段": "审查调查阶段",
"参考规则": "证据存在瑕疵",
"评分": "0.5"
},
{
"卷宗id": "bdcebda0-397c-440a-b3a3-ab3470b87857",
"卷宗名称": "证据",
"材料id": "4660e5f2-6dcc-4067-9fdd-68097b20169c",
"资料名称": "20231101问题.pdf",
"扣分id": "3a46258b-1824-4eb5-8136-910d13a34d58",
"一piao否决": "否",
"案件阶段": "审查调查阶段",
"参考规则": "未按规定履行审查调查程序",
"评分": "1"
},
]
},
……………………
……………………
……………………省略若干，后续部分格式都如上一样…………
[此贴子已经被作者于2023/11/10 21:31:13编辑过]
加好友 
发短信
Post By：2023/11/10 18:27:00 [只看该作者]
