zoukankan      html  css  js  c++  java
  • QTP操作txt文档

    QTP可以在txt文件(文本文件中读取数据)

    首先创造一个文档对象 set fso = createObject("scripting.filesystemobject")

    然后用此对象打开目标文档 Set txt = fso.OpenTextFile( "C:Documents and SettingsAdministrator桌面 est.txt",8,true)

    这里说一说OpenTextFile方法,根据QTP的帮助文档中记载

    根据以上帮助文档记录,我们现在要实现的是读取一个txt文档,OpenTextFile方法里的iomode模式采用只读模式(ForReading|1)代码如下:

    Option explicit
    Dim fso 
    set fso = createObject("scripting.filesystemobject")
    Dim txt
    Set txt = fso.OpenTextFile( "C:Documents and SettingsAdministrator桌面	est.txt",1,true)
    'Skips the next line when reading a TextStream file.忽略掉文档中的第一行
    'txt.SkipLine
    Dim content
    While not txt.AtEndOfStream
    	'读取txt文档中的一行
    	content =   txt.ReadLine
    	print(content)
    	print("------------------------")
    Wend
    txt.Close
    Set txt = nothing
    Set fso = nothing
    

    好了,上述操作即实现了对txt文档的读取操作。

    接着,我们实现向txt文档写入内容的操作,iomode采用写入的模式ForWriting|2和ForAppending|8都可以。实现代码如下:

    Option explicit
    Dim fso 
    set fso = createObject("scripting.filesystemobject")
    Dim txt
    Set txt = fso.OpenTextFile( "C:Documents and SettingsAdministrator桌面	est.txt",8,true)
    txt.WriteLine("This is a new line")
    txt.Close
    Set txt = nothing
    Set fso = nothing
    
  • 相关阅读:
    第08组 Alpha冲刺(4/6)
    2019 SDN阅读作业
    第08组 Alpha冲刺(3/6)
    2019 SDN上机第3次作业
    第08组 Alpha冲刺(2/6)
    答疑
    八、对抗样本1
    九、产生和防御对抗样本的新方法 | 分享总结--廖方舟(论文11)
    02-NLP-08-条件随机场与应用
    02-NLP-07-词向量及相关应用
  • 原文地址:https://www.cnblogs.com/huang1990/p/3686153.html
Copyright © 2011-2022 走看看