自动生成 MultiTestManager 的执行文件mtm

自动生成 MultiTestManager 的执行文件mtm
2010年09月09日
　　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.scrip tfullname,"\")-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" 直接打开，效果如下图：