标题: SilkTest系列---中级篇（.NET Script）之表格处理 [打印本页] 作者: 沅芷湘兰 时间: 2013-8-27 13:33 标题: SilkTest系列---中级篇（.NET Script）之表格处理 最近因为个人原因，有好几天没有发帖了，在这里深表歉意！同时有位坛友有问到过关于表格处理的问题，那我们今天就一起来探讨一下在SilkTest里是如何处理表格的，当然我在这里只是抛砖引玉，表格里面还可以有很多的操作，比如说：链接点击，单选框的点击，复选框的点击，文本框的输入等。
今天我们主要是根据表格来取出对应的文本值，并且点击链接。直接进入主题，下面附上代码：
Imports SilkTest.Ntf.XBrowser
Public Module Main
Dim _desktop As Desktop = Agent.Desktop
Public Sub Main()
With _desktop.BrowserApplication("WebBrowser3")
.SetActive()
With .BrowserWindow("BrowserWindow")
.Navigate("http://bbs.51testing.com/forum-127-1.html")
'定义一个DomTable参数
Dim testTable As DomTable
'找到"//TABLE[@class='datatable']"的表格
testTable = .DomTable("//TABLE[@class='datatable']")
Dim testTableRows As Int32
Dim testTableColumns As Int32
Dim currentRow As Int32
Dim cellText As String
'取得表格的所有行数
testTableRows = testTable.GetRowCount()
System.Console.WriteLine(testTableRows)
'取得表格的所有列数
testTableColumns = testTable.GetColumnCount()
System.Console.WriteLine(testTableColumns)
For currentRow = 0 To testTableRows-1 Step 1
'取得表格的Cell（每一行的第3列）的文本值
cellText = testTable.GetCellText(currentRow,3)
System.Console.WriteLine(cellText)
'判断值等于“***”，然后点击
If cellText Like "*关于Micro Focus系列工具软件*" Then
Dim link As DomLink
link = testTable.Find("//A[@textContents='关于Micro Focus系列工具软件下*']")
'点击链接
link.Click()
'退出for循环
Exit For
End If
Next currentRow
End With
End With
速度跟上