上周有人问我,如果读取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