QTP读写记事本的脚本
上一篇 /
下一篇 2011-09-29 14:41:11
/ 个人分类:QTP
最近
学习了一些
QTP脚本编写,觉得QTP 的VBscript还是蛮有意思的。
1。新建TEXT文件并在其中写log,代码如下
'Write or appending the string to log file
'传递Str这个参数给function,然后写入QtpLog.txt文件
Function WriteLogFile( Str)
'Create log file as text
Dim LogfilePath , fso, Logfile
'定义文件路径
LogfilePath = "c:\QtpLog.txt"
'创建FSO这个文件对像,此对像可以用来生成文件
Set fso= CreateObject("Scripting.FileSystemObject")
'如果没有读到这个文件,那么就要通过FSO这个对像来生成文件
If fso.FileExists(LogfilePath) = false Then
Set Logfile = fso.CreatetextFile(LogfilePath,True)
Logfile.Close
End If
'Append string to log file Str写入QtpLog.txt
'通过FSO对像来增添字符串在文件中ForAppending这个参数表示增加,ForReading表示读,ForWriting表示写入并将overwrite之前的内容
Set logfile= fso.Opentextfile(LogfilePath,ForAppending,True)
logfile.Writeline(Str)
logfile.close
End Function
2。读文件,我的做法是一条条的来读,当然也可以用ReadALL一次性读取所有内容
'Read text file
Function ReadConfigFile(ConfigfilePath)
Dim fso, configFile , configText
Set fso= CreateObject("Scripting.FileSystemObject")
Set configFile = fso.OpenTextfile(ConfigfilePath,ForReading,True)
'也可以用ReadALL一次性读取所有内容,也可以用Readline一条条来读并用“,”连接起来
Do while configFile.AtEndOfLine <> True
configText =configText +","+ configFile.ReadLine
Loop
configFile.close
'返回读取的结果,关QTP脚本中的Sub与Function的区别也说一下吧,Sub一般无返回值,Function是有返回值的
,他们可以有参数,也可无参数,若无参数也需要括号在函数名后。
Return configText
End Function
收藏
举报
TAG: