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