自定义方法通过Pattern选择WebList的值

Function IsRegEqual(Text, Pattern, IgnoreCase)

 Dim oReg

 Set oReg = New RegExp

 oReg.Pattern = Pattern

 oReg.Global = True

 oReg.IgnoreCase = IgnoreCase

 IsRegEqual = oReg.Test(Text)

End Function

 

Function SelectUsingPattern(oWebList, Text)

 Dim oListDom

 'Get the DOM object of WebList

 Set oListDom = oWebList.Object

 Dim i, sOptionText

 For i = 0 to oListDom.options.length - 1

  sOptionText = oListDom.Options(i).Text

  'Check if value matches the pattern

  If IsRegEqual(sOptionText, Text, True) Then

   oListDom.Options(i).Selected = True

   Exit Function

  End If

 Next

End Function

 

RegisterUserFunc "WebList", "SelectUsingPattern", "SelectUsingPattern"