08/02/27 09:33:10
>>140
# 2/2 真ん中のボタンの処理 : メインループ
text.command = proc {
$text.delete('1.0',:end)
pattern = $entry.value
re = Regexp.new(pattern)
Dir.glob('*.txt') do |filename|
file = File.read(filename)
if file =~ re
meta = file.split("\r\n")[0,2]
meta << filename
$text.insert(:end,meta.join(','))
$text.insert(:end,"\n")
end
end
}
# 上下のボタンは自分で作れるだろ？
meta.command = nil
view.command = nil
#
Dir.chdir('/tmp/aozora')
Tk.mainloop
# 以上