本帖最后由 .個朲綉√ 于 2011-4-14 21:57 编辑
可能标题写的不太对,我在这说下我的具体意思吧。
比如 $i = 1 to 100 (这只是比如),下面函数进行到20的时候
刚好20出错了,我想跳过20,继续进21,22,23~~100
只要出错就跳过,因为我在出错的地方用颜色填充了excel出错表格。
我现在只能是在出错时,修改ini配置文件,再次运行程序就从 $i + 1 开始。
$ = 1 To 100
Func _main($testnum,$i)
If $testnum = "0" Or $testnum = "" Then;判断账号是否读取正常,不正常跳出循环
Return 1
EndIf
$parameters[5][1]=$testnum
If Not _find_cookie_by_ie($ie_Cookie,$ie_title) Then
MsgBox(0,"错误","错误退出")
Exit
Return 0
Else
If Not _get_parameter($ie_Cookie) Then
MsgBox(0,"确定参数","没有找到该用户参数,请确保有效")
Return 0
Else
If Not _post_action($ie_Cookie) Then
MsgBox(0,"确定用户类型","确定用户类型失败,请重试")
Return 0
EndIf
If Not _get_user_info($ie_Cookie) Then
MsgBox(0,"提取用户费用","提取用户费用失败,请重试")
Return 0
EndIf
_output_info()
If Not(StringIsDigit($user_info[4][1])) Then
MsgBox(64,'错误提示','非正常写入数据。')
_ExcelCellColorSet($oExcel,$i,$Num_N,$i,$Num_N,3)
;写入出错后,填充颜色。
IniWrite($Config_File,'System','读初始行',$i+1)
;修改ini从出错行的下一行开始
;写入出错后,我不想退出程序,想跳过这一个,继续执行。
Exit
EndIf
_ExcelWriteCell($oExcel, $user_info[4][1], $i, $Write_N);写出记录
EndIf
EndIf
EndFunc
|