使用VBScript开发自动化测试脚本4
作者: aken 来源: Testage测试时代
―――――――――――――――――――――――――――――――――――――――
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
|
发表于 @ 2008年07月07日 10:57:19|评论(loading...)|收藏