レス数が 900 を超えています。1000を超えると表示できなくなるよ。

ご意見ご質問ご要望をどうぞ

1 ：みみずん ： 02/02/26 01:42 [ Q5FljW5A ]

(･∀･)ﾉ　ご意見ご質問ご要望をどうぞ♪
＜　)
　ハ

912 ：名無しさん＠停滞中 ★ ： 11/11/24 15:00:20 ID:???

なるほど・・2chと構造が違っているのですね。
作り直している余裕はないので、次のようにやってみて下さい。

(1) スクリプト書き換え

　http://mirrorhenkan.g.ribbon.to/others/subjectget/2chsubjectget.vbs.txt
　をエディタ（メモ帳でもなんでもいい）で開いて一斉置換して下さい。
　４箇所置換されると思います。

検索ワード：「/kako」
置換ワード：空欄
（↑「/kako」を削除するという事）


(2)ブックマークレット

http://ex14.vip2ch.com/part4vip/kako/
をブラウザで開いて、URL欄に下記をコピー＆ペーストしてエンター

javascript:document.body.innerHTML=document.body.innerHTML.replace(/\/index\.html/g,"");eval();

これで、(1)のスクリプト実行して下さい。
指定URLは、(2)でブックマークレット置換したページの倉庫番号のリンク先、つまり

http://ex14.vip2ch.com/part4vip/kako/1321
から
http://ex14.vip2ch.com/part4vip/kako/114
まで。

申し訳ありませんが各々実行して下さい。
終了毎にsubject.txtをリネーム(subject1.txt・subject2.txt〜subject**.txt等）してから次のリンク先実行の繰り返しで。


(3)subject.txt結合準備

出来たsubject.txt群（160個くらいあるのかな？）を一つのフォルダにまとめておく。

下二つのスクリプトをダウンロード（右クリック→対象保存）して拡張子vbsに

http://mirrorhenkan.g.ribbon.to/2ch-i/dat_list.vbs.txt
http://mirrorhenkan.g.ribbon.to/2ch-i/dat_ketugou.vbs.txt

dat_list.vbsをエディタで開き、下記部分を変更する

If LCase(FileEx) = "dat" Then ' 拡張子を小文字化してから比較
↓
If LCase(FileEx) = "txt" Then ' 拡張子を小文字化してから比較


(4)subject.txt結合

　(3)でDLしたスクリプト二つを(3)のフォルダに入れ、dat_list.vbsを実行
　datリスト.txtが作成された事を確認してからdat_ketugou.vbsを実行



説明するとややこしい感じですが、これでいちおう出来るかもです。

913 ：名無しさん＠勉強中 ： 11/11/24 20:19:57 ID:OJSR80Td

>>912
おおお出来ましたありがとうございます

914 ：徹夜明け＠名無しさん＠停滞中 ★ ： 11/11/25 08:45:44 ID:???

うまくいったですか

まあこれでもまだ手間がかかるやり方と言われればそうなんですが
1600個くらいあるsubject.txtを一つにまとめる訳なんで
完全手動に比べたらずっと省力化なのかなと。

>>912で出したものをあれこれ組み合わせれば
完全自動でやるようなスクリプトも出来ると思うですが
誰かやっていただけたら有難いです

read.php ver2.4 2005/04/13

Gポイントポイ活　Amazon Yahoo 楽天

無料ホームページ 楽天モバイル[UNLIMITが今なら1円] 海外格安航空券 海外旅行保険が無料！