json取数值并归类

18725857948

重点要目录分类，如果是文件夹就创建文件夹，并取出文件夹下的PDF路径和名字

18725857948

主要是里面文件夹中又有无数个文件和文件夹

fire9

得用递归，最多的三层

18725857948

fire9 发表于 2024-6-3 21:15
得用递归，最多的三层

大佬能说说吗

lianzuo123

递归一下就好,没做太多判断,自行处理
json使用的是zyjson

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
m_files	数据类型_file	0

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
json	zyJsonValue
count	整数型
i	整数型
path	文本型
obj	zyJsonValue
baseDir	文本型

如果真 (json.解析 ( #常量_json ) ＝ 假)
调试输出 (“解析失败!”)
返回 ()
count ＝ json.取成员数 (“data”)
如果真 (count ＝ 0)
调试输出 (“无数据”)
返回 ()

计次循环首 (count, i)
obj ＝ json.取成员 (“data”, i － 1)
子程序_递归处理数据 (obj, “”)
计次循环尾 ()
调试输出 (取数组成员数 (m_files))
baseDir ＝ “c:\test20240603”
目录_创建 (baseDir)
计次循环首 (取数组成员数 (m_files), i)
调试输出 (i, m_files [i].destDir, m_files [i].name)
如果真 (m_files [i].destDir ≠ “” 且 目录_是否存在 (baseDir ＋ m_files [i].destDir) ＝ 假)
目录_创建 (baseDir ＋ m_files [i].destDir)

' 这里去请求URL获取PDF文件字节集后写出到文件就可以了
' 写到文件 (baseDir ＋ m_files [i].destDir ＋ “\” ＋ m_files [i].name, 网页_访问_对象 (m_files [i].url))
' 测试我是写出txt,看看效果
写到文件 (baseDir ＋ m_files [i].destDir ＋ “\” ＋ m_files [i].name ＋ “_下载地址.txt”, 到字节集 (m_files [i].url))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_递归处理数据
参数名	类 型	参考	可空	数组	备 注
jsonObj	zyJsonValue
parent_path	文本型

变量名	类 型	静态	数组	备 注
flag_sub	逻辑型
name	文本型
file	数据类型_file
count	整数型
obj	zyJsonValue
i	整数型

flag_sub ＝ jsonObj.是否存在 (“sub”)
name ＝ jsonObj.取文本 (“name”)
如果真 (flag_sub ＝ 假)
' 是文件
file.name ＝ name
file.destDir ＝ parent_path
file.url ＝ jsonObj.取文本 (“url”)
加入成员 (m_files, file)
返回 ()

count ＝ jsonObj.取成员数 (“sub”)
' 是目录
计次循环首 (count, i)
obj ＝ jsonObj.取成员 (“sub”, i － 1)
子程序_递归处理数据 (obj, parent_path ＋ “\” ＋ name)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 m_files, 数据类型_file, , "0"<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 子程序1 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> .局部变量 json, zyJsonValue<br /> .局部变量 count, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 path, 文本型<br /> .局部变量 obj, zyJsonValue<br /> .局部变量 baseDir, 文本型<br /> <br /> .如果真 (json.解析 (#常量_json) ＝ 假)<br />     调试输出 (“解析失败!”)<br />     返回 ()<br /> .如果真结束<br /> count ＝ json.取成员数 (“data”)<br /> .如果真 (count ＝ 0)<br />     调试输出 (“无数据”)<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (count, i)<br />     obj ＝ json.取成员 (“data”, i － 1)<br />     子程序_递归处理数据 (obj, “”)<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> 调试输出 (取数组成员数 (m_files))<br /> <br /> <br /> baseDir ＝ “c:\test20240603”<br /> 目录_创建 (baseDir)<br /> .计次循环首 (取数组成员数 (m_files), i)<br />     调试输出 (i, m_files <i>.destDir, m_files <i>.name)<br /> <br />     .如果真 (m_files <i>.destDir ≠ “” 且 目录_是否存在 (baseDir ＋ m_files <i>.destDir) ＝ 假)<br />         目录_创建 (baseDir ＋ m_files <i>.destDir)<br />     .如果真结束<br /> <br />     ' 这里去请求URL获取PDF文件字节集后写出到文件就可以了<br />     ' 写到文件 (baseDir ＋ m_files <i>.destDir ＋ “\” ＋ m_files <i>.name, 网页_访问_对象 (m_files <i>.url))<br /> <br />     ' 测试我是写出txt,看看效果<br />     写到文件 (baseDir ＋ m_files <i>.destDir ＋ “\” ＋ m_files <i>.name ＋ “_下载地址.txt”, 到字节集 (m_files <i>.url))<br /> <br /> <br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 子程序_递归处理数据<br /> .参数 jsonObj, zyJsonValue<br /> .参数 parent_path, 文本型<br /> .局部变量 flag_sub, 逻辑型<br /> .局部变量 name, 文本型<br /> .局部变量 file, 数据类型_file<br /> .局部变量 count, 整数型<br /> .局部变量 obj, zyJsonValue<br /> .局部变量 i, 整数型<br /> <br /> flag_sub ＝ jsonObj.是否存在 (“sub”)<br /> name ＝ jsonObj.取文本 (“name”)<br /> .如果真 (flag_sub ＝ 假)<br />     ' 是文件<br />     file.name ＝ name<br />     file.destDir ＝ parent_path<br />     file.url ＝ jsonObj.取文本 (“url”)<br />     加入成员 (m_files, file)<br />     返回 ()<br /> .如果真结束<br /> <br /> count ＝ jsonObj.取成员数 (“sub”)<br /> ' 是目录<br /> <br /> .计次循环首 (count, i)<br />     obj ＝ jsonObj.取成员 (“sub”, i － 1)<br />     子程序_递归处理数据 (obj, parent_path ＋ “\” ＋ name)<br /> .计次循环尾 ()

lianzuo123

忘记贴数据类型了

  

数据类型名	公开	备 注
数据类型_file
成员名	类 型	传址	数组	备 注
name	文本型
destDir	文本型
url	文本型

.版本 2<br /> <br /> .数据类型 数据类型_file<br />     .成员 name, 文本型<br />     .成员 destDir, 文本型<br />     .成员 url, 文本型

lianzuo123

18725857948

lianzuo123 发表于 2024-6-3 21:54
递归一下就好,没做太多判断,自行处理
json使用的是zyjson

等会我试试，谢谢哈