QTP实现对文本文件（txt）的读操作

'验证导出功能和内容是否正确，通过导出数据到本地，然后再由QTP将保存的数据读取出来和界面上显示数据做比对

Browser("XXX").Page("XXX").Frame("Frame_43").WebButton("导出结果").Click

wait 1

Browser("XXX").Dialog("文件下载").WinButton("保存(S)").Click

wait 1

Dialog("已完成安装 0% - uChangMeiCaiYang_Li_2").Dialog("另存为").WinButton("保存(S)").Click

wait 1

Dialog("已完成安装 0% - uChangMeiCaiYang_Li").WinButton("关闭").Click

wait 1

'QTP读取本地txt文本内容

Const ForReading=1,ForWriting=2,ForAppending=8

Set fso = CreateObject("Scripting.FileSystemObject")

Set openfile=fso.OpenTextFile("C:/Documents and Settings/wangdechao/桌面/index.txt",ForReading,True)

Do Until openfile.AtEndOfStream

str=openfile.ReadLine

a=Split(str," ",-1,1)

For i=0 to Ubound(a)

Msgbox a(i)

Next

Loop

openfile.Close

Set fso=Nothing

wait 1

CYTM=Browser("XXX").Page("XXX").Frame("Frame_33").WebElement("WebTable").GetROProperty("innertext")

msgbox CYTM

Call WriteExcelData("E:\DataReceiveScript\业务线公共数据\自定义参数名称公共数据.xlsx","自定义参数名称",CYTM)

'Action之间变量参数值传递

Environment ("CYTM")= CYTM