在录制时，WebList如何随机得到某一项？

abe_li

WebList如何随机得到某一项？

红狐

说下思路，通过脚本实现
先取出WEBLIST的总项数，然后生成一个随机数0到总项数之间
最后用set赋值，set后可以是具体值，也可以是项数，这里就赋的值是随机生成的项数

BiSheng

严重同意！

rain_wind

下面是我写的随机选取webList中的某一项的代码，但没有通过，报以下错“无效的过程调用或参数”
groupCodeLenth= Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Object.length
Randomize
groupCodeNum=int(groupCodeLenth*Rnd)
msgBox"groupCodeNum= "&groupCodeNum
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select  groupCodeNum

若我把下面的脚本改为如下，就可以通过，请问大家，上面的脚本出错在哪里？

i=2
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select  i

[ 本帖最后由 rain_wind 于 2007-3-12 11:57 编辑 ]

walker1020

rain_wind,你说的“无效的过程调用或参数” 是在哪一行呀？ 是不是在最后一行？把最后一行改为下面的代码后再试试：
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select( groupCodeNum)
如果不行，请看QTP里的有关WebList的帮助或示例：

Browser("Mercury Tours").Page("Find Flights_2").WebList("arrive").Select "#4"
Browser("Mercury Tours").Page("Find Flights").WebList("depart").Select "London"

rain_wind

就是在最后一行报错，
我把最后一行改为下面的形式，也报“无效的过程调用或参数”的错误。
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select (groupCodeNum)

我也看了帮助，我把脚本改成下面的形式，也不正确
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select "#groupCodeNum"
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select #groupCodeNum

问题怪就怪在
groupCodeNum=1
msgBox"groupCodeNum= "&groupCodeNum
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select groupCodeNum 执行可以通过

可为什么下面的脚本执行不通过，这两个脚本的不同之处就在于给groupCodeNum赋值的形式不一样而已，真不知问题出现在哪里
Randomize
groupCodeNum=int(groupCodeLenth*Rnd)
msgBox"groupCodeNum= "&groupCodeNum
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select groupCodeNum

红狐

msgBox"groupCodeNum= "&groupCodeNum跳出的信息是否正确
ＶＢＳＣＲＩＰＴ里可以直接取随机整数
N = RANDOMNUMBER(0,NUM)
Ｎ为0到ＮＵＭ之间的整数

rain_wind

msgBox"groupCodeNum= "&groupCodeNum跳出的信息是正确的

呵呵...终于解决了,正确应该是:
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select "#" &groupCodeNum
根据帮助object.Select Item里的有关“Item”解释 。“Item”要么是下拉框中的值，如: "中国"；要么就是下拉框中的序号，用："#1"表示。我们平时写成 object.Select 1，其实系统是把1看成string型，帮我们翻译成object.Select "#1"。也就是object.Select 后面接的是string类型

下面的脚本错就错在，执行完第2句脚本后，变量"groupCodeNum"已被赋予整型。
Randomize
groupCodeNum=int(groupCodeLenth*Rnd)
msgBox"groupCodeNum= "&groupCodeNum
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select groupCodeNum

随机取webList中的任意项的正确脚本如下：
groupCodeLenth= Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Object.length
Randomize
groupCodeNum=int(groupCodeLenth*Rnd)
msgBox"groupCodeNum= "&groupCodeNum
if(groupCodeNum>=0) then
Browser("test").Page("test").Frame("mainFrame").WebList("sgrouptitlecode").Select  "#" & groupCodeNum
end if

terrylight

好脚本，顶上去