DZone Snippets: Dmullet's Code Snippets

Creating Charts in Excel

dmullet (David Mullet) — Sun, 22 Jun 2008 19:24:45 GMT



#   creating a chart in excel

require 'win32ole'



#   set some parameter variables

xlColumns = 2

xlColumnClustered = 51

xlWhite = 2

xlRed = 3

xlBlue = 5

xlGray = 15



#   connect to a running instance of excel

xl = WIN32OLE.connect('Excel.Application')

wb = xl.Workbooks('mlb_stats.xls')



#   delete "MLB Scoring" chart if it already exists

xl.DisplayAlerts = false

    begin

        wb.Charts("MLB Scoring").Delete

    rescue

    end

xl.DisplayAlerts = true



#   create a new chart

mychart = wb.Charts.Add

mychart.Name = "MLB Scoring"

mychart.SetSourceData wb.Worksheets("Runs Scored and Allowed").Range("A1:C15"), xlColumns

mychart.ChartType = xlColumnClustered



#   set series names in the legend

mychart.SeriesCollection(1).Name = "Runs Scored"

mychart.SeriesCollection(2).Name = "Runs Allowed  "



#   set colors

mychart.SeriesCollection(1).Interior.ColorIndex = xlBlue

mychart.SeriesCollection(2).Interior.ColorIndex = xlRed

mychart.ChartArea.Interior.ColorIndex = xlWhite

mychart.ChartArea.Border.ColorIndex = xlBlue

mychart.PlotArea.Interior.ColorIndex = xlGray

mychart.PlotArea.Border.ColorIndex = xlWhite



#   set chart title properties

mychart.HasTitle = true

mychart.ChartTitle.Characters.Text = "American League - Runs Scored vs. Runs Allowed"

mychart.ChartTitle.Font.Name = 'Verdana'

mychart.ChartTitle.Font.Size = 16

mychart.ChartTitle.Font.Bold = true

Further details and discussion here.

Basic wxRuby Form Example

dmullet (David Mullet) — Wed, 14 Nov 2007 03:13:58 GMT

From the Ruby on Windows blog...





require 'wx'

include Wx



class MyFrame < Frame

    def initialize()

        super(nil, -1, 'My Frame Title')

        # First create the controls

        @my_panel = Panel.new(self)

        @my_label = StaticText.new(@my_panel, -1, 'My Label Text', 

            DEFAULT_POSITION, DEFAULT_SIZE, ALIGN_CENTER)

        @my_textbox = TextCtrl.new(@my_panel, -1, 'Default Textbox Value')

        @my_combo = ComboBox.new(@my_panel, -1, 'Default Combo Text', 

            DEFAULT_POSITION, DEFAULT_SIZE, ['Item 1', 'Item 2', 'Item 3'])

        @my_button = Button.new(@my_panel, -1, 'My Button Text')

        # Bind controls to functions

        evt_button(@my_button.get_id()) { |event| my_button_click(event)}

        # Now do the layout

        @my_panel_sizer = BoxSizer.new(VERTICAL)

        @my_panel.set_sizer(@my_panel_sizer)

        @my_panel_sizer.add(@my_label, 0, GROW|ALL, 2)

        @my_panel_sizer.add(@my_textbox, 0, GROW|ALL, 2)

        @my_panel_sizer.add(@my_combo, 0, GROW|ALL, 2)

        @my_panel_sizer.add(@my_button, 0, GROW|ALL, 2)        

        show()

    end

    

    def my_button_click(event)

        # Your code here

    end

end



class MyApp < App

    def on_init

        MyFrame.new

    end

end



MyApp.new.main_loop()

Further details and discussion here.

Automating Outlook with Ruby: Inbox & Messages

dmullet (David Mullet) — Sat, 15 Sep 2007 12:32:37 GMT

From the Ruby on Windows blog.



require 'win32ole'

outlook = WIN32OLE.new('Outlook.Application')

mapi = outlook.GetNameSpace('MAPI')



# Get a reference to the Inbox or other folder:

inbox = mapi.GetDefaultFolder(6)

personal_folders = mapi.Folders.Item('Personal Folders')

baseball_folder = personal_folders.Folders.Item('Baseball')



# Get a count of a folder's unread items:

puts "#{inbox.UnreadItemCount} unread messages"



# Iterate over messages in a folder:

inbox.Items.each do |message|

    # Your code here...

end



# Retrieve a single message:

first_message = inbox.Items(1)



# Delete a message:

message.Delete



# Move a message to another folder:

baseball_folder = personal_folders.Folders.Item('Baseball')

message.Move(baseball_folder)



inbox.Items.Count.downto(1) do |i|

    message = inbox.Items(i)

    if message.Subject =~ /cardinals/i

        message.Move(baseball_folder)

    end

end

Further details and discussion can be found here.

Automating Outlook with Ruby: Address Books

dmullet (David Mullet) — Wed, 29 Aug 2007 00:49:23 GMT

From the Ruby on Windows blog...



require 'win32ole'



outlook = WIN32OLE.new('Outlook.Application')

mapi = outlook.GetNameSpace('MAPI')



#   Get list of available Address Lists

mapi.Session.AddressLists.each do |list|

    puts list.Name

end



#   Access an Address List:

address_list = mapi.Session.AddressLists('Contacts')

address_list = mapi.Session.AddressLists('Personal Address Book')

address_list = mapi.Session.AddressLists('Global Address List')



#   Outlook security dialog will prompt to allow access to AddressEntries:

address_entries = address_list.AddressEntries



#   Iterate over the AddressEntries collection:

address_entries.each do |address_entry|

    if address_entry.Name =~ /Sinatra/

        puts address_entry.Name, address_entry.Address

    end

end



#   Search for an Address:

address_entry = address_entries.Item("sinatra, frank")

puts address_entry.Name

puts address_entry.Address