您的位置：首页 > 编程语言 > VB

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

2008-07-07 10:57 393 查看

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

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航