javascript - 将递归 jQuery For every 循环转换为 JavaScript 以进行 VBA 脚本控制

Question

我正在尝试使用以下脚本来迭代嵌套的 JSON 对象。它在 html 中运行良好，但是，我是从 Excel VBA ScriptControl 对象调用它。当我这样做时，它会返回“$”的“未定义”错误

我假设这是因为 VBA ScriptControl 不允许 jQuery(这是真的吗？)

那么...可以帮忙将下面的“$.each()”部分转换为 JavaScript 吗？

代码:

function jsonFunction() {
    var jsonObj = {
        Item1: 'This is a test',
        Item2: { Value1: '100', Value2: '200' },
        Item3: { Value1: '101', Value2: '201' },
    };

    var result = '';

    $.each(jsonObj, jsonLoop);

    function jsonLoop(key, value) {
        if (typeof value === 'object') {
            $.each(value, jsonLoop);
        } else {
            result += key + ' : ' + value + ', ';
        }
    } 
    return result;
}

Answer 1

您可以创建自己的each函数

function each(obj, cb) {
    for (var key in obj) {
        cb(key, obj[key]);
    }
}

function jsonFunction() {
    var jsonObj = {
        Item1: 'This is a test',
        Item2: { Value1: '100', Value2: '200' },
        Item3: { Value1: '101', Value2: '201' },
    };

    var result = '';

    each(jsonObj, jsonLoop);

    function jsonLoop(key, value) {
        if (typeof value === 'object') {
            each(value, jsonLoop);
        } else {
            result += key + ' : ' + value + ', ';
        }
    } 
    return result;
}