windangle 发表于 2010-3-4 11:24:21

页面信息输出到文本文件出错导致脚本退出，求解决方法！

测试页面如下(多余的页面去掉了，只留了问题元素)：
<HTML>
<HEAD>
<TITLE>测试页面</TITLE>
</HEAD>
<BODY>
<font>2010年3月4日 欢迎 周</font>
</BODY>
</HTML>

测试脚本如下：
Set a = Browser("name:=测试页面").Page("title:=测试页面").WebElement("html tag:=FONT").Object.childNodes
str = a(0).NodeValue
Call WriteLineToFile(str,"C:\abc.txt")

Function WriteLineToFile(strText,strFile)
   Const ForReading = 1, ForWriting = 2 , ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(strFile, ForAppending, True)
   f.WriteLine strText
End Function

结果执行到   f.WriteLine strText时QTP报错
我的脚本中可以允许个别错误，所以脚本选择的是运行是出错自动执行下一步
但是碰到这个错误时没有执行后面的语句脚本就停止了。

求助：
1.有没有其它的输出到外部txt文件的方法，可以不会出错的？
2.或者可以将要输出的字符进行一下转换，使输出txt时不会报错？

有办法的说办法，有点子的给点子
欢迎发言！

zzxxbb112 发表于 2010-3-4 12:28:18

1.可以试试dotnetfactory ：http://blog.csdn.net/zzxxbb112/archive/2009/09/14/4552095.aspx
2.你打印下strText~

windangle 发表于 2010-3-4 12:43:52

哈哈，看着版主的名字熟习
你的CSDN上的博客我一直在看呢
不过内容有点少了，一下就看完了，还没过瘾
先感谢下版主的回复，我去试试版主给的办法

zhengpeipei 发表于 2010-3-4 13:14:13

路过

windangle 发表于 2010-3-4 13:56:26

问题解决了
不过对“System.IO.StreamWriter”还不熟
版主给的脚本默认是会覆盖原内容的
我需要续写，还需要继续研究一下
页: [1]
查看完整版本: 页面信息输出到文本文件出错导致脚本退出，求解决方法！