写了 几个 json 生成小工具

<h1>工作需要</h1>

<h1>写了几个json生成工具</h1>

<h1>手动写实在太麻烦了</h1>

<h1>用E写的代码</h1>

.版本 2

.程序集 窗口程序集1
.程序集变量 a350a, 整数型
.程序集变量 a800a, 整数型
.程序集变量 次数, 整数型
.程序集变量 file, 文本型
.程序集变量 file1, 文本型
.程序集变量 split, 文本型, , "0"
.程序集变量 split1, 文本型, , "0"

.子程序 __启动窗口_创建完毕

左边 ＝ 400
顶边 ＝ 200
宽度 ＝ 800
高度 ＝ 600
子程序1 ()

.子程序 __启动窗口_尺寸被改变

子程序1 ()

.子程序 子程序1
.局部变量 a, 整数型

a ＝ 40
编辑框1.左边 ＝ 0
编辑框1.顶边 ＝ 0
编辑框1.宽度 ＝ 宽度 － 18
编辑框1.高度 ＝ 高度 － 45 － a
按钮1.顶边 ＝ 编辑框1.高度
按钮1.左边 ＝ 0
按钮1.宽度 ＝ 编辑框1.宽度
按钮1.高度 ＝ a

.子程序 _按钮1_被单击

a ()

.子程序 a, , , 处理EFFM3AverageRefG
.局部变量 文件, 文本型
.局部变量 分割文本, 文本型, , "0"
.局部变量 b, 整数型
.局部变量 i, 整数型

文件 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\EFFM3AverageRefG.csv”))
file ＝ 到文本 (读入文件 (取运行目录 () ＋ “\ReportTemplate.txt”))
file1 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\ReportTemplate1.txt”))
split ＝ 分割文本 (file, #换行符, )
split1 ＝ 分割文本 (file1, #换行符, )
分割文本 ＝ 分割文本 (文件, #换行符, )
b ＝ 取数组成员数 (分割文本)
' 输出调试文本 (b)
编辑框1.加入文本 (“{” ＋ #换行符)
.计次循环首 (b, i)
.如果真 (i ≠ 1)
a2 (分割文本 [i])
.如果真结束

.计次循环尾 ()
编辑框1.加入文本 (“}” ＋ #换行符)

.子程序 a2, , , 350,800
.参数 文本, 文本型
.局部变量 a, 文本型, , "0"
.局部变量 b, 整数型
.局部变量 c, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 count, 整数型

a ＝ 分割文本 (文本, “,”, )
b ＝ 取数组成员数 (a)
次数 ＝ 次数 ＋ 1
.如果 (次数 ≤ 7)
.如果真 (次数 ＝ 1)
编辑框1.加入文本 (取空白文本 (4) ＋ #引号 ＋ “350” ＋ #引号 ＋ “ : [” ＋ #换行符)
.如果真结束

编辑框1.加入文本 (取空白文本 (8) ＋ “{” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (12) ＋ #引号 ＋ “kind” ＋ #引号 ＋ “ : ” ＋ 到文本 (次数) ＋ “,” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (12) ＋ #引号 ＋ “items” ＋ #引号 ＋ “ : [” ＋ #换行符)
.计次循环首 (b, i)
.如果真 (i ≠ 1)
count ＝ count ＋ 1
c ＝ 分割文本 (split [count], “|”, )
.如果 (b ≠ i)
items (c [1], c [2], c [3], a [i])
.否则
items (c [1], c [2], c [3], a [i], 真)
.如果结束

.如果真结束
处理事件 ()
.计次循环尾 ()
' 输出调试文本 (count)
编辑框1.加入文本 (取空白文本 (12) ＋ “]” ＋ #换行符)
.如果真 (次数 ≠ 7)
编辑框1.加入文本 (取空白文本 (8) ＋ “},” ＋ #换行符)
.如果真结束
.如果真 (次数 ＝ 7)
编辑框1.加入文本 (取空白文本 (8) ＋ “}” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (4) ＋ “],” ＋ #换行符)
.如果真结束

.否则
.如果真 (次数 ＝ 8)
编辑框1.加入文本 (取空白文本 (4) ＋ #引号 ＋ “800” ＋ #引号 ＋ “ : [” ＋ #换行符)
.如果真结束

编辑框1.加入文本 (取空白文本 (8) ＋ “{” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (12) ＋ #引号 ＋ “kind” ＋ #引号 ＋ “ : ” ＋ 到文本 (次数 － 7) ＋ “,” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (12) ＋ #引号 ＋ “items” ＋ #引号 ＋ “ : [” ＋ #换行符)
.计次循环首 (b, i)
.如果真 (i ≠ 1)
count ＝ count ＋ 1
c ＝ 分割文本 (split1 [count], “|”, )
.如果 (b ≠ i)
items (c [1], c [2], c [3], a [i])
.否则
items (c [1], c [2], c [3], a [i], 真)
.如果结束

.如果真结束
处理事件 ()
.计次循环尾 ()
' 输出调试文本 (count)
编辑框1.加入文本 (取空白文本 (12) ＋ “]” ＋ #换行符)
.如果真 (次数 ≠ 14)
编辑框1.加入文本 (取空白文本 (8) ＋ “},” ＋ #换行符)
.如果真结束
.如果真 (次数 ＝ 14)
编辑框1.加入文本 (取空白文本 (8) ＋ “}” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (4) ＋ “]” ＋ #换行符)
.如果真结束

.如果结束

.子程序 items
.参数 a, 文本型, , sheet
.参数 b, 文本型, , row
.参数 c, 文本型, , col
.参数 d, 文本型, , val
.参数 e, 逻辑型, 可空

编辑框1.加入文本 (取空白文本 (16) ＋ “{” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (20) ＋ #引号 ＋ “sheet” ＋ #引号 ＋ “ : ” ＋ a ＋ “,” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (20) ＋ #引号 ＋ “row” ＋ #引号 ＋ “ : ” ＋ b ＋ “,” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (20) ＋ #引号 ＋ “col” ＋ #引号 ＋ “ : ” ＋ c ＋ “,” ＋ #换行符)
编辑框1.加入文本 (取空白文本 (20) ＋ #引号 ＋ “val” ＋ #引号 ＋ “ : ” ＋ #引号 ＋ d ＋ #引号 ＋ #换行符)
.如果 (e ＝ 假)
编辑框1.加入文本 (取空白文本 (16) ＋ “},” ＋ #换行符)
.否则
编辑框1.加入文本 (取空白文本 (16) ＋ “}” ＋ #换行符)
.如果结束