递归火山软件开发平台

标题: json写入问题 [打印本页]

作者: ZG空空    时间: 2024-1-30 20:33
标题: json写入问题
本帖最后由 ZG空空 于 2024-1-30 21:05 编辑

file:///C:/Users/%E5%91%A8/Pictures/Screenshots/%E5%B1%8F%E5%B9%95%E6%88%AA%E5%9B%BE
<火山程序 类型 = "通常" 版本 = 1 />

方法 获取盘所有文件 <公开>
参数 局_磁盘名 <类型 = 文本型>
参数 返回json数组类 <类型 = YYJSON数组类>
{

    变量 局_查找 <类型 = 文件查找类>
    变量 局_临时地址 <类型 = 文本型>
    变量 局_JSON数组 <类型 = YYJSON数组类>
    变量 局_临时JSON数组 <类型 = YYJSON数组类>
    变量 局_临时JSON对象 <类型 = YYJSON对象类>
    变量 局_文件属性 <类型 = 整数>
    局_临时地址 = 局_查找.寻找文件 (局_磁盘名 + "\\*", 文件属性.子目录 + 文件属性.临时文件 + 文件属性.只读文件 + 文件属性.存档文件 + 文件属性.系统文件 + 文件属性.通常文件 + 文件属性.隐藏文件, 文件属性.系统文件)
    判断循环 (局_临时地址 != "")
    {
        局_文件属性 = 取文件属性 (局_磁盘名 + "\\" + 局_临时地址)
        // 调试输出 (局_临时地址)
        如果 (局_文件属性 == 16)
        {
            获取盘所有文件 (局_磁盘名 + "\\" + 局_临时地址, 局_临时JSON数组)
            局_临时JSON对象.加入数组成员 (局_磁盘名, 局_临时JSON数组, )
            局_JSON数组.加入成员 (局_临时JSON对象)
        }
        否则
        {
            局_JSON数组.加入文本成员 (局_临时地址)

        }
        局_临时地址 = 局_查找.寻找文件 ("", 文件属性.子目录 + 文件属性.临时文件 + 文件属性.只读文件 + 文件属性.存档文件 + 文件属性.系统文件 + 文件属性.通常文件 + 文件属性.隐藏文件, 文件属性.系统文件)

    }
    返回json数组类 = 局_JSON数组
}

运行显示
错误: 接收到未经处理的严重异常,代码为: 0xC000041D
我把json代码部分注释掉就没问题,大佬们怎么解决啊







欢迎光临 递归火山软件开发平台 (https://bbs.voldp.com/) Powered by Discuz! X3.4