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