自動生成 MultiTestManager 的執行文件mtm

 MultiTestManager 缺少一個添加多個腳本的操作，當自動化的腳本數比較多時，一個一個點擊添加進去，那實在有些痛苦。首先分析一下 MultiTestManager 保存的文件：後綴爲：mtm

 

[Files] NumberOfFiles=4 File1=F:/autoTestScript/vsmtMini-j10/測試腳本/0-創建日誌文件;1 File2=F:/autoTestScript/vsmtMini-j10/測試腳本/000-管理員登錄;1 File3=F:/autoTestScript/vsmtMini-j10/測試腳本/001-登錄界面測試;1 File4=F:/autoTestScript/vsmtMini-j10/測試腳本/003-日程管理;1 [Report] CreateReport=Yes DefaultLocation=Yes ViewReport=Yes ReportHeader=Yes RunStartedHeader=Yes RunEndedHeader=Yes ReportLocation=Yes IterationsHeader=Yes [Mail] Subject=Test results from batch run. Message=Test results will automatically be attached to this email if created.  

明眼人一下子就看出它的規律。下面是我用VBS寫的一個腳本，在同文件目錄下，自動生成一個MTM文件：

strPath = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"/")-1) '格式化時間值 Function thetime(MyDate) thetime=year(MyDate) if len(month(MyDate))=1 then thetime=thetime & "0" & month(MyDate) else thetime=thetime & month(MyDate) end if if len(day(MyDate))=1 then thetime=thetime & "0" & day(MyDate) else thetime=thetime & day(MyDate) end if End Function '創建文件 Function CreateLogFile (sFile) Set fileSystemObj = CreateObject("Scripting.FileSystemObject") fileSpec =strPath &"/"& sFile If fileSystemObj.FileExists(filespec) Then fileSystemObj.DeleteFile(fileSpec), True End If Set logFile = fileSystemObj.CreateTextFile(fileSpec, 2, True) logFile.Close Set logFile = Nothing Set fileSystemObj = Nothing End Function 'create the file Dim Array1(100) mtmFileName ="MultiTest" & thetime(Date()) & ".mtm" CreateLogFile (mtmFileName) Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(strPath) Set fc = f.SubFolders i = 0 For Each f1 in fc Array1(i)= f1.name i=i+1 Next Set fs=Nothing Set f = Nothing Set fc = Nothing '============================================================= '寫MTM文件內容 Set fileSystemObj = CreateObject("Scripting.FileSystemObject") fileSpec =strPath&"/"& mtmFileName Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, False, True) logFile.WriteLine ("[Files]" ) logFile.WriteLine ("NumberOfFiles=" & i ) For j = 0 To i logFile.WriteLine ("File" & j+1 & "=" & strPath & "/" &Array1(j) & ";1" ) Next logFile.WriteLine ("[Report]" ) logFile.WriteLine ("CreateReport=Yes" ) logFile.WriteLine ("DefaultLocation=Yes" ) logFile.WriteLine ("ViewReport=Yes" ) logFile.WriteLine ("ReportHeader=Yes" ) logFile.WriteLine ("RunStartedHeader=Yes" ) logFile.WriteLine ("RunEndedHeader=Yes" ) logFile.WriteLine ("ReportLocation=Yes") logFile.WriteLine ("IterationsHeader=Yes" ) logFile.WriteLine ("[Mail]" ) logFile.WriteLine ("Subject=Test results from batch run." ) logFile.WriteLine ("Message=Test results will automatically be attached to this email if created." ) logFile.Close Set logFile = Nothing Set fileSystemObj = Nothing MsgBox "生成完成！"  

將生成的文件 “MultiTest20100909.mtm” 直接打開，效果如下圖：