开发者社区> 青衫无名> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

QTP自动化测试-TXT文件操作

简介:
+关注继续查看
创建文本文件
  Set bjFSO = CreateObject("Scripting.FileSystemObject")
  Set bjFile = objFSO.CreateTextFile("C:\FSOScriptLog.txt")
  检察文件是否存在
Set bjFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\FSOScriptLog.txt") Then
Set bjFolder = objFSO.GetFile("C:\FSOScriptLog.txt")
Else
MsgBox "File does not exist."
End If
  删除文本文件
  Set bjFSO = CreateObject("Scripting.FileSystemObject")
  objFSO.DeleteFile("C:\FSOScriptLog.txt")
  移动文件
  Set bjFSO = CreateObject("Scripting.FileSystemObject")
  objFSO.MoveFile "C:\FSOScriptLog.txt" , "D:\"
  复制文件
  Set bjFSO = CreateObject("Scripting.FileSystemObject")
  objFSO.CopyFile "C:\FSOScriptLog.txt" , "D:\"
  重命名文件
  Set bjFSO = CreateObject("Scripting.FileSystemObject")
  objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"
  读取全部内容
Const ForReading = 1
Set bjFSO = CreateObject("Scripting.FileSystemObject")
Set bjFile = objFSO.OpenTextFile("C:ScriptsTest.txt", ForReading)
strContents = objFile.ReadAll
Wscript.Echo strContents
objFile.Close
  一行行的读取文本文件内容
Const ForReading = 1
Set bjFSO = CreateObject("Scripting.FileSystemObject")
Set bjTextFile = objFSO.OpenTextFile ("C: \ScriptsTest.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
Wscript.Echo strComputer
Loop
objTextFile.Close
 追加文本文件一行内容
Const ForAppending = 8
Set bjFSO = CreateObject("Scripting.FileSystemObject")
Set bjTextFile = objFSO.OpenTextFile ("C:\ScriptsTest.txt ", ForAppending, True)
objTextFile.WriteLine("追加的内容")
objTextFile.Close
  有用的几个函数:
  替换:将Jim替换成James。
  strNewText = Replace(strText, "Jim ", "James ")
  用逗号分隔字符串:
  arrpath=split(strDN,",")
  wscript.echo arrpath(0)
  读取文本文件指定的行内容(读第四行内容存到strLine变量中)
Const ForReading = 1
Set bjFSO = CreateObject("Scripting.FileSystemObject")
Set bjTextFile = objFSO.OpenTextFile("C:\ScriptsTest.txt ", ForReading)
For i = 1 to 3
objTextFile.ReadLine
Next
strLine = objTextFile.Readline
MsgBox strLine
objTextFile.Close
  查看文件属性
Set bjFSO = CreateObject("Scripting.FileSystemObject")
Set bjFile = objFSO.GetFile("c:\ScriptsTest.txt")
msgbox "Date created: " & objFile.DateCreated
msgbox "Date last accessed: " & objFile.DateLastAccessed
msgbox "Date last modified: " & objFile.DateLastModified
msgbox "Drive: " & objFile.Drive
msgbox "Name: " & objFile.Name
msgbox "Parent folder: " & objFile.ParentFolder
msgbox "Path: " & objFile.Path
msgbox "Short name: " & objFile.ShortName
msgbox "Short path: " & objFile.ShortPath
msgbox "Size: " & objFile.Size
msgbox "Type: " & objFile.Type
  修改文件属性
Set bjFSO = CreateObject("Scripting.FileSystemObject")
Set bjFile = objFSO.GetFile("C:\ScriptsTest.txt")
If objFile.Attributes AND 1 Then
objFile.Attributes = objFile.Attributes XOR 1
End If
  写入文本文件
Const ForWriting=2
Set bj=createobject("scripting.filesystemobject")
Set bjfile=obj.opentextfile("C:\ScriptsTest.txt", ForWriting)
objfile.write("This is line 1.")
objfile.writeline("This is line2.")
objfile.close


最新内容请见作者的GitHub页:http://qaseven.github.io/

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
Tcpdump流量自动化测试上篇
在实际的测试开发工作中,由于平时的工作机是Mac再加上自动化测试以及专项性能测试过程中经常会跟各种Linux命令打交道,所以看过好多讲Linux常用命令的书籍和资料,但里面讲到的每个命令的用法、参数都太大而全了,很容易吓退初学者,我觉得这种类型的书更适合作为工具书用来查阅。 这里我打算通过实际工作过程中具体的应用场景来讲解其中用到的一些Linux命令,本文就先以Android Tcpdump抓包分析应用启动流量来展开。
77 0
软件测试之【自动化测试】httprunner 快速制作模板的操作
软件测试之【自动化测试】httprunner 快速制作模板的操作
58 0
expect+scp传输文件发现文件丢失
背景 使用expect+scp去跨机器传输文件,(别问我为什么,因为公司的测试机器都是通过堡垒机的,无法绕开堡垒机,只能暂时使用这个方法了),结果发现从A传递到B的tar.gz文件大小不一致了的,当时心里MMP了   步骤 1.
1460 0
Auty自动化测试框架第七篇——添加动作库和常量文件库
[本文出自天外归云的博客园] 添加动作库 因为有很多调用的action类如果一直保存在utils中会让utils库不可维护,所以规定utils库中只放和框架本身有关的工具类,和脚本内容相关的工具类都放到Auty根目录下的actions文件夹中,注意添加包结构(__init__.py文件)否则脚本在被调用时将不会被找到: 添加常量文件库 由于接口测试中经常要访问url,每一个脚本文件中都会调用url。
898 0
ArcGIS Engine Style文件操作
对于一个GISer来说,地图,符号这些都应该有着比别人更深刻的理解和认识,作为平台软件都会提供一套自己的符号库,符号库里面根据类别和种类进行区分,因为点,线,面的自然存在和固有属性是不肯能让你用面状符号去渲染点和线的,学GIS的人,一般都会有分类的意识。
920 0
+关注
文章
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载