json数据，提取指定内容

wllnet

有文件夹内有很多格式统一的JSON文件，需要用VBA导出指定的数据，谢谢！

json原数据格式

EXCEL需要提取的内容

zpy2

#!/usr/bin/python
# -*- coding: UTF-8 -*-
"""
decode_json.py
http://club.excelhome.net/forum.php?mod=viewthread&tid=1560839&mobile=2
https://blog.csdn.net/u013925378/article/details/102742487?utm_medium=distribute.wap_relevant.none-task-blog-BlogCommendFromMachineLearnPai2-4.wap_blog_relevant_pic&depth_1-utm_source=distribute.wap_relevant.none-task-blog-BlogCommendFromMachineLearnPai2-4.wap_blog_relevant_pic

python获取某文件夹下所有指定后缀的文件
import json


#打开json文件
result4=json.load(f)
print(result4["infos"][0]["id"])
print(result4["pagination"]["totalRecords"])
"""

import os
import json
path = ".//json"
result =[]
datanames = os.listdir(path)
for dataname in datanames:
    if os.path.splitext(dataname)[1] == '.json':#目录下包含.json的文件
        result.append(dataname)
rows=[]
for file in result:
    print(os.path.join(path,file))
    row=[]
    filepath=os.path.join(path,file)
    #f=open(path+"/"+dataname)
    f=open(filepath)
    result4=json.load(f)
    #print(result4)
   
    cell=result4["seriesId"]
    #print(cell)
   

    row.append(cell)
    #print(row)

    cell=result4["seriesName"]
    #print(cell)
   

    row.append(cell)
    #print(row)
    cell=result4["programs"][0]["movies"][0]["playURL"]
    ##print(cell)
   

    row.append(cell)
    #print(row)
    rows.append(row)
    #print(rows)


    #break

'''
import shutil
filename="json.xlsx"
source=os.path.join(path,filename)
filename="json.xlsx.bsk"
target=os.path.join(path,filename)
shutil.copy(source,target)
import sys
sys.exit()
'''
#将rows写入excel
import openpyxl as op

def op_toexcel(data,filename): # openpyxl库储存数据到excel

    #wb = op.Workbook(filename) # 创建工作簿对象
    #https://openpyxl.readthedocs.io/en/stable/usage.html#read-an-existing-workbook
    wb=op.load_workbook(filename)
    ws = wb['Sheet1'] # 创建子表
    for i in range(len(data)):
        d = data[i]
        print(d)
        ws.append(d) # 每次写入一行
    wb.save(filename)
'''
    print(ws.values)
    range_date=ws.values
    l=[[cell for cell in row] for row in range_date][1:]
    print(l)
'''
data=rows
filename=os.path.join("json","json.xlsx")
op_toexcel(data,filename)

简七

Private Sub test()
Dim ado As Object, reg As Object
Dim ph$, s$, p$, ary(), i%, j%
Set reg = CreateObject("vbscript.regexp")
Set ado = CreateObject("adodb.stream")
ph = ThisWorkbook.path & "\*.json" '文件目录
p = Dir(ph)
With ado
    .Charset = "Utf-8"
    .Type = 2
    .Mode = 3
End With

i = 0
ReDim Preserve ary(i)
    ary(i) = "seriesId|seriesName|playURL"
While p <> ""
    ado.Open
    ado.LoadFromFile ThisWorkbook.path & "\" & p
    s = ado.ReadText
    i = i + 1
    ReDim Preserve ary(i)
    For j = 0 To 2
        reg.Pattern = Split(ary(0), "|")(j) & ".*""(.*)"","
        ary(i) = ary(i) & reg.Execute(s)(0).SubMatches(0) & "|"
    Next
    ado.Close
    p = Dir
Wend

[a1].Resize(UBound(ary) + 1) = Application.Transpose(ary)
Range("a:a").TextToColumns other:=True, otherchar:="|"
Set reg = Nothing
Set ado = Nothing
End Sub

wllnet

zpy2 发表于 2020-10-26 08:21
#!/usr/bin/python
# -*- coding: UTF-8 -*-
"""

非常感谢，python没用过，

wllnet

简七 发表于 2020-10-26 18:36
Private Sub test()
Dim ado As Object, reg As Object
Dim ph$, s$, p$, ary(), i%, j%

非常感谢，完美解决；

nk0769

简七 发表于 2020-10-26 18:36
Private Sub test()
Dim ado As Object, reg As Object
Dim ph$, s$, p$, ary(), i%, j%

学习了,mark下

wllnet

这种格式的如何循环解决，文件夹中所有的JSON文件格式是一样的，但是数据数量可能不一样，按着需要的格式导出到EXCEL

原文件格式

JSON 原文件格式

需要的格式

需要转换的格式

json循环.rar (7.49 KB, 下载次数: 13)

2020-10-30 00:13 上传

点击文件名下载附件

zpy2

wllnet 发表于 2020-10-30 00:14
这种格式的如何循环解决，文件夹中所有的JSON文件格式是一样的，但是数据数量可能不一样，按着需要的格式导 ...

"bcharging" : 1,
    "bpreview" : 0,
    "movies" : [ {
      "movieId" : "29703952",
      "type" : 2,
      "playURL" : "http://lv1.vcache.cn/vod/enbense02.m3u8",
    } ]
  },

PayURL这行多了一个逗号（,）,后面数据没出现，不是标准的json,可在线测试一下。

type" : 2,
      "playURL" : "http://vcache.cn/vod/YANHUA/0729/YANHUA00017227203FIMOV0005529533/20200727132146404f2d6d45b.m3u8",
      "audioType" : 0,
      "closedCaptioning" : 0,
      "duration" : 100,
      "definition" : 2,
      "bitrate" : 500
    } ]
  } ]
}

wllnet

zpy2 发表于 2020-10-30 08:47
"bcharging" : 1,
    "bpreview" : 0,
    "movies" : [ {

谢谢提示，

原有JSON内容比较多，我删除了一部分，

我只是想表达JSON是这种数据格式，

然后通过VBA把数据按着EXCEL格式的要求格式输出就行了；

文件夹中会有很多相同格式的JSON

zpy2

wllnet 发表于 2020-10-30 18:48
谢谢提示，

原有JSON内容比较多，我删除了一部分，

原有JSON内容比较多，我删除了一部分，

我只是想表达JSON是这种数据格式，

标准的json 有库支持，否则，需要专门的数据清洗，或者说，你如果给出来的是杂乱无章的文本，会给解析带来巨大的困难。
我觉得你应该不会是每个json 文本打开去删除逗号后面的内容。