モーヲタが二次元とか

サイド自由欄

カレンダー

キーワードサーチ

▼キーワード検索

カテゴリ

遠征

(1)

プロフィール

d-sen

フォローする

バックナンバー

2026/06
2026/05
2026/04

2026/03
2026/02

フリーページ

2008年3月購入予定

楽天カード

お気に入りブログ

楽天ブックススタッ… 楽天ブックスブログ担当さん
時東ぁみOfficialBlo… 時東ぁみさん
THE　ポッシボー THEポッシボーさん
真・声優さんメモリ… 咲良かすみさん
楽天VIDEO：アニメ会… 楽天VIDEOさん
居酒屋一人旅　～美… ショテマエさん
とりあえず練習用の… バルディッシュさん
宮城県防災・危機管… 防災宮城さん
みかづき紅月の館 みかづき紅月さん
ユメのオワリ ユメのオワリさん

< 新しい記事

新着記事一覧(全2698件)

過去の記事 >

2008/09/04

require 'open-uri'
require 'hpricot'
require 'zip/zip'
def name str
arr=str.split("/")
arr[arr.length - 1]
end
savedir='D:\Downloaded Files' #保存ディレクトリ
if ARGV.length > 0

doc = Hpricot(open(ARGV[0]).read)
links=[]
(doc/:a).each do |link|
links << link[:href] if link[:href] != nil && link[:href].downcase =~ /\.(jpeg|jpg|png)$/
end
links.each do |link|
f=open(savedir + '\\' + name(link),"wb+")
begin
f.write(open(link,"rb").read)
puts name(link) + 'をダウンロードしました。'
rescue

ensure
f.close
end
end
#ディレクトリから容量0のファイルを削除

begin
File.delete( savedir + '\\' + name ) if File.file?(savedir + '\\' + name) && File.zero?(savedir + '\\' + name)
rescue
p $!
p $@
end
end
delList=[]
Zip::ZipFile.open(savedir + '\\' + name(ARGV[0]) + '.zip', Zip::ZipFile::CREATE) do |zipfile|
Dir.open(savedir).each do |name|
begin
if File.file?(savedir + '\\' + name )
puts name
zipfile.add(name ,savedir + '\\' + name )
delList << savedir + '\\' + name
end
rescue
p $!
p $@
end
end
end
delList.each do |f|
begin
File.delete(f)
rescue
p $!
p $@
end
end
else
puts '引数に画像サイトのURIを指定してください'
end

お気に入りの記事を「いいね！」で応援しよう