上周有人問我,如果讀取Excel之后操作網(wǎng)站的時(shí)候究珊,出現(xiàn)意外導(dǎo)致操作中斷薪者。只能從頭開始很麻煩,有什么辦法可以處理剿涮。
于是我?guī)退麑懥讼旅孢@個(gè)言津,他是通過name數(shù)組的下標(biāo)來同步整個(gè)錄入操作的,所以我取了 name[]的下標(biāo)來作為存檔取试。
這是完整的句子, 可以獲取商品標(biāo)題/商品價(jià)格/商品的鏈接
// x默認(rèn)是0, 傳入值是name[]的下標(biāo)
// 通過1個(gè)彈出對(duì)象獲得 y 悬槽,yes y= 6, no y= 7
//y = go_on y 持續(xù)寫
Function _log_(y, x = 0)
// 判斷ini文件是否存在, 不存在則創(chuàng)建_log.ini
dim bret = "布爾型函數(shù)", i = "返回下標(biāo)"
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 "第一次執(zhí)行,從頭開始"
INI.Write(@res"_log\\logini", "執(zhí)行下標(biāo)", "name", x)
Return 0
elseif y = 7
i = INI.Read(@res"_log\\log.ini","執(zhí)行下標(biāo)", "name" )
Return i
elseif y = "go_on"
INI.Write(@res"_log\\logini", "執(zhí)行下標(biāo)", "name", x)
else
TracePrint "未知錯(cuò)誤瞬浓,請(qǐng)重試"
end if
End Function