学步园

require 'watir'
$ie= Watir::IE.new
$ie.goto("http://members.shaw.ca/paul_rogers/watir_tests/selectboxes1.html")

#re = $ie.radio(:name,"box3").attribute_value("CHECKED")
#$ie.select_lists.each {|d| puts d.attribute_value("value");puts }

s =  $ie.select_list(:name,"sel1").options
puts $ie.select_list(:name,"sel1").attribute_value("value")
s.each do |s1|
  if $ie.select_list(:name,"sel1").option(:text, s1).value()=="o3"
    puts s1
  end
end

puts $ie.select_list(:name,"sel1").selected_options



require 'watir'
$ie= Watir::IE.new
$ie.goto("http://members.shaw.ca/paul_rogers/watir_tests/selectboxes1.html")

#re = $ie.radio(:name,"box3").attribute_value("CHECKED")
#$ie.select_lists.each {|d| puts d.attribute_value("value");puts }
s =  $ie.select_list(:name,"sel1").getAllContents
s0= $ie.select_list(:name,"sel1").attribute_value("value")
s.each do |s1|
  if $ie.select_list(:name,"sel1").option(:text, s1).value()==s0
    puts s1
  end
end

puts $ie.select_list(:name,"sel1").getSelectedItems



class SelectList
     alias getAllContents options
        alias getSelectedItems selected_options
        alias clearSelection clear
        alias includes? include?
 end