Random element in a match collection

Question

Greetings,
I need to select a random Order Number from a list in a page using VBA code. I get the list in a Match Collection successfully but I'm not sure how to specify a random element of the match collection. Any help would be appreciated.
Thx,
Mike

Answer 1

Try this:
Private Sub RSWVBAPage_afterPlay()
Dim rVal As Integer
'Following ensures values are truly random
Randomize
'Following generates a random value between 1 and 10
rVal = 1 + (Rnd * 10)
'Plug rVal into match collection
'Something like rswAPP.WriteToLog myMatch(rVal)
End Sub
I added a more advanced and full working example below. The following grabs random links from the empirix homepage and displays to the results log.
Private Sub RSWVBAPage_afterPlay()
Dim objReg As New RegExp
Dim objMatchCol As MatchCollection
Dim objMatch As Match
Dim doc As String
Dim rNumb As Integer
Randomize
rNumb = 1 + (Rnd * 10)
'Get the html
RSWApp.GetHtml doc
'set parameters for regular expression searching and matching
With objReg
  'find all occurances
  .Global = True
  .IgnoreCase = True
  'regular expression pattern specified here
  .Pattern = "a href=(.+?)asp"""
End With
Set objMatchCol = objReg.execute(doc)
Set objMatch = objMatchCol(rNumb)
RSWApp.WriteToLog objMatch.Value
Set objMatchCol = Nothing
Set objMatch = Nothing
End Sub
Hope this all helps.