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

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时不会报错？

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