轻量级框架代码疑问...............

edisonlzk

1. 
   
2. DataTable.GetSheet(TEST_SHEET).SetCurrentRow( 1 )
   
3.     For i=1 to row_count
   
4.                 If DataTable("IDX",TEST_SHEET) = "√" Then
   
5.                         taskFileName = DataTable("bizName",TEST_SHEET)
   
6.                         If NOT taskFile.Exists(taskFileName) Then
   
7.                                 taskFilePath = pathFind(Environment("testScriptFolderName"),taskFileName,"vbs")
   
8.                 call taskFile.add(taskFileName,taskFilePath)
   
9.                             ExecuteFile taskFilePath '加载task脚本文件
   
10.                                 logPrint("加载Task脚本文件完成。"&taskFilePath)
    
11.                                 Execute "Set obj"&taskFileName&" = new "&taskFileName '初始化task的类
    
12.                         End If
    
13.                 End If
    
14.                 DataTable.GetSheet(TEST_SHEET).SetNextRow
    
15.         Next
    
16.         '存放业务的Task的文件加载完毕
    
17. 
    
18. '开始按照顺序执行测试用例中的具体的各个Task
    
19.         DataTable.GetSheet(TEST_SHEET).SetCurrentRow( 1 )
    
20.         For i = 1 to row_count
    
21.                 If DataTable("IDX",TEST_SHEET) = "√" Then
    
22.                         '执行该脚本文件中的具体方法，方法名称为Excel表格中的taskName的值，暂时不做中英文名称的字典匹配，直接使用英文
    
23.                         className = DataTable("bizName",TEST_SHEET)
    
24.                         taskName = DataTable("taskName",TEST_SHEET)
    
25.                         bizDataTableName = DataTable("bizDataTable",TEST_SHEET)
    
26.                         filterExp =DataTable("filter",TEST_SHEET)   '过滤测试数据的条件语句
    
27. 
    
28.                         If bizDataTableName<>"" Then
    
29.                                 '如果task有对应的测试数据，那么加载对应的测试数据
    
30.                                 Sheet_Name = testDataTable.item(DataTable("bizDataTable",TEST_SHEET))
    
31.                                 test_data_row_count = DataTable.GetSheet(Sheet_Name).GetRowCount
    
32.                                 For j=1 To test_data_row_count
    
33.                                         DataTable.GetSheet(Sheet_Name).SetCurrentRow( j )
    
34.                                         If Eval(generateFilterExp(Sheet_Name,filterExp)) Then
    
35.                                                         'Eval(generateFilterExp(Sheet_Name,filterExp)) ，解析测试数据的条件语句，符合此条件的，则执行该行测试数据，否则不执行
    
36.                             str = "obj"&className&"."&taskName&" "&chr(34)&Sheet_Name&chr(34)
    
37.                                                         logPrint("执行测试步骤 "&i&", "&str)
    
38.                                                         Execute str     ''执行 objlogin.login "login","TEST_SHEET"
    
39.                                         End If
    
40.                                         DataTable.GetSheet(Sheet_Name).SetNextRow
    
41.                                 Next
    
42.                         else
    
43.                                 '如果task没有对应的测试数据，则不加载测试数据，如退出登录logout()方法
    
44.                                 str = "Call obj"&className&"."&taskName&"()"
    
45.                                 logPrint("执行测试步骤 "&i&", "&str)
    
46.                                 Execute str
    
47.                         end if       
    
48.                 End If
    
49.                 DataTable.GetSheet(TEST_SHEET).SetNextRow
    
50.         Next
    

复制代码

为什么在
-->
    ExecuteFile taskFilePath '加载task脚本文件
<-- 处没有处理脚本,但到"开始按照顺序执行测试用例中的具体的各个Task"就开始执行脚本了呢..
有谁可以告诉我下为什么吗?