testcomplete常用函数库

'得到当前时间
Function FstrNow()
    Utilities.DateTimeToString FstrNow,"yyyy-mm-dd hh:nn:ss",Utilities.Now()
End Function         

'读配置文件
'INI文件例子：
'[DO_SUBS_CODE]
'SUB1=001.txt

'[Root]


Function FstrReadIni(strIniFile,strSection,strOption)
  Set w = Storages.INI(strIniFile)
  Set Section = w.GetSubSection(strSection)
  FstrReadIni=Section.GetOption(strOption,"")
End Function


'判断文件是否存在
'例子: if lib.FblnFileExist(Project.Path + "001.xlsx") then

Function FblnFileExist(strFile)
  If Not aqFile.Exists(strFile) Then 
    FblnFileExist=False
  Else
    FblnFileExist=True
  End If
End Function

'打开批量受理的excel文件，写入一个数组到指定的起止位置

Function FblnWrite2xls(strXlsFile,lngXstart,lngYstart,arrData)
  Dim excel
  Dim MsExcel
  Dim i,j   

  FblnWrite2xls=false
  
  Set excel = Sys.WaitProcess("EXCEL")
  If excel.Exists Then
    Call excel.Terminate()
  End If

  on error resume next
  Set MsExcel = Sys.OleObject("Excel.Application")
  if Err.Number <> 0 then
    call Log.Warning("初始化 MS Excel 失败", "", pmHigher)
FblnWrite2xls=False
    exit Function
  end if

  if not FblnFileExist(strXlsFile) then
Log.Warning(strXlsFile & " 不存在")
    FblnWrite2xls=False
    exit Function
  End If