成长是一个过程,在这里留下我走过的每一个足迹。

[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 学习笔记

 

评分:0

我来说两句

日历

« 2021-12-27  
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 8256
  • 日志数: 16
  • 建立时间: 2006-12-06
  • 更新时间: 2007-09-12

RSS订阅

Open Toolbar