Getting dynamic number based on databank variable.

Question

I have run into an interesting issue, and I was wondering if anyone has any ideas.
Here is a run down of the setup.
I have 3 drop downs Category, Sub-Category, and Sub-Sub-Category (nice huh).
The values of the drop down as stored by E-Tester are numeric, so I am running into a bit of a problem trying to databank this test. It is stored as <option value=18>MyCategory</option>
I need to be able to choose the drop-down based on my databanked variable of "categoryName", but I couldn't figure out a way to set that on the form.
The other option, which I was diving into was parsing out the number from the html but again I am running into a problem since this is running off a databank.
I tried to run it through either the custom variable option or custom VBA and am running into the same problem. I can't tell it that the ending part of the string is a variable.
Here is my DOM Property Expression working on the inner html
<OPTION value=(\d+)>MyCategory</OPTION>
It works great as long the category is MyCategory, but I can't figure out a way to set the last portion to use a variable. If I try anything less than <OPTION value=(\d+)>MyCategory it matches all of the options in the drop down including -1 which is to add a new one.
Does anyone have any ideas or am I attempting something beyond the limitations of VBA?

Answer 1

I think I may have a solution for you. Put this code on the page that you are trying to set the option of. Of course, the path to the select element will have to be replaced with the correct path.
Private Sub RSWVBAPage_afterPlay()
On Error GoTo ERRLBL
Dim element As HTMLSelectElement
Dim optionEl As HTMLOptionElement
Dim itemText As String
'Get the Path to the SELECT list
RSWApp.om.GetElementByPath "window(index=0).form(name=""myform"" | id=""myID"" | action=""submit.asp"" | index=0).formelement[SELECT](name=""Sub-Sub-Category"" | index=6)", element
If element Is Nothing Then
errDescription = "html object not found!"
errNumber = -1
Exit Sub
End If
'Get the Data bank value associated with the data bank value named "var_ItemText"
Call RSWApp.GetDataBankValue("var_ItemText", itemText)
'Go through each option element and match the text attribute with the data bank value. If we match, set the selected property to true
For Each optionEl In element
If StrComp(itemText, optionEl.text) = 0 Then
optionEl.selected = True
Exit For
End If
Next optionEl
Exit Sub
ERRLBL:
errDescription = Err.Description
errNumber = Err.Number
Let me know if this works for you.
- GateCity_QA