|
下面是一个叫Flight的Action,数据已经导入到了datatable,一共有三行数据,也就是三次迭代。
在第一次迭代的时候会查看环境变量ActionIteration的Value,当为1时,就会生成一个当前时间的文件夹,精确到秒。
问题就出现在strOutputFolder这里,它在第一次迭代的时候是有值的,但是在第二次迭代的时候,通过msgbox查看它就为空了。
这样的结果就是倒数第三行截图存放的目录发生了变化,第一次迭代会存入以当前时间命名的folder里,但是接下来的迭代因为strOutputFolderName为空,就只能存放在outputFiles文件夹下。
【问题来了】如果每次迭代,都需要存放在以第一次迭代的当前时间命名的strOutputFolderName里,请问怎么做?
If Environment.Value("ActionIteration") = 1 Then
strOutputFolderName = "Flight"&Replace(Replace(now(),":","_"),"/","_")
‘生成文件夹
Call AddNewFolder(var_path&"\outputFiles\",strOutputFolderName)
End If
'查看strOutputFolderName的Value
msgbox strOutputFolderName
For Counter = 1 to RowCount
DataTable.GetSheet("Flight").SetCurrentRow Counter
TCName = DataTable.Value("txtCaseNum","Flight")
If Trim(TCName) = Trim(strGTestCaseNo) Then
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").Select DataTable("FD_TYPE", dtLocalSheet)
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("passCount").Select DataTable("FD_PASSENGER", dtLocalSheet)
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("fromPort").Select DataTable("FD_DEP_FROM", dtLocalSheet)
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("fromMonth").Select DataTable("FD_DEP_MONTH", dtLocalSheet)
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("fromDay").Select DataTable("FD_DEP_DAY", dtLocalSheet)
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("toPort").Select DataTable("FD_ARRIVE", dtLocalSheet)
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("toMonth").Select DataTable("FD_ARR_MONTH", dtLocalSheet)
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("toDay").Select DataTable("FD_ARR_DAY", dtLocalSheet)
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("servClass").Select DataTable("PRE_SER_CLASS", dtLocalSheet)
Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebButton("findFlights").Click
imgFileName =var_path & "outputFiles\" & strOutputFolderName & "\" & Trim(DataTable("txtCaseNum",dtLocalSheet))
’将截图存入对应的目录
Browser("Find a Flight: Mercury").CaptureBitmap imgFileName & ".png", true
End if
Next |
|