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 ()




















本文转自hblxp32151CTO博客,原文链接:http://blog.51cto.com/starpoint/585054,如需转载请自行联系原作者

相关文章
|
数据安全/隐私保护
|
XML 数据安全/隐私保护 数据格式
vbs和qtp一些脚本
********************************************************************************************** 用vbs调qtp '编写自动执行指定的QTP脚本的VBS:'利用QTP本身的Quicktest.
1094 0
VBS脚本实例
一、一键升级哨位台核心板程序脚本。 ############################################################ Set ws=WScript.CreateObject("wscript.
810 0

热门文章

最新文章

相关课程

更多