不定期日記

_ [Computer][ruby][windows] COMコンポーネント利用の例

WindowsのCOMコンポーネントを利用するためのサンプルプログラムを作りました。どれも動作は同じです。

_ VisualWorks 5i.2

$(VISUALWORKS)\com\COM-ALL.pcl を Parcel in する必要があります。

VBScript と全く同じ流れです。

example1
	"Open Excel Window"

	| controller workbook worksheet |
	controller := COMAutomationApplicationController on: (COMAutomationApplicationController dispatchDriverClass createObject: (GUID clsidFromProgID: 'Excel.Application')).
	controller isVisible: true.
	workbook := (controller getProperty: 'Workbooks')
				getProperty: 'Add'.
	worksheet := workbook getProperty: 'Worksheets' with: 1.
	worksheet setProperty: 'Range' withArguments: (Array with: 'A1:D1' with: (Array
				with: 'North'
				with: 'South'
				with: 'East'
				with: 'West')).
	^controller

Excel用のクラスが用意されていたのでそれを利用しました。

example2
	"Open Excel Window"

	| controller worksheet |
	controller := Examples.Excel97ApplicationController new.
	controller isVisible: true.
	controller addWorkbook.
	worksheet := controller worksheets at: 1.
	worksheet setRange: 'A1:D1' to: (Array
			with: 'North'
			with: 'South'
			with: 'East'
			with: 'West').
	^controller

_ VBScript

拡張子を .vbs にして保存し、ダブルクリックすると実行できます。

Option Explicit
Dim excel, workbook, worksheet
Set excel = WScript.CreateObject("Excel.Application")
excel.Visible = True
Set workbook = excel.Workbooks.Add()
Set worksheet = workbook.Worksheets(1)
worksheet.Range("A1:D1").value = Array("North", "South", "East", "West")

_ ActiveScriptRuby

参考: COM Meets Ruby, Win32OLE製作過程の雑記

require 'win32ole'

excel = WIN32OLE.new('Excel.Application')
excel.visible = TRUE
workbook = excel.Workbooks.Add();
worksheet = workbook.Worksheets(1);
worksheet.Range('A1:D1').value = ['North', 'South', 'East', 'West'];

_ [JEF] 浦和レッズ vs JEF千葉

初埼玉スタジアム。東川口に降りた時点で回りが赤い人ばかりでちょっといやな感じ。席はメインのアッパーということで、遠くて見えないかと思ったけど、サッカー専用なだけあって非常に見やすかったです。あんなセンターライン近くで試合を見たのはいつかの天皇杯以来かも。いいスタジアムです。

試合は、完全に押し込んだというわけではないけど、終始JEFペース。いい試合でした。勝てなかったけど、とにかく今期初の無失点試合です。

永井、田中達也、エメルソンには仕事をさせなかったけど、レッズはディフェンスがいいです。そんな中、決定的な場面を少なくとも5回は作ったのだから、せめて1点ぐらいは決めないと勝てないです。

個人で言うと、今日は羽生が良かった。攻撃でも守備でも常に仕事をし続けていました。チーム全体の気になることとしては、攻撃していて相手ゴール近くでキーパーに取られた瞬間、あるいはクリアされた瞬間に完全に動きが止まること。フロンターレにそこからやられたのに、同じことをやってしまっています。

なんだかんだ言って、今年観戦した試合でいまだ勝ちは無し。早く勝ち試合をみたいけど、勝てなくても最低限今日のようなおもしろい試合にしてもらいたいです。

_ [音楽] ジェリービーンズライブ＠志津SOUND STREAM

やっぱりいい。はるえさんは風邪を引いてしまったそうですが、そんなことは（咳をしている以外は）まったく感じさせないライブでした。Time after timeを聴いた時なんかは、ごめんなさいと謝りたくなりました。

_ [音楽] ヨコノメグミ (from Mg Lights)＠恵比寿 club aim