GitHub霸屏神器,Excel秒转JSON

点击上方“Github爱好者社区”,选择星标

回复“资料”,获取小编整理的一份资料

作者:GG哥

来源:GitHub爱好者社区(github_shequ)

这是GitHub爱好者社区第 38 篇原创文章

Hello,大家好,我是GG哥!

很多程序员都会用json,但是怎么把excel转成json呢?在游戏项目中一般都需要由策划制作大量的游戏内容,其中很大一部分是使用Excel表来制作的。于是程序就需要把Excel文件转换成程序方便读取的格式。

之前项目使用的Excel表导入工具都是通过Office Excel组件来实现数据访问的,效率十分令人不满。一个端游项目一般要上百个表格,手游项目20、30个表格基本也是要的,于是表格导入程序的过程一般要几分钟,项目后期要接近半个小时。这里分享的这个小工具,在速度上有质的飞越,比上述方法实现的工具有接近100倍的速度提升.

主要功能:

  • 支持读取 Excel 97-2003的 .xls格式和2007的 .xlsx格式;

  • 支持多个表单导出;

  • 把Excel表单转换成Json对象,并保存到一个文本文件中。支持将表中内容转换成Array,或者以第一列为ID的字典对象;

  • 支持GUI模式和命令行模式

GUI模式方便预览;而命令行式,方便将多个表格转换工作写成一个批处理文件(.bat或者.sh),一键处理几十个表格。例如,使用下面这个.bat批处理文件,可以一次性转换”.\excel”目录下所有的.xlsx文件到”.\json”目录:

Excel表单格式约定


  • 第一行固定作为列名(用来构造json字段名称);

  • 第一列固定作为对象的ID;

  • 读取Excel Workbook中的第一个sheet;

  • 对于SQL导出模式:第二行固定为字段类型

  • 使用表头生成C#数据定义代码

在Mac、Linux上运行,这个小工具使用C#编写,编译出来的.exe通过Mono即可在Mac或者Linux上运行。

  • Mono下载地址:http://www.mono-project.com/download

  • 运行GUI模式:mono ./excel2json.exe

  • 运行命令行模式:mono ./excel2json.exe 命令行参数

目前,excel2json已经开源在Github。(Github地址:https://github.com/neil3d/excel2json),如果你对这个项目感兴趣也可以参与贡献哦~

好了...

现在是真的结束了...

我已经夸不动了...





千言万语化成一句,这么优秀的仓库,大家多多给仓库创建者 star 支持,你们的 star 是万千开源者源源不断创作的动力!


当然还有多多对我的在看转发支持啦,你们的“在看转发”也是我源源不断创作的动力呀...



好啦,今天的分享就到这儿啦,我们下次见啦~



GitHub原创推荐•  爆火!GitHub狂揽12.3万星!这个歪果仁的面试总结太生猛了!•  厉害了!GitHub火爆的DeepFake变脸即将用于拍电影?这是要让替身演员失业的节奏?•  牛批牛批!GitHub开源仿抖音国际版,火爆全网!•  GitHub开源神器:教你如何实现 PDF 转 Word关注「Github爱好者社区」加星标,每天带你逛Github好玩的项目
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
格式的方法是什么? 可以使用 VBA 编写代码将 Excel 表格数据换成 JSON 格式。具体操作步骤见下文: 1. 对 Excel 表格中的数据进行读取; 2. 将读取的数据换成 JSON 格式的字符串; 3. 将字符串写到输出文件中。 你可以参考以下代码: Sub Excel2JSON() Dim objWorksheet As Worksheet Set objWorksheet = ThisWorkbook.Worksheets("Sheet1") ' Sheet1 为要操作的表格名 Dim intLastRow As Long intLastRow = objWorksheet.Cells(Rows.Count, "A").End(xlUp).Row ' 获取表格中最后一行的行号 Dim intLastCol As Long intLastCol = objWorksheet.Cells(1, Columns.Count).End(xlToLeft).Column ' 获取表格中最后一列的列号 Dim dictData As Object Set dictData = CreateObject("Scripting.Dictionary") Dim intRow As Long Dim intCol As Long For intRow = 2 To intLastRow ' 从第 2 行开始遍历 Dim dictRowData As Object Set dictRowData = CreateObject("Scripting.Dictionary") For intCol = 1 To intLastCol dictRowData(objWorksheet.Cells(1, intCol).Value) = objWorksheet.Cells(intRow, intCol).Value ' 获取每一行数据 Next intCol dictData(intRow - 1) = dictRowData ' 将每一行数据存入字典中 Next intRow Dim objJSON As Object Set objJSON = CreateObject("Scripting.Dictionary") objJSON.Add "data", dictData ' 将数据存入 JSON Dim strOutput As String strOutput = JsonConverter.ConvertToJson(objJSON) ' 将 JSON 换成字符串 Debug.Print strOutput ' 输出字符串到控制台 End Sub 注意:需要先安装 VBA-JSON 模块才能使用 JsonConverter。可以在 https://github.com/VBA-tools/VBA-JSON 下载最新版。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值