如何把有合并格的分组 Excel 转换成 Json
现有Excel文件json.xlsx，如下所示：
EMPId |
Name |
Date |
Periodname |
TimUnitDuration |
charge entry |
|
Type |
Price |
|||||
21 |
abc |
2015/12/31 |
15 data |
15 |
fixed |
100 |
45 data |
45 |
fixed |
100 |
|||
42 |
def |
2015/12/31 |
15 data |
15 |
fixed |
100 |
30 data |
30 |
fixed |
100 |
|||
45 data |
45 |
fixed |
100 |
|||
需要将这样带有合并格的分组Excel中的数据转为json格式，结果如下：
[
{
"EMPId":21,
"Name":"abc",
"Date":"2015-12-31",
"Period":[
{
"Periodname":"15 data",
"TimUnitDuration":15,
"ChargeEntry":[
{
"Type":"fixed",
"Price":100
}
]
},
{
"Periodname":"45 data",
"TimUnitDuration":45,
"ChargeEntry":[
{
"Type":"fixed",
"Price":100
}
]
}
]
},
{
"EMPId":42,
"Name":"def",
"Date":"2015-12-31",
"Period":[
{
"Periodname":"15 data",
"TimUnitDuration":15,
"ChargeEntry":[
{
"Type":"fixed",
"Price":100
}
]
},
{
"Periodname":"30 data",
"TimUnitDuration":30,
"ChargeEntry":[
{
"Type":"fixed",
"Price":100
}
]
},
{
"Periodname":"45 data",
"TimUnitDuration":45,
"ChargeEntry":[
{
"Type":"fixed",
"Price":100
}
]
}
]
}
]
借助集算器可以很方便地完成这件事。
集算器安装包可去润乾网站下载集算器职场版，运行时需要一个授权，免费版本就够用。
1. 在集算器中编写脚本p1.dfx：
A |
|
1 |
=file("json.xlsx").xlsimport@w(;,3) |
2 |
=A1.group@i(~(1)) |
3 |
=A2.(~.(~.(if(~==null,A2.~(1)(#),~)))) |
4 |
=create(EMPId,Name,Date,Periodname,TimUnitDuration,CT,CP) |
5 |
=A3.(~.(A4.record(~))) |
6 |
=A4.group(#1,#2,#3;~.group(Periodname,TimUnitDuration;~.new(CT:Type,CP:Price):ChargeEntry):Period) |
7 |
=json(A6) |
A1 从第三行开始，读取 json.xlsx 数据，选项@w表示将数据读成序列的序列。
A2 若每个序列内第一个值不为空，则新分一组
A3 将合并格的空值补足
A4 创建空序表
A5 将数据插入序表
A6 按 Excel 逻辑对数据分组
A7 序表转 json
2. 执行脚本，A7 中的数据是需要的结果。
英文版