手把手教你TestComplete_文件读写示例

 

 

 

 这个纯粹就是提供给懒人的，其实随便翻翻帮助就能搜出来。当然有人会习惯性的使用FSO来进行文件操作，我这里就免了，入乡随俗，既然TestComplete已经提供了aqFile，我就不搞那么多事情了。越简单越好，够用就好。

'文件操作

Sub DoFile

  Dim sLogFile
  Dim sFileCont

  sLogFile = ProjectSuite.Path & "\log\xxx.log"
  
  '创建文件
  
  If Not aqFile.Exists(sLogFile) Then
    Call aqFile.Create(sLogFile)
  End If
  
  '写入文件
  
  Call aqFile.WriteToTextFile(sLogFile, "Hello, world1!" & vbCrlf , aqFile.ctANSI, True)
  Call aqFile.WriteToTextFile(sLogFile, "Hello, world2!" & vbCrlf , aqFile.ctANSI, False)

  '读出文件
  
  sFileCont=aqFile.ReadWholeTextFile(sLogFile,aqFile.ctANSI)
  Log.Message(sFileCont)

End Sub