51Testing软件测试论坛

标题: 一个有关调用外部文件获值的问题！ [打印本页]

作者: L.E.O 时间: 2010-8-16 15:23
标题: 一个有关调用外部文件获值的问题！
看了论坛的前辈们的一个帖子、是关于QTP调用外部文本的帖子。。突发奇想自己也想做一下。不过现在遇到问题了。。。

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

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

现在脚本写的是：

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

复制代码

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

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

作者: L.E.O 时间: 2010-8-16 15:38

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

复制代码

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

作者: L.E.O 时间: 2010-8-16 15:43
Window("记事本").WinEditor("Edit").Output CheckPoint("Edit")
这样获取的值又只能在Results中才能看。。。

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

作者: skyzhu 时间: 2010-8-16 15:46
Txt=Window("记事本").WinEditor("Edit").GetROProperty("text")

作者: xhhuang1618 时间: 2010-8-16 16:36
标题: 回复 1# 的帖子
Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile("c:\test.txt")
  Set ts = f.OpenAsTextStream(1, -2)       '以系统默认且只读的模式打开
  msgbox ts.ReadLine                               '读取c:\test.txt中一行的字符

作者: L.E.O 时间: 2010-8-16 21:13

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

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

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)