使用VBScript开发自动化测试脚本4

使用VBScript开发自动化测试脚本4

作者: aken   来源: test8848.com  

―――――――――――――――――――――――――――――――――――――――

l         读文件的方法：

 

Dim objFso,objFile Dim i,strData   '//定义输入/输出模式的读取常数 Const ForReading=1   '//创建FileSystemObject对象，并使用它的OpenTextFile打开文件并进行读取 Set objFso=CreateObject("Scripting.FileSystemObject") Set objFile=objFso.OpenTextFile("C:/data.txt",ForReading)   '//循环从文本文件中读取数据 'For i=1 To 7 While objFile.AtEndOfLine=False     strData=objFile.ReadLine     MsgBox strData Wend 'Next   '//文件读取完毕后要关闭 objFile.Close

 

l         写文件的方法：

 

Dim objFso,objFile Dim i,strData,a   '//定义输入输出模式的写方式常数 Const ForWriting=2   '//创建FileSystemObject对象，并使用它的OpenTextFile打开文件并进行写操作 Set objFso=CreateObject("Scripting.FileSystemObject") Set objFile=objFso.OpenTextFile("C:/TestReport.txt",ForWriting,True)   '//循环将测试结果写入到文本文件 For i=1 To 3     a=MsgBox("测试结果正确吗？",68,"结果判断")     If a=6 Then         objFile.WriteLine "第" & i & "组数据测试，结果：Pass"     Else         objFile.WriteLine "第" & i & "组数据测试，结果：Failed"     End If Next   '//文件写操作完毕后要关闭 objFile.Close