通过配置文件预防中断

上周有人问我，如果读取Excel之后操作网站的时候，出现意外导致操作中断。只能从头开始很麻烦，有什么办法可以处理。

于是我帮他写了下面这个，他是通过name数组的下标来同步整个录入操作的，所以我取了 name[]的下标来作为存档。

这是完整的句子, 可以获取商品标题/商品价格/商品的链接
// x默认是0, 传入值是name[]的下标
// 通过1个弹出对象获得 y ，yes y= 6, no y= 7
//y = go_on y 持续写
Function _log_(y, x = 0)
    // 判断ini文件是否存在, 不存在则创建_log.ini
    dim bret = "布尔型函数", i = "返回下标"
    bret = file.PathExists(@res"_log\\")
    if bret = false
        File.CreateFolder(@res"_log\\")
    end if
    bret = file.PathExists(@res"_log\\_log.ini")
    if bret = false
        File.Create(@res"_log\\log.ini")
    end if

    if y = 6
        TracePrint "第一次执行，从头开始"
        INI.Write(@res"_log\\logini", "执行下标", "name", x)
        Return 0
        elseif y = 7
            i = INI.Read(@res"_log\\log.ini","执行下标", "name" )
            Return i
           elseif y = "go_on"
                INI.Write(@res"_log\\logini", "执行下标", "name", x)
        else
        TracePrint "未知错误，请重试"
    end if
End Function