If Instr(arr(i),"ing") Then
Browser("xxxxxxxxx").Page("xxxxxxxxx").Frame("xxxxxxxxx").WebList("xxxxxxxxx").Select arr(i)
End If
Next作者: Jun_Li 时间: 2009-7-2 11:56
demo
a = Browser("xxxxxxxxx").Page("xxxxxxxxx").Frame("xxxxxxxxx").WebList("xxxxx").GetROProperty("all items")
arr = Split(a,";")
arrL= UBound(arr)
For i=0 to arrL
If Instr(arr(i),"ing") Then
Browser("xxxxxxxxx").Page("xxxxxxxxx").Frame("xxxxxxxxx").WebList("xxxxxxxxx").Select arr(i)
exit for // 添加此条选择第一条后跳出, 否则选择最后一条
End If