成长是一个过程,在这里留下我走过的每一个足迹。
[qtp]获得页面中的所有链接并输出到记事本中
上一篇 /
下一篇 2007-08-03 17:38:26
/ 个人分类:qtp 学习笔记
'*****************************************************************************************************
' 脚本编写时间:2007-08-03
' 脚本描述: 搜索出页面中的所有链接存在数组中,并写入记事本中。主要是如何
'对记事本进行写入操作。
'*******************************************************************************************************
Browser("51Testing软件测试网").Page("51Testing软件测试网").Sync
Browser("51Testing软件测试网").Navigate "http://www.51testing.net/"
Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Sync
Set tags=Browser("51Testing软件测试网").Page("51Testing软件测试培训网").Object.links
Dim i , j , arr() , fso , MyFile
Set fso = CreateObject("scrīpting.FileSystemObject")
Set MyFile = fso.CreateTextFile("e:\linknr.txt")
i=0
For Each element in tags
If Ucase(element.tagname)="A" and left(element.InnerText,1) <>"" then
ReDim Preserve arr(i)
arr(i)=element.InnerText
MyFile.WriteLine(i&" "&arr(i))
'msgbox(arr(i))
i=i+1
end if
Next
MyFile.Close
收藏
举报
TAG:
qtp 学习笔记