QTP中VBS脚本下FSO、WSH的应用――实例讲解

'*************************************************************'
'ForReading 1 以只读方式打开文件。不能写这个文件。
'ForWriting 2 以写方式打开文件
'ForAppending 8 打开文件并从文件末尾开始写。
'函数/过程名称：ReadFile()
'函数/过程的目的：写入文件
'假设：无
'影响：创建文件，写入文件（判断C盘下是否有文件，没有文件则创建，有则写入）
'      实现该目的，有两种方式。1、单独通过OpenTextFile实现
'                               2、OpenTextFile与CreateTextFile结合实现
'输入：无
'返回值：无
'创建者：lee
'创建时间：2010/12/11
'修改者：
'修改原因：
'修改时间:
'*************************************************************'

Sub ReadFile()
    Const ForReading = 1, ForWriting = 2, ForAppending = 8,File="c:\test.txt"
 Dim Fso,MyFile,OpenFile
    Set Fso = CreateObject("Scripting.FileSystemObject")
 If (Fso.FileExists(File)) Then
     MsgBox File&"存在"
  Set OpenFile = Fso.OpenTextFile(File,ForAppending,True)
  OpenFile.WriteLine("this is new test")
        OpenFile.Close
  
 Else
     MsgBox File&"不存在"
        Set MyFile = Fso.CreateTextFile(File)
  MyFile.WriteLine("this is a test")
 End If
End sub
Call ReadFile()

'*************************************************************'
'ForReading 1 以只读方式打开文件。不能写这个文件。
'ForWriting 2 以写方式打开文件
'ForAppending 8 打开文件并从文件末尾开始写。
'函数/过程名称：ReadFile()
'函数/过程的目的：写入文件
'假设：无
'影响：创建文件，写入文件（判断C盘下是否有文件，没有文件则创建，有则写入）
'      实现该目的，有两种方式。1、单独通过OpenTextFile实现
'                               2、OpenTextFile与CreateTextFile结合实现
'输入：无
'返回值：无
'创建者：lee
'创建时间：2010/12/11
'修改者：
'修改原因：
'修改时间:
'*************************************************************'
Sub ReadFile()
    Const ForReading = 1, ForWriting = 2, ForAppending = 8,File="c:\test.txt"
 Dim Fso,MyFile,OpenFile
    Set Fso = CreateObject("Scripting.FileSystemObject")

  Set OpenFile = Fso.OpenTextFile(File,ForAppending,True)
  OpenFile.WriteLine("this is new test")
        OpenFile.Close

End sub
Call ReadFile()

'*************************************************************'
'ForReading 1 以只读方式打开文件。不能写这个文件。
'ForWriting 2 以写方式打开文件
'ForAppending 8 打开文件并从文件末尾开始写。
'函数/过程名称：ReadLineTextFile()
'函数/过程的目的：读取文件
'                  ReadLine 读取一行
'                  ReadLineAll 读取全部
'假设：无
'影响：读取文件内容
'输入：无
'返回值：无
'创建者：lee
'创建时间：2010/12/11
'修改者：
'修改原因：
'修改时间:
'*************************************************************'

Function ReadLineTextFile()
   Const ForReading = 1, ForWriting = 2
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.OpenTextFile("c:\test.txt", ForWriting, True)
   MyFile.WriteLine "Hello world!"
   MyFile.WriteLine "The quick brown fox"
   MyFile.Close
   Set MyFile = fso.OpenTextFile("c:\test.txt", ForReading)
   ReadLineTextFile = MyFile.ReadLine   ' Returns "Hello world!"
   MsgBox ReadLineTextFile
End Function
Call ReadLineTextFile()

Function WriteBlankLinesToFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\test.txt", ForWriting, True)
   f.WriteBlankLines 2
   f.WriteLine "Hello World!"
   Set f = fso.OpenTextFile("c:\test.txt", ForReading)
   WriteBlankLinesToFile = f.ReadAll
   MsgBox WriteBlankLinesToFile
End Function
Call    WriteBlankLinesToFile ()