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