论坛 › 已解决问题区 › 【已解决】怎么让判定函数中出错，返回继续执行。

.個朲綉√ 发表于 2011-4-14 09:05:57

【已解决】怎么让判定函数中出错，返回继续执行。

本帖最后由 .個朲綉√ 于 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=$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)) 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, $i, $Write_N);写出记录
                EndIf
        EndIf
EndFunc

afan 发表于 2011-4-14 09:43:22

ContinueLoop

.個朲綉√ 发表于 2011-4-14 21:57:04

这个函数里不能加这条命令，要加在for里面，懂了，THX A斑

查看完整版本: 【已解决】怎么让判定函数中出错，返回继续执行。