川崎の１時間あたり降水量データから、３０ミリ以上のデータを抜き出す

gistfile1.txt

require 'spreadsheet'

readName = '26hyo2-15.xls'
writeName = 'result.xls'

#open books
readBook = Spreadsheet.open(readName)
writeBook = Spreadsheet::Workbook.new

readSheet = readBook.worksheet('Ⅱ-15その1')
writeSheet = writeBook.create_worksheet(name: 'result')

writeSheet.row(0).push readSheet[4,0], readSheet[4,1], '年度', '雨量'

k = 0
for i in 5..44 do
    place1 = readSheet[i,0]
    place2 = readSheet[i,1]

    for j in 2..6 do
        if readSheet[i,j].is_a?(Numeric) && readSheet[i,j] >= 30
            k = k + 1
            writeSheet.row(k).push place1, place2,readSheet[4,j],readSheet[i,j]
        end
    end
end 

writeBook.write(writeName) 

昔作ったやつを移植