QTP中用代码实现批量删除

Option Explicit
Dim Total,CheckDelete
Function TotalNum(Total)'取记录数    
    Dim TotalLen,RightNum
    TotalLen=len(Total)
    '去掉左右括号，取总记录数
    RightNum=Right(Total,TotalLen-2)
    TotalNum=Left(RightNum,TotalLen-3)
End Function

With Browser("Poll Location Management").Page("Poll Location Management").Frame("BuildingList")
     .WebEdit("KeyWord").Set "sjtest"
     .WebButton("Search").Click
     Total=.WebElement("Total").Object.innerText
     
     While TotalNum(Total)>0
            .WebCheckBox("CheckAll").Click
            .WebButton("Delete").Click
            Browser("Poll Location Management").Dialog("来自网页的消息").WinButton("确定").Click
            Total=.WebElement("Total").Object.innerText
            TotalNum(Total) '调用函数        
            CheckDelete=.WebElement("Delete Successflly").Exist 
            If CheckDelete Then
               Reporter.ReportEvent micPass,"Step 1:Delete","Passed"
            Else
               Reporter.ReportEvent micFail,"Step 1:Delete","Failed"
            End If
     Wend
          
End With