如果不去挑战，你永远不知道自己的潜能到底有多大！

VBSCRIPT通用脚本

上一篇 / 下一篇  2007-07-13 10:05:08 / 个人分类：QTP工具

查看( 661 ) / 评论( 0 ) / 评分( 0 / 0 )

1、将返回值拼接为字符串

Dim strLink,inti,straa,straa1

 
straa=null
strLink=Array("权限管理","人员组织","业务流程管理","系统配置","日志管理") 
 
For intI=0 to ubound(strLink)
 straa1=ClickLink1(strLink(intI))
 straa=straa&straa1'将所得值拼为111111
 msgbox straa
Next
 
Function  ClickLink1(strLink)
    ClickLink1=1
End Function

收藏 举报

TAG: QTP工具

 

评分：0

我来说两句

Open Toolbar