未来已来

老婆测试工具培训记 - QTP 函数实现 - 1

上一篇 / 下一篇  2008-08-20 13:13:18 / 个人分类:自动化测试

Write a program to delete Line in file?

思路:封装scrīpting.filesystemobject对象,利用readline方法

Function DeleteLine(strFile, strKey, LineNumber, CheckCase)

'Use strFile = "c:\file.txt"  (Full path to text file)
'Use strKey = "John Doe"      (Lines containing this text string to be deleted)
'Use strKey = ""              (To not use keyword search)
'Use LineNumber = "1"         (Enter specific line number to delete)
'Use LineNumber = "0"         (To ignore line numbers)
'Use CheckCase = "1"          (For case sensitive search )
'Use CheckCase = "0"          (To ignore upper/lower case characters)

   Const ForReading=1:Const ForWriting=2
   Dim objFSO,objFile,Count,strLine,strLineCase,strNewFile
   Set ōbjFSO=CreateObject("scrīpting.FileSystemObject")
   Set ōbjFile=objFSO.OpenTextFile(strFile,ForReading)
   Do Until objFile.AtEndOfStream
      strLine=objFile.Readline
      If CheckCase=0 then strLineCase=ucase(strLine):strKey=ucase(strKey)
      If LineNumber=objFile.Line-1 or LineNumber=0 then
         If instr(strLine,strKey) or instr(strLineCase,strkey) or strKey="" then
            strNewFile=strNewFile
         Else
            strNewFile=strNewFile&strLine&vbcrlf
         End If
      Else
         strNewFile=strNewFile&strLine&vbcrlf
      End If
   Loop
   objFile.Close
   Set ōbjFSO=CreateObject("scrīpting.FileSystemObject")
   Set ōbjFile=objFSO.OpenTextFile(strFile,ForWriting)
   objFile.Write strNewFile
   objFile.Close

End Function

 

 


TAG: 自动化测试

shuishixingyu的个人空间 引用 删除 shuishixingyu   /   2009-11-05 10:58:22
请问下strNewFile是做什么用的?好像没看到删除操作
 

评分:0

我来说两句

Open Toolbar