function:如何编写验证网页上的filter功能

db_qtp

现有1个scenario 要编写function 来 验证网页上filter 功能是否正常. 这样的function 怎么样写比较好?
谢谢大家的指教

db_qtp

waitting for the answers

正在更新

例如要过滤回帖内容中的“你好”2个字

set objChildobjects="此处是父窗口".Childobjects()
strInputContent="你好，楼主真是好人你好,呵呵你好啊啊" '要回复的内容
filtestr = "你好"  '要过滤的内容

msgbox  checkfilter(objChildobjects,strInputContent,filtestr)  '调用测试函数

set objChildobjects=nothing

function checkfilter(objChildobjects,strInputContent,filtestr)
  dim i
  i=0
do while i<objChildobjects.count
   if  objChildobjects(i).geroproperty("micclass")="webeidt" and objChildobjects(i).geroproperty("text")="回帖编辑框"  then  '类似这样判断  因为不知道LZ的具体测试对象
   Childobjects(i).set strInputContent
          i=0
      do while i<objChildobjects.count

          if  objChildobjects(i).geroproperty("micclass")="webbutton" and objChildobjects(i).geroproperty("text")="发表回复"  then
               objChildobjects(i).click
                 exit do
               end if
            i=i+1
        loop
     exit do
  end if
    i=i+1
   loop

dim getstr

getstr=""
  i=0
do while i<objChildobjects.count
   if  objChildobjects(i).geroproperty("micclass")="webeidt" and objChildobjects(i).geroproperty("text")="显示区域"  then  
           
       getstr= objChildobjects(i).geroproperty("text")

           exit do

     end if
i=i+1
loop
'以上假设所有操作对象均存在
     if not  instr(getstr,filtestr,1) then
            checkfilter=1

    else
checkfilter=0

end if
         
end function

db_qtp

回复 3# 正在更新

非常感谢你的回答。 我现在就去qtp 中试试