使用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