日記のような何か(05-14[長年日記])

 require 'rubygems'
 require 'mechanize'

 agent = WWW::Mechanize.new
 os, no = /(\w+-)(\d+)/.match(ARGV[0]).to_a.values_
at(1,2)

 list = []

 until agent.get("http://chaos-tcg.com/jsp/cardlist
?cardno=#{os}#{no}").search('table.status').empty?
   agent.page.links_with(:href=>/cardno/).map{|link|
     sleep 0.1
     card_page = link.click
     sleep 0.1

     no = /cardno=\w+-(\d+)/.match(card_page.uri.to
_s).to_a[1]

     array = []
     card = {}

     (card_page/'table.status td').map{|e| array <<
 e.inner_html}

     name, kana = /(.+)<br><span class=\"kana\">(.+
)<\/span>/.match(array[1]).to_a.values_at(1,2)
     card[:name] = name
     card[:kana] = kana
     card[:num] = array[2]
     card[:sex] = array[3]
     card[:rarity] = array[4]
     card[:type] = array[5]
     card[:attribute] = array[6]
     card[:attack] = array[7]
     card[:defense] = array[8]
     card[:attack_diff] = array[9]
     card[:defense_diff] = array[10]
     card[:text] = array[11].gsub(/<br>/, "\n")
     card[:flavor] = array[12].gsub(/<br>/, "\n")
     card[:expansion] = array[13]
     card[:entry] = array[14].gsub(/<br>/, "\n")

     puts card[:num]

     list << card
   }
   no = sprintf('%03d', no.to_i + 1)
 end

 require 'win32ole'
 require 'kconv'

 def getAbsolutePath filename
   fso = WIN32OLE.new('Scripting.FileSystemObject')
   return fso.GetAbsolutePathName(filename)
 end

 module WorkSheet
   def []=(y, x, value)
     cell = self.Cells.Item y,x
     if cell.MergeCells
       cell.MergeArea.Item(1,1).Value = value
     else
       cell.Value = value
     end
   end
 end

 xl = WIN32OLE.new('Excel.Application')
 #xl.Visible = true
 book = xl.Workbooks.Add

 sheet = book.Worksheets.Item 1
 sheet.extend WorkSheet

 head = [
 "カードNo.",
 "カード名",
 "カナ",
 "種類",
 "性別",
 "属性",
 "レアリティ",
 "攻撃力",
 "攻撃力（補正）",
 "耐久力",
 "耐久力（補正）",
 "効果テキスト",
 "フレーバー",
 "エキスパンション",
 "参加作品"
 ]

 head.each_index{|i|
   sheet[2, i + 2] = head[i].kconv(Kconv::SJIS, Kco
nv::UTF8)
 }

 y = 4

 list.each{|card|
   sheet[y, 2] = card[:num]
   sheet[y, 3] = card[:name].kconv(Kconv::SJIS, Kco
nv::UTF8)
   sheet[y, 4] = card[:kana].kconv(Kconv::SJIS, Kco
nv::UTF8)
   sheet[y, 5] = card[:type]
   sheet[y, 6] = card[:sex].kconv(Kconv::SJIS, Kcon
v::UTF8)
   sheet[y, 7] = card[:attribute].kconv(Kconv::SJIS
, Kconv::UTF8)
   sheet[y, 8] = card[:rarity]
   sheet[y, 9] = card[:attack]
   sheet[y, 10] =  "'#{card[:attack_diff]}"
   sheet[y, 11] =  card[:defense]
   sheet[y, 12] =  "'#{card[:defense_diff]}"
   sheet[y, 13] =  card[:text].kconv(Kconv::SJIS, K
conv::UTF8)
   sheet[y, 14] =  card[:flavor].kconv(Kconv::SJIS,
 Kconv::UTF8)
   sheet[y, 15] =  card[:expansion].kconv(Kconv::SJ
IS, Kconv::UTF8)
   sheet[y, 16] =  card[:entry].kconv(Kconv::SJIS,
Kconv::UTF8)
   y += 1
 }

 filename = getAbsolutePath("#{list[0][:expansion].
kconv(Kconv::SJIS, Kconv::UTF8).gsub(/[:\.]/, '_')}.
xls")
 book.SaveAs(filename)

 book.Close
 xl.Quit

横幅が収まらないので適当に改行しています。

とりあえずこれでエクセルのカードリストは生成できました。一応サンプルとして以下にファイルをアップしておきます。

chaos_excel_cardlist.zip

罫線の追加とかセルのリサイズは気になる人が各自適当にやってください。

（追記）軽く出来上がったものを見ると少しへんな所が残ってる模様。さてどうするか。

[ツッコミを入れる]

2010年 05月14日（Fri）

_ [ツッコミレス]ツッコミレス

まあ誰得と言われると俺得なんですが(^^; これで4回分の日記のネタを探さないですむ！ｗ

_ [音楽]アルバム「パンコレ」とその原曲紹介（その3）

昨日の続きです。ようやく後半戦。

http://avexnet.or.jp/punkolle/index2.html

↑の公式ページに行くと視聴なんかもできるよ。

←あと一応のAmazonにあるジャケット絵も貼ってみた。

Call Me - Blondie

ニューヨーク・パンク・バンドからはBlondieの「Call Me」。有名過ぎて聞いた事ない人はいないと思います。歌ってるのは桃井はるこ。1曲目とうってかわってまともですｗ

Blondieの有名な曲としてもう一つ「The Tide Is High」を挙げておきますね。ビールのCMで耳馴染みの曲です。ま、本当はカバー曲なんですけど。

God Save The Queen - Sex Pistols

もう一度Sex Pistols。ちなみに「God Save The Queen」といえばイギリスの国歌（の一つ）として有名な曲で、Sex Pistolsがそれを揶揄してこの（同名の）曲を作ったという背景があります。

パンコレでの担当は池澤春菜。これも1曲目に次いで破壊力があるなぁ。聞いていて思わずノーフューチャーじゃねえよってツッコんでしまいましたｗ

Blitzkrieg Bop - Ramones

お次はRamonesの1stアルバム「Ramones」から「Blitzkrieg Bop」。Ramonesと言えばワンパターン。高度な演奏技術も使わないシンプルで短くキャッチーなサウンド、リズムは8ビート中心で使っているコードも3、4種類というスタイルで20年以上もやり通したという凄いバンドです。

清水香里ver.は何かスピード感が失くなって代わりにエレクトリカル？なアレンジになっています。でもHey-ho-let's-goの掛け声は健在。

残り3曲は明日。多分。土曜日だから微妙かも？

[ツッコミを入れる]

2012年 05月14日（Mon）

_ [Chaos][VS][TCG]ブシロード戦略発表会

まさかChaosにゆるゆりが来るとは。っていうぐらい今までのChaosっぽくないタイトルなんだけど、逆に言うとそのイメージ自体がChaosの弱みだったりするので、アニメ系タイトルの比率を増やしてChaos自体のイメージを変えていくのは大事だし、その点は評価する。

個人的には全く興味ないタイトルなんだけど(^^;

VSのラグりんとニャル子は興味を惹かれるタイトル。ただしVSはChaosと同じ日に公式大会やるのであんまり買いたくないんだよなぁ。

[ツッコミを入れる]

2013年 05月14日（Tue）

_ [TCG][Chaos][ボードゲーム]ポスター貼りにイエサブ行ったら

6/16のボドゲ会の告知のためにイエサブ寄ったら、Chaosの体験会とかやってて、プロモが俺嫁ミコだったので急遽飛び入りしてみた。

終わって帰ろうとしたら常連に捕まって、そのままミーゴの脳みそハントをプレイ。初プレイだったので結構無茶引きしてみたが、細かく刻むべきだよな。このゲーム。

そしてそのままフラッシュポイントのインストをさせられたりｗ普通に英雄級とかやってみたいな。

[ツッコミを入れる]

2014年 05月14日（Wed）

_ [ボードゲーム]イエサブ名古屋にボドゲ試遊サンプル3種入荷

チーキーモンキー、大家はつらいよ、真夜中の探偵の3種。

そして何故かチーキーモンキーのシール貼りしている私。しかも内容物不備で遊べない事が判明。えー。

フリーゼの大家はつらいよは楽しそうなので、金曜の定例会で遊ぼう。

真夜中の探偵はたけさんにインストしてもらうのが早いか。

[ツッコミを入れる]

«前の日(05-13) 最新次の日(05-15)»


		2003年 5月
日	月	火	水	木	金	土
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

日記のような何か

2003年 05月14日（Wed）生麦、生米…（壊れ気味）

2004年 05月14日（Fri）バレーボール面白いよね

2005年 05月14日（Sat）