一个有关调用外部文件获值的问题！

L.E.O

看了论坛的前辈们的一个帖子、是关于QTP调用外部文本的帖子。。突发奇想自己也想做一下。不过现在遇到问题了。。。

就是不知怎么来获取这个文本里面的所有内容的问题：

比如我现在E盘有一个test.txt
里面内容是：test 测试

现在脚本写的是：

1. 
   
2. SystemUtil.Run "E:\test.txt"
   
3. Window("记事本").WinEditor("Edit").Output CheckPoint("Edit")
   
4. print Window("记事本").WinEditor("Edit").Output CheckPoint("Edit")
   
5. Window("记事本").Close
   

复制代码

运行不下去。麻烦高手指点一下。。。

不知用Window("记事本").GetROProperty这个怎么用呢？

L.E.O

原帖由 skyzhu 于 2010-8-16 15:46 发表
Txt=Window("记事本").WinEditor("Edit").GetROProperty("text")

GetROProperty("text")中的text是怎么取的？

看了帮助文档实在没弄明白、麻烦解释一下。谢谢！

xhhuang1618

Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile("c:\test.txt")
  Set ts = f.OpenAsTextStream(1, -2)        '以系统默认且只读的模式打开
  msgbox ts.ReadLine                                '读取c:\test.txt中一行的字符

skyzhu

Txt=Window("记事本").WinEditor("Edit").GetROProperty("text")

L.E.O

Window("记事本").WinEditor("Edit").Output CheckPoint("Edit")
这样获取的值又只能在Results中才能看。。。

我主要想除了在Results和通过Print或Msgbox都要能显示出来

L.E.O

1. SystemUtil.Run "E:\test.txt"
   
2. Dim Txt
   
3. Txt=Window("记事本").WinEditor("Edit").GetROProperty("Edit")
   
4. msgbox (Txt)
   
5. Window("记事本").Close

复制代码

这样没有获取到值、那里错了呢？