楽天モバイル[UNLIMITが今なら1円]
ECナビでポインと Yahoo 楽天 
LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券 解約手数料０円【あしたでんき】
海外旅行保険が無料！ 海外ホテル
■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 最新50
メモ２
- 1 ：名無しさん＠勉強中 ★：06/09/16 19:36:34 ID:???
- これまた思いついた事など
- 329 ：名無しさん＠勉強中 ★：06/12/19 20:18:10 ID:???
- 文章も変になってますね（あ、元々か）
- 330 ：名無しさん＠勉強中 ★：06/12/20 02:54:28 ID:???
- >>323-324のdatですが
何度やっても
http://user.ftth100.net/mirrorhenkan/news4vip2/
にアップロードしようとすると403forbiddenだったので他にあげたのですが
やっと理由が判ったです
使わせて頂いているサーバのサポート板にこうあったです
http://59.139.22.67/supportbbs/c-board.cgi?cmd=ntr;tree=5297;id=
−−−−−−−−−−−−−−−−−−−−−−−
第2、第3サーバーにおきまして、本日早朝にスパム対策の設定を施しました。
POST時において、
・スパム投稿と思われるもの（卑猥な英単語を含んだものや怪しいサイトへの誘導等）
・SQLインジェクションを狙ったもの
・クロスサイトスクリプティング（XSS)アタックを狙ったもの
について403 Forbiddenを返すよう設定いたしました。
Kilisameさんの投稿では恐らくXSSアタック検知で引っかかっているものと思われますので、設定を多少緩和いたしました。お手数ですが正常に投稿できるかどうかご確認ください。
−−−−−−−−−−−−−−−−−−−−−−−
そうか、ドイツ語の羅列がspam投稿と認識されたみたいです。
試しに他のものを上げてみたら難なく上がりましたし。
・・という事は
罵詈雑言が混ざっているようなdatはアップロード出来なくなった訳ですか。
それは別にいいんですけど、技術系のスレッドも引っかかるようになったのかなー。
だったら寂しいなー。
- 331 ：名無しさん＠勉強中 ★：06/12/20 03:31:14 ID:???
- 今試しにやってみたら
引っかかるようです。
困ったなー
どうしよう・・
- 332 ：名無しさん＠勉強中 ★：06/12/20 03:41:56 ID:???
- うーむ
手は無い訳ではないです
他のサーバからFTPアップロードするスクリプトを設置すれば
同等の事が出来るのですが
安定性が未知数です
fc2にアップロードするものをやってありますが
どうもうまくいってないですし
http://mirror.s151.xrea.com/up/fc2/upload.php
- 333 ：名無しさん＠勉強中 ★：06/12/20 07:57:45 ID:???
- 少しいじってみたですが
本気で忘れてしまってる・・
- 334 ：名無しさん＠勉強中 ★：06/12/20 18:30:17 ID:???
- という事で
>>326-327のものをカタチにしてみました。
http://user.ftth100.net/mirrorhenkan/magazine/
エンターキーとそれ以外で
挙動が変わります。
という事で
書いてきたです
http://book3.2ch.net/test/read.cgi/magazin/1166425337/305
まあでも
これ「パクリ乙」以外の何物でもないです
- 335 ：名無しさん＠勉強中 ★：06/12/20 18:34:15 ID:???
- なぜこのレス番を書いたのだろうか
こっちです
http://book3.2ch.net/test/read.cgi/magazin/1166425337/335n-
- 336 ：名無しさん＠勉強中 ★：06/12/20 18:48:39 ID:???
- まあ興味が無い方には全く無意味なものですし
それはそれで別にいいかなと。
というか どうでもいいやと。
明日には戻しておこう
- 337 ：名無しさん＠勉強中 ★：06/12/20 20:15:04 ID:???
- えまのんスレよし
−−−−−−−−−−−−−−−−−−−−−−
521 ：田中幹生 ◆MI0PNrlOYA ：magus@104.net ：2006/12/16(土) 19:20:54 ID:390ns4Ts0
Janeのdatをえまのんで読む方法思いついた
Janeのdatをギコナビのログフォルダにコピー
↓
ギコナビを起動させてコピーしたdatのスレを表示させる
↓
HTMLで保存する
↓
えまのん起動させてギコナビで開いたスレを表示させHTMLファイルを読み込む
問題はスレ一覧に表示されている（index2.2ciに表記されている）スレじゃないと出来ないってことと
手間隙かけてする機会がそんなに無いってことと
そもそも３つも専ブラｲﾝｽｺしてる物好きはそういないってことだ
まあ俺の場合手間隙かけてそこまでする機会が出来たんだけどな
急に鯖の電源落ちてライブスレッドが消えるなんて事態になるとは…
522 ：名無しさん＠お腹いっぱい。 ：sage ：2006/12/16(土) 20:18:52 ID:fiWqfnah0
2chと同形式のhtml/datなら「板のプロパティ」の「スレのインポート」で直に取り込める
スレ一覧に入ってると「既存スレに追加しますか？」に「はい(Y)」としても取り込めないけど
＃既存スレに追加できないって報告するのすっかり忘れてたなｗ
−−−−−−−−−−−−−−−−−−−−−−
・・・
- 338 ：名無しさん＠勉強中 ★：06/12/20 20:25:22 ID:???
- 上の方とかは独白めいていて別にどうとも思わんのですが
誰かから来た質問に対して自信満々に間違った事を書いているのを見ると
何ともげんなりとしますね。
まあ私も訂正するほどの知識もスキルも度胸もないですが。
- 339 ：名無しさん＠勉強中 ★：06/12/21 09:08:16 ID:???
- メモ
http://d.hatena.ne.jp/seiunsky/
−−−−−−−−−−−−−−−−−−−−−−−−−−−
東京と秋田では女子高生も違った。やはり寒い地域だからか、東京に比べると露出が少なめ。
例えば、スカートは膝のちょい上くらいで、東京みたいにデフォルトでパンツ見えるんじゃねーかみたいな感じではない。
そして、東京だと（紺の）ハイソックスあたりをはいてると思うんだが、秋田は一味違う。
ニーソックスを穿いているんだぜッーー！！ 穿いているんだぜッーー！！ いるんだぜッーー！！
ぶっちゃけ、肌の露出は東京より減っているわけだが。
……だがそれがイイ。
（中略）
というわけで、実に充実した帰路だった。
−−−−−−−−−−−−−−−−−−−−−−−−−−−
地域差ってあるんですねー
以前、初夏に北海道に行った時 小雨が降っていたのですが
すれ違う女子高生の皆が皆
傘とゴム長靴をはいていたのがとても印象に残ったものだったっけなー。
私の棲息地域では どんな大雨でも長靴はいて外出するような人は居ないです。
長靴で登校したらバカにされて尾を引きます（経験者）
というか、このダイアリー
「nbtstat」ってーコマンドを検索して辿りついた所なんですけど。
- 340 ：名無しさん＠勉強中 ★：06/12/21 13:37:00 ID:???
- http://com-nika.osask.jp/bbs/bbs.php?dat=test.dat&num=l100#228
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
[228] nika@管理人★◆nika/si95E 2006/12/18(月) 14:41:04 C0 ID:c0a80004
12時57分〜13時26分にかけてあるIPアドレスから
約23回/分(計およそ680回)の意味不明な連続アクセスがありました。
ある種の攻撃とみなすこともできるため、
次回から本人にのみ、警告するメッセージを表示しますが、
守れないようなら該当IPからのアクセスを禁止します。
[229] 名無しさん 2006/12/18(月) 17:03:58 C0 ID:cbaedbfb
>>228
ごめんなさい。ログ保存のためにダウンローダでログを落としていました。
どれくらいの頻度なら許容範囲でしょうか。
[230] nika@管理人★◆nika/si95E 2006/12/18(月) 19:03:18 C0 ID:c0a80004
>>229
アクセスするたびに2ちゃんねるに負荷がかかる場合があるのと
鯖の回線速度が遅いため、大きなログは転送だけで時間がかかる場合もあるので、
それを考慮してくれれば良いです。
そうですね…、5回/分くらいでしょう。
[231] 名無しさん 2006/12/18(月) 22:07:36 C0 ID:cbaedbfb
了解しました。迷惑をおかけしたことをお詫びします。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
私じゃないです＞＜
１分間に平均２３回もアクセスするというのは
どういうツールを使えばいいのでしょうか。
（そういう事に疎いのです）
- 341 ：名無しさん＠勉強中 ★：06/12/21 19:31:51 ID:???
- Jane外部コマンドスレをみて
のけぞったわいな
http://jane.s28.xrea.com/test/read.cgi/bbs/1153606495/483n-
うわー・・
完全自動という訳にはいかないですが
datの保存先を変えるのは可能ですです
板URL指定ダイアログみたいに
ダイアログ入力して保存先設定保存も出来るですです
ただごめん時間が無いのです師走なのです
ごめんなさいごめんなさい
- 342 ：名無しさん＠勉強中 ★：06/12/22 10:12:13 ID:???
- おいおいURL出てるよ有名になったもんだなおーおーおーと
更にのけぞった訳ですが。
http://qb5.2ch.net/test/read.cgi/operate/1163825500/660-669n
life7サーバではJavaScriptによるhtml化実験をしておられるので
そこのdatはUAに「MSIE6」（だっけか）が含まれていると
xml化されるみたいです。
対策として以下が考えられるかなと
(1)スクリプトを書き直す
(2)proxomitron経由にしてUAを別のものにする
(3)レジストリエディタでIEのUAを別のものにする
(4)取得先板URLをクロール専用サーバにする
(5)あきらめる
- 343 ：名無しさん＠勉強中 ★：06/12/22 10:34:09 ID:???
- 以下 頭の体操という事で。
お薦めは(5)なんですがそれはおいといて
(1)スクリプトを書き直す
取得するdatがxmlか否かを判別して、xmlだったらdat化すればいいので
三通り考えられるかな
xmlの一行目が「<?xml version="1.0" encoding="Shift_JIS"?>」なので
a.まずdatの一行目を読み込んで「<?xml」が含まれていたら
１・２行目と最終行を削除して個別に保存する方法
b.いったん全datをＤＬしてからaの処理を
フォルダ内全datに一括処理させる方法
上二つはいったんローカル保存してから行う方法ですが
xml化されたdatの場合、戻り値のヘッダ（普通どう書くのだろう）が
「Content-Type: application/xml; charset=Shift_JIS」なので
（通常は「Content-Type: text/plain; charset=Shift_JIS」）
c.datのヘッダのContent-Typeを取得し、それに「application/xml」
が含まれている場合だけaの処理をするようにする
こんなところですか。
- 344 ：名無しさん＠勉強中 ★：06/12/22 14:26:53 ID:???
- (2)proxomitron経由にしてＵＡを別のものにする
OperaやNNも標準でついてますが
Monazillaにするなら下のものとかコピーしてインポートするとか
[HTTP headers]
In = FALSE
Out = TRUE
Key = "User-Agent: Monazilla (out) "
Match = "*"
Replace = "Monazilla/1.00 2chLogSaver/1.00"
ちなみにこれ経由だとピタハハさんの所のdatも表示出来るです↓
http://pita.paffy.ac/2chlog/bubble/dat/1057645616.dat
(3)はこわいのでやんないどこ
- 345 ：名無しさん＠勉強中 ★：06/12/22 14:30:58 ID:???
- で お薦めは(4)かなと
http://liveb1.2ch.net/
生活全般板なら
http://life7.2ch.net/kankon/
↓
http://liveb1.2ch.net/kankon/
とアドレスを変えるだけでいいです。
しかし実況板以外で使えるのかなー。
使えるんだろうなあ・・。
- 346 ：名無しさん＠勉強中 ★：06/12/22 17:58:01 ID:???
- せっかくつけたものを外すのももったいないので
手直ししました
http://user.ftth100.net/mirrorhenkan/magazine/
これは何かというと
ごめん説明とか億劫なんです
許しておねがい
- 347 ：名無しさん＠勉強中：06/12/22 23:45:21 ID:si4rvgbg
- 2chdatgetで取得したdatファイルの中で、
最後の行が｛EOF}になるものと空行無しで行の最後に{EOF}が来るのがあるんだが、
これはスクリプトで何とかなるものなのかな？
- 348 ：名無しさん＠勉強中 ★：06/12/23 10:34:00 ID:???
- >>347さん
何とかなると思うです。
保存したdatの最終行を抽出して
それが空欄（または改行[\n]）ではなかったら
空欄改行を付けるという事にすればいいのかなと。
もしそれでマッチしなかったら
例えば「<>」というのが含まれているかどうかで調べればいいかも。
以下自分用メモ
最終行取得はこの辺かな
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/aug05/hey0830.mspx
http://jungfrau.skr.jp/rn/index.rb?20050126163802.txt&smode=count
空白改行追加はここ
書いてないけど「abc.WriteLine」でＯＫみたい
http://www.jfast.net/~saikawa/wsh/text.html#echo2
- 349 ：名無しさん＠勉強中：06/12/23 11:58:39 ID:fgeJ+po2
- >>348
ありがとう。
取得したファイルについて書き換える奴作ってみるわ。
- 350 ：名無しさん＠勉強中 ★：06/12/23 14:41:41 ID:???
- やってみて下さいです
当方現在
自分が引き起こしたデスマーチの真っ最中
人生は戦いです
私の場合
人生は負け戦ばかりです
- 351 ：名無しさん＠勉強中 ★：06/12/24 00:55:11 ID:???
- http://jbbs.shitaraba.com/bbs/read.cgi/computer/1929/1038588508/379-380n
上の380は自分ですが
とりあえず
正規表現
m#<dt.*?>([0-9]+) ：<span class="name"><b>(.+?)</b></span> <span class="info">(?:\[(.+?)\])?：(.*?)</span></dt><dd>(.*?)</dd>(<dt.*?>|</dl>)#mi
変換結果式：メール欄逆転
$2<>$3<>$4<>$5<>
http://toshinari.net/
のhtmlはまた独特なのだなあ
- 352 ：名無しさん＠勉強中 ★：06/12/24 19:37:42 ID:???
- さて
あちこちに貼られているウイルスコード（というかノートン誤反応トラップコード）
を少し見てみたのですが
ほとんどわかんないなりに でもやはり
wshって実にいろいろ出来るんだなーと思ったりしたです。
懐かしいところではLoveletter.vbsとか。
あちこちのレジストリを参照消去してるのかなくらいしかわかんないですけど。
「〜vbs」となっているものってやはり怖いなと。
ノートンの誤反応とかもやむを得ないかなと。
自分が書き込んだ時のdownload板での最初の反応は尤もな話です。
そのように物騒な事が出来るwshなのですが、
自分が出したもの（というかwsh一般）は
>>341のスレで書かれているように「ソース丸見えのスクリプト」なので
逆にいえば、コンパイル済みの exeファイルと違って容易に改造可能な訳です。
という訳で
自分が出したものとかに
最初に書いたような種類のコードを混ぜて再配布とか
多少スキルがある人にとってはお茶の子さいさいな事だと思うので
何というか
くれぐれも気をつけて下さいです。
- 353 ：名無しさん＠勉強中 ★：06/12/24 19:48:13 ID:???
- で、「怖い事が出来る」の裏返しとして
けっこう色々な事がwshで出来てしまうみたいなので
それで事足りているように感じてしまっている自分とかは
果たしていかがなものかと。（鈴木宗男さん風に）
exeファイルとか作ったら
もっと世界が拡がるのかなあとか思ったりして。
ただ そういうコンパイラとか入れる余裕が
自分のＰＣにはもう無さそうなんだよなあ
まあ何て事もない戯れ言です
- 354 ：名無しさん＠勉強中 ★：06/12/25 07:40:10 ID:???
- http://jane.s28.xrea.com/test/read.cgi/bbs/1153606495/502-503n
−−−−−−−−−−−−−−−−−−−−−−−−−−−
503 ：Jane使いの名無しさん：2006/12/25(月) 03:54:48 ID:7UTeecMn0
xh.Sendの前に
xh.SetRequestHeader "User-Agent", "Monazilla/1.00 (2chdatget/20061119)"
−−−−−−−−−−−−−−−−−−−−−−−−−−−
すっげー！
すっげー！
すっげー！
すっげー！
xmlhttpで指定したUA送信とか可能だったんですね！
wshヘルプ内検索とかしても全く出てこなかった項目ですが
Ajaxの分野なのかな。
http://tomizawa-web.hp.infoseek.co.jp/method/setRequestHeader.htm
で、調べたら
と〜く2ch（http://age.s22.xrea.com/talk2ch/）で書かれてるような
更新されたdatだけ取得して他はスルーするような事も出来そうです。
http://jsgt.org/mt/archives/01/000657.html
あと差分取得とかも↓
http://jsgt.org/ajax/ref/head_test/header/Range/002/sample.htm
うはー夢がひろがりんぐ（もう死語かな）
- 355 ：名無しさん＠勉強中 ★：06/12/25 09:19:11 ID:???
- メモ
更新されていないdatをスルーするには
ローカルdatのタイムスタンプをサーバのそれと比較するのが簡単ですし
と〜く２ちゃんねるやDinoswiftさんもその方法を採られているみたいです。
ローカルにサーバと同じタイムスタンプで保存する方法ですが
ModifyDateを使えばいいみたい。
wshのヘルプには載ってないみたいだけど（私の目が節穴なのでしょう）
Windows Script Wiki - テクニック
http://winscript.s41.xrea.com/wiki/index.php?%5B%5B%A5%C6%A5%AF%A5%CB%A5%C3%A5%AF%5D%5D#content_1_19
ModifyDate プロパティ
http://homepage2.nifty.com/pasocon/shell/folderitem/modifydate.html
Windows Scripting Host 25 FolderItem
http://homepage3.nifty.com/aya_js/wsh/wsh25.htm
掲示板過去の記事
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list90.shtml
さあ余裕が出来たら勉強だ
いやあ楽しいなあ
- 356 ：名無しさん＠勉強中 ★：06/12/25 14:55:24 ID:???
- メモ
keydb
http://www.keydb.info/
「download板過去ログ検索：13215スレッドから検索」
だそうです。
で、見てみたです
ミラーURL形式：
http://www.keydb.info/read.php?datNo=0000000000&serverNo=server
例
http://tmp2.2ch.net/test/read.cgi/download/1071350983/
http://www.keydb.info/read.php?datNo=1071350983&serverNo=tmp2
以上メモでした
- 357 ：名無しさん＠勉強中 ★：06/12/25 15:05:08 ID:???
- ちなみに
１板だけのスレタイ検索とかなら
すぐに出来るです。
機械的にwshで収集整形するだけなので
そんなに手間とかかかんないですし。
とはいえ
news4vip板やmorningcoffee板・実況系板とかだと
subject.txtだけ集めても１００メガ超えてしまう量なので
ちょっと難しいですけど。
makimo.toさんのように全板からのスレタイ検索とかだと
データだけで５００メガ以上あると思うんで
どうすりゃいいんでしょうか。
それこそMySQLとかみたいなデータベースを使わないと
太刀打ち出来ないかも。
という訳で
スレタイ検索を設置したほうが良い板とか
どこかありますか？
- 358 ：名無しさん＠勉強中：06/12/26 05:22:42 ID:Z0ergStX
- にくちゃんねるhtmlファイル収集過去ログ生成スクリプトについて質問がありお邪魔致しました。
他ｽﾚも拝見はしたのですが、こちらが適当かと思い書き込んではおりますが
もしｽﾚ違いでしたがすみません。その際は適切な場へご案内頂けますと幸いです。
まず、今回とても便利そうなソフトを用意下さった事をとても感謝しております。
早速使用させて頂いたのですが、どうしてもdatサイズが全て2kbにしかなりません。
試しにあちこちの板で取得をしてみたのですが、取得総数は問題なかったのですが
やはりサイズは全部datは2kbばかりでした。
また同時に作られる表紙？となるhtmlも、スレタイのリンクは全く反映されていません。
同じ様な現象になった人の書き込みや対処法があればと思いましたが見当たらず
こちらの環境的な問題が原因かとは思うのですが、原因が分からずお手上げ状態です。
そこで何か考えられる原因があれば、対処法などのアドバイスを頂きたくお願いに上がりました。
使用OSはWinXP homeでIEはﾊﾞｰｼﾞｮﾝ6xxxxxxで、IE7には上げていません。
HDDの空き容量は十分あります。ちなみに回線は光接続で、接続障害は現在ありません。
スクリプトのプログラミング等全く分からないですが、こちらで調べた範囲ではXPでIE6以上であれば
このスクリプトを使用するに必要な物はあらかじめ備わっているように解釈したものですから
マイクロソフトから別途何もインストールしていません。
漠然とした質問になっておりますが、○○が入っているか見ろ等ありましたら
ﾚｽを見つけ次第調べますので、お手数をお掛けする事になりますがどうかお助け下さい。
宜しくお願い致します。長々失礼しました。
- 359 ：名無しさん＠勉強中 ★：06/12/26 07:15:10 ID:???
- >>358さん
>>264を試してみて下さい。
その前後に色々書いたので、書いてある事を試してみて下さい。
それでわからないなら 私にはもうお手上げです。
現在>>358さんの環境ではmakimo.toさんの所がバーボン行きになっているのではないかと思いますので
試しにIE等で該当ファイルにアクセスしてみて下さい。
もしアクセス出来るようなら>>264前後の事をやってみて
それでもまだ駄目なら本当にわかんないです。
- 360 ：名無しさん＠勉強中 ★：06/12/26 20:24:55 ID:???
- http://jbbs.livedoor.jp/bbs/read.cgi/computer/21256/1164941934/90
補足すると
あちこちから流用したソースなので
わざわざ隠すほどのものでもないかなくらいの感じかなと。
かといって
万が一コンパイルするようなものを出すような事態になったとしても
わざわざソースを同梱するほど綺麗なソースでもないでしょうし
そこまで露出する自信もないなーと
そんな感じなのかな
ってまあ何て偉そうに
やめてもっと鞭でいじめて
ってどっちなんかい
年末は疲労コンパイルしますね
- 361 ：名無しさん＠勉強中 ★：06/12/26 20:38:33 ID:???
- 同様に
ソースを隠して単独で実行出来るものというと
perlをexe化する「exeperl」
http://www.st.rim.or.jp/~hyuki/simtool.htm#id3
rubyをexe化する「exerb」
http://exerb.sourceforge.jp/
とかあるみたいです。
ちなみにexerbは
winnyのリモホ晒し書き込みとかで賑わった
「山田オルタネティブ」なんてのにも使われているそうで。
http://www.itmedia.co.jp/enterprise/articles/0604/04/news003_2.html
いやー夢が拡がりますなー。いい意味で。
疲れましたなー。ここらが山田。（←って疲れてますなー）
- 362 ：名無しさん＠勉強中 ★：06/12/26 20:46:44 ID:???
- さて
不心得者の方々の行動によって
公式p2はどうなるのか不安です
フリーメール登録不可とかなったら泣きます
http://qb5.2ch.net/test/read.cgi/operate/1165768502/l50
あわてないあわてない
冬休み冬休み
- 363 ：名無しさん＠勉強中：06/12/27 05:21:15 ID:QKB4FOk2
- 2chdatsearchget使わせて貰ってます。
時々、dat落ちしたログを拾って（拾おうとして？）エラーを吐くみたいです。
拾いにいくサブルーチンはエラー無視となっているため、ファイルが取得出来てないときに、
ファイルを開きに行ってエラーを吐くようです。
エラーの内容は「ファイルが見つかりません」で行は158行目で出るようです。
で、この付近を見ると、コメントアウトしてある部分を除くと、
If retVal Then
work=GetHTMLDocument(out,tuika) ←このサブルーチンはOn Error resume nextがあるためファイル無しでもスルー
'////////
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set su = fs.OpenTextFile(tuika) ←158行目
suStr = su.ReadAll
su.Close
'/////////
End If
何故か、一回オープンして最後まで読んでクローズしているだけなので、
何もしてないようなので本来このブロックは無くても良いのでは？
- 364 ：名無しさん＠勉強中 ★：06/12/27 20:20:41 ID:???
- 心身共にグロッキー状態なのです
戦士とて休息が必要だ（by幻魔大戦）
だもんでソース見る余裕もなく
>>363さん
原因特定ありがとうございます。
とりあえず
158行目前後のルーチンをコメントアウトして実行すれば
エラーは出なくなるのでしょうか？
- 365 ：名無しさん＠勉強中：06/12/27 20:25:06 ID:QKB4FOk2
- >>364
'////////
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set su = fs.OpenTextFile(tuika) ←158行目
suStr = su.ReadAll
su.Close
'/////////
この4行をコメントアウトしたらエラーは止まるよ。
- 366 ：名無しさん＠勉強中 ★：06/12/27 20:27:02 ID:???
- とりあえずdatgetとdatsearchgetに
今の自分が追加できそうな件といえば
・UA送信によるlife7サーバのdatの挙動の沈静化(>>354)
・datの保存先フォルダを指定出来るようにする
この２点くらいかなと。
modifyDateによるdat更新可否の検知はまだよくわかんない
- 367 ：名無しさん＠勉強中 ★：06/12/27 20:32:54 ID:???
- >>365
了解です
誰がこんなのつけたんだろ
あ、私か
しかしソースを見ると何ともひどいもんですね。
全体の半分くらい使ってないかコメントアウトしてら
まあ偉い方のコードを使わせて頂いただけなので仕方ないですが。
- 368 ：名無しさん＠勉強中：06/12/27 20:36:57 ID:QKB4FOk2
- >>366
あぁ、もしできるのなら、
>>239-240あたりも実装できないかな？
今はfind.txtに板のURL、SearchWord.extに検索文字列がはいってるけど、
例えば read.txtとかのファイルに
板のアドレス 板の保存先 検索文字列
を複数書いておいて、順繰りに実行させるとか。
ちなみに950レス以上の検索文字列は
\(9[5-9][0-9]\)|\(100[01]\)
でした。
- 369 ：名無しさん＠勉強中 ★：06/12/27 20:49:37 ID:???
- >>368
はいな
余裕が出来たら見てみますわ
> 例えば read.txtとかのファイルに
> 板のアドレス 板の保存先 検索文字列
> を複数書いておいて、順繰りに実行させるとか。
こういう風にやるとすると
read.txtを作成する為のスクリプトも必要になりますね。
いやー面白いなーフフフフフハハハハハ（←壊れかけ）
- 370 ：名無しさん＠勉強中：06/12/27 20:56:31 ID:QKB4FOk2
- >>369
その read.txt のファイルについてはこんな風に作ってね。
で良いと思うよ。
ここらへんのスクリプト見て、ちょいと勉強やりかけだから、
なかなか難しいね。
- 371 ：名無しさん＠勉強中 ★：06/12/28 20:24:07 ID:???
- Jane外部コマンドスレで色々指摘されてて
勉強になりますなあ
http://jane.s28.xrea.com/test/read.cgi/bbs/1153606495/504n-
取得したdatの最終行が不安定で取りこぼしと誤認してしまう事は
ここの>>347とかでも出ている件なのですが
今の自分には正直どうしようもないです。
理由は下記
http://user.ftth100.net/mirrorhenkan/wsh/read.php/1009175619/287-288n
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
ここは一つ、IEを直接には介さずに、httpで直にGETした結果を参照
してやることにしましょう。
"microsoft.xmlhttp"を使うとそれができるんですが、この.responseBodyが
Unicodeだったりするので話はややこしい。一度Unicodeとして保存し、
次にShift-JISとして開いてやる必要がある。その状態でもまだごみが残るので、
そこを読み捨てて再度上書き保存すると完成です。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
この方のコードをそのまま使わせてもらっているのですが
「一度Unicodeとして保存し、次にShift-JISとして開いて」から
２バイトのゴミを除いてからShift-JISで保存し直しているので
その間に色々あるのだろうなと。
だから最終行あたりが少し違うかもです。
それにしても
内部的にはすんげー事やってるのだなーと感動しているですよ。
ちなみに上の書き込みをされた方
Microsoft MVP for Visual Developer - Scriptingに任命された程で
まーったくすごいお方ですよ。
なのに2ch某板の膨大なまとめサイトを作られたり
（もう消されたみたいですが）
外部某板群のRSSリーダーを出されていたり。
もうほんとにすごいなあと。
- 372 ：名無しさん＠勉強中：06/12/29 03:04:08 ID:Ssgg0ePR
- >>371
>>365みたいな行、つまり開いてはいるけど何もしてなかったところで、
'最終行まで全部読み込む
Dim arrFileLines()
i=0
Set fs=CreateObject("Scripting.FileSystemObject")
Set su = fs.OpenTextFile(tuika, ForReading)
Do Until su.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = su.ReadLine
i = i + 1
Loop
su.Close
'最終行が長さ0以上の時(EOFでないとき)空行追加
If Len(arrFileLines(Ubound(arrFileLines))) > 0 Then
Set su = fs.OpenTextFile(tuika, ForAppending)
su.WriteLine
su.Close
End If
に処理を変えればいけるんじゃないかな？
このままだと、>>363のようにファイルがないときにはエラーがでるから、
ターゲットファイルが存在してるときに限って、
この処理をすれば問題ないと思います。
- 373 ：名無しさん＠勉強中 ★：06/12/29 19:50:08 ID:???
- >>372さん
おお、凄いです。
うん、そういうのをやるつもりでつけてそれっきりだったのかなあ
記憶があやふやですが。
で、少しだけ余裕が出来たので
2chdatsearchget（長いなあ）を実行してみたら
確かに158行目でエラーが出ますね。
zipにしてアップした時は何ともなかったのになあ
不思議だなあ
という訳で
>>366の件を追加したです。
あと
>>372さんのコードをそのまま使わせてもらったです
ありがとうございますです
後でzipにして上げてみます
で、考えてみれば
検索ワードに正規表現を使える訳だから
「.*」とか入れれば全datが対象になるでしょうから
2chdatgetと統合しても無問題かもですね。
そうしようそうしよう
うんそうしよう。
- 374 ：名無しさん＠勉強中 ★：06/12/29 19:55:56 ID:???
- メモ
ImagePatrol
http://akiba.geocities.jp/ys_hobby2006/
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
ImagePatrolとは
2chのBBSPINK内スレッド特化の予定で作り始めたMac用自動画像取得＆保存ソフトです。
現在はテスト中のため、2007年1月15日までの期限付きです。
期限後は自動更新機能が動作しなくなります。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Mac限定だそうですが、こんなのもwshで出来そうですね。
ファイル存在可否の検知もステータスの戻り値（404とか200とか302とか）で
何とかなりそうですし。
- 375 ：名無しさん＠勉強中 ★：06/12/29 20:32:56 ID:???
- 何か今日ヘロヘロだもんで
>>373で「後でzipにして上げてみます」と書いたですけど
明日にするですー。
それにしても
ここ見てる人結構居るのだなあと
何とも不思議な感じですな
- 376 ：名無しさん＠勉強中：06/12/29 21:20:29 ID:Ssgg0ePR
- >>375
楽しみにしてるぜｗ
- 377 ：名無しさん＠勉強中 ★：06/12/29 22:47:54 ID:???
- という訳で
バージョンアップ（カッケー！）したです。
http://www.geocities.jp/mirrorhenkan/others/datsearchget/
まあ373で書いたような事を追加しただけで
驚くような変化とか別にないです。
図とか差し替えるのも面倒だなや
で、検索語句を記入しなかった場合
全datを順々にＤＬするので
datgetのほうもこれに統合するだなや
んだがhtmlとか差し替えるのも面倒だべさ
すまねやな 許してけろ
あとは複数板対応ですか・・
スクリプトの構成から考えないとだなこりゃ
- 378 ：名無しさん＠勉強中 ★：06/12/29 23:17:39 ID:???
- で ひょいと見てみたら
４人からブックマークされとるようで
http://b.hatena.ne.jp/entry/http://www.geocities.jp/mirrorhenkan/others/datsearchget/
ついでに調べてみたら
116人からブックマークされてるなんて
http://b.hatena.ne.jp/entry/http://www.geocities.jp/mirrorhenkan/
- 379 ：名無しさん＠勉強中：06/12/29 23:18:30 ID:Ssgg0ePR
- >>373
ちなみに158行目でエラーが出るのは、
indexにはまだ載っているけど、すでにdat落ちしていて、
ファイルが無い場合に出る。
だから、板によって出たり、出なかったりだし、時間帯によっても
変わるかも知れない。
あと、過剰アクセス対策として、start.vbsから呼び出すときに、
今は
WScript.CreateObject("WScript.Shell").Run("2chdatsearchget.vbs")
で呼び出してるけど、
intErrCode=WSHShell.Run("2chdatsearchget.vbs",1,True)
で呼び出してやって、
2chdatsearchget.vbs側の今回のファイルで217行目にある
wscript.quit
を
wscript.quit 1
にしてやれば
2chdatsearchget.vbsの処理が終わってからタイマーカウントするから、
時間稼ぎできるよ。
まぁ、なんにしてもお疲れ様です。
- 380 ：名無しさん＠勉強中：06/12/30 00:17:13 ID:8EHxWq0L
- >>377
>あとは複数板対応ですか・・
>スクリプトの構成から考えないとだなこりゃ
一応サンプル
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\servers and services.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
Wscript.Echo "Server name: " & arrServiceList(0)
For i = 1 to Ubound(arrServiceList)
Wscript.Echo "Service: " & arrServiceList(i)
Next
Loop
これで、ファイルの中に、板URL、検索ワード、保存先をCSVで書いとけば、
配列要素に組み込める。
このループの中でstrFindText、strSearchMoji、strSaveDirを定義してやって、
50行目から214行目までをくくればいけるのでは？
- 381 ：名無しさん＠勉強中：06/12/30 01:46:26 ID:8EHxWq0L
- なんか、いろいろと注文になって申し訳ないですが、
一応新しい2chdatsearchget.vbsに次の修正を加えたら巡回バージョンが出来るよ。
板用巡回リストには板URL、保存先ディレクトリ、検索文字列がCSV形式で格納
126行目のDim urlList()をコメントアウト
43行目当たりにDim urlList() を追加
51行〜65行をコメントアウト
50行目から以下の行追加
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(板用巡回リスト, ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
strFindText=arrServiceList(0)
strSearchMoji=arrServiceList(2)
strSaveDir=arrServiceList(1)
215行に以下追加
Loop
以上です。
- 382 ：名無しさん＠勉強中 ★：06/12/30 18:49:07 ID:???
- 余裕が無いので一言レス御免
>>379-381
やってみたです。
すっげー。
お主、只者ではないな！？
もしや mukiyuさん以来の大物の方ですか？
私は素人に毛が生えた程度の者ですが。。
で、381の通りにやってみたらそのまま出来たのですが
この巡回バージョンのスクリプトをアップしても良いですか？
私 何もやってないに等しいのですが。
ではおやすみなさい（あー眠いー）
- 383 ：名無しさん＠勉強中：06/12/30 19:05:32 ID:8EHxWq0L
- >>382
おｋですよ。
ちなみに俺も最近始めたばかりのド素人ｗ
- 384 ：名無しさん＠勉強中 ★：06/12/31 16:09:50 ID:???
- >>383
ありがとうございます。
という事で
複数板巡回バージョンをリリース（カッケー！）してみました。
いやー面白かったです
http://www.geocities.jp/mirrorhenkan/others/datsearchgetall/
後でトップからもリンクしますか。
makimo.toさんの件の告知も消さなければですし
- 385 ：名無しさん＠勉強中 ★：06/12/31 19:16:32 ID:???
- トップも直したです。
それにしても今年も色々あって
自分がやった事とかあれこれ思いを馳せると
何とも熟女たる思いがしますね。
（まあ私は14歳の美少女プログラマーなんですが）
- 386 ：名無しさん＠勉強中 ★：06/12/31 19:20:12 ID:???
- という訳で
今年も何かとお世話になりました
来年はもっとお世話して下さい
というか
色々教えて下さいです
さあ年賀状書くぞ（今頃かよ）
- 387 ：名無しさん＠勉強中 ★：07/01/01 00:20:29 ID:???
- おめでとうございます
メモ
http://menu.2ch.net/bbsmenu.html
からLoopList.csvに生成出力するwshとか出来そうですね。
それが出来れば全掲示板を巡回ループ取得するような事も
可能です。
現在の課題ですが
サーバ上のdatファイルのタイムスタンプを取得して
ModifyDateでローカルに保存したdatファイルのタイムスタンプを
サーバ上のdatと同期させる方法でしょうか。
それができれば、未更新のdatをスルーできるみたいですし。
リモートとローカルのサイズ比較はちょっと無理そうです。
改行や何かが不安定で、完全に同サイズのまま保存とかできないですし。
- 388 ：名無しさん＠勉強中 ★：07/01/01 00:42:45 ID:???
- お疲れ様です
公開終了されたですか
検索結果から飛ぶと下みたいになります
http://makimo.to:8000/cgi-bin/ffind/ffind2.cgi?/2ch/live14_liveplus/1166/1166518895.html
リンクを追加して欲しい所があと２点あるです
・公式p2の該当スレリンク
・googleの該当スレキー検索結果へのリンク
こんな所かな
- 389 ：名無しさん＠勉強中 ★：07/01/01 16:42:26 ID:???
- メモ
http://russiantea.dip.jp/vbswsh/
- 390 ：名無しさん＠勉強中 ★：07/01/02 11:16:34 ID:???
- これだ！
http://user.ftth100.com/mirrorhenkan/wsh/read.php/1009175619/82-86n
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
実行すると、サーバー上にあるksock32.dllの更新日時を調べ、
更新されていたらダウンロードしてインストールします。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
該当箇所はこの辺りかな
ローカルとサーバのDLLのタイムスタンプを比較しているみたい
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
HTTP.Open "HEAD", URL, False
HTTP.Send
regEx.Pattern = "\nLast-Modified\: .{3}, (\d{1,}) (.{3}) (\d{4}) (\d{1,})\:(\d{1,})\:(\d{1,}) .{3}\r\n"
Set Matches = regEx.Execute(HTTP.getAllResponseHeaders)
For Each Match in Matches
Set Subs = Match.SubMatches
dServerDateLastModified=CDate(Subs(2) & "/" & GetMonthNumber(Subs(1)) & "/" & Subs(0) & " " & Subs(3) & ":" & Subs(4) & ":" & Subs(5))
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
ってー事は
出来そうじゃないですか。
- 391 ：名無しさん＠勉強中 ★：07/01/02 11:40:58 ID:???
- 「getAllResponseHeaders」でgoogle検索したページが下記
http://www.7korobi8oki.com/mt/archives/000049.html
面白いなー。
- 392 ：名無しさん＠勉強中 ★：07/01/02 12:59:37 ID:???
- よし出来た
−−−−−−−−−−−−−−−−−−−−−−−−−−−
Dim objShell
Dim objFolder
Dim Fs
Dim statusResult
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\WINDOWS")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set xh = WScript.CreateObject("microsoft.xmlhttp")
sURL = InputBox("調査したいURLを入力して下さい。" & vbCrLf & vbCrLf & _
"(例 http://flash.2ch.net/gateway.swf)" & vbCrLf & vbCrLf & _
"入力が無い場合は検索をしないで終了します。","statusとlastmodifiedの出力テスト" ,"http://flash.2ch.net/gateway.swf")',MsgBoxTitle,strFindText)
If sURL = "" Then
WScript.Quit
End If
xh.Open "HEAD", sURL, False
xh.SetRequestHeader "User-Agent", "Monazilla/1.00 (2chdatget/20061229)"
xh.Send
statusResult = MsgBox(xh.status, vbYes, "ステータス戻り値")
statusResult = MsgBox(xh.getAllResponseHeaders(), vbYes, "レスポンスヘッダ一覧表示")
wscript.quit
−−−−−−−−−−−−−−−−−−−−−−−−−−−
- 393 ：名無しさん＠勉強中 ★：07/01/02 13:07:54 ID:???
- 元スクリプトの残りがあるけどまあいいや
これを拡張子vbsで保存して実行すると
それぞれのステータスコードとレスポンスヘッダが表示されると思うです
レスポンスヘッダのLast-modifiedというのがファイルのタイムスタンプみたい
2chトップのフラッシュだと去年の12/25が最終更新みたいですね
あと
xh.Open "HEAD", sURL, False
の箇所
xh.Open "GET", sURL, False
でもいいのですが
ファイル全体をGETしてしまうです
- 394 ：名無しさん＠勉強中 ★：07/01/02 17:36:54 ID:???
- Lastmodifiedの抽出も何とかなったです
xh.Send
の次に下記を追加
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "\nLast-Modified\: .{3}, (\d{1,}) (.{3}) (\d{4}) (\d{1,})\:(\d{1,})\:(\d{1,}) .{3}\r\n"
' lastmod = regEx.Replace(xh.getAllResponseHeaders(),"$1/$2/$3/$4/$5/$6")
Set Matches = regEx.Execute(xh.getAllResponseHeaders())
For Each Match in Matches
out = regEx.Replace(Match,"$1/$2/$3/$4/$5/$6\r\n")
If out = Match Then
Else
lastmod = Match
End If
Next
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
そして
statusResult = MsgBox(xh.getAllResponseHeaders(), vbYes, "レスポンスヘッダ一覧表示")
を
statusResult = MsgBox(lastmod, vbYes, "lastmodfy表示")
に変更
- 395 ：名無しさん＠勉強中 ★：07/01/02 17:47:39 ID:???
- という事で次は
ローカルdatのタイムスタンプを
Last-modifiedの書式に正規表現変換して
ヘッダ送信ですか。
それっぽいのをメモ
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2074556
http://soudan.bizocean.jp/jump.php3?q=2074556&t=q
http://pc8.2ch.net/test/read.cgi/tech/1055075469/562n-
- 396 ：名無しさん＠勉強中 ★：07/01/02 17:55:20 ID:???
- いや面白い面白い
http://pc8.2ch.net/test/read.cgi/tech/1055075469/605-609n
http://www.su-jine.com/sujine_seo_if-modified-since_checker.php
- 397 ：名無しさん＠勉強中 ★：07/01/02 18:56:01 ID:???
- >>394は下の１行と交換出来ますな
statusResult = MsgBox(xh.getResponseHeader("Last-Modified"), vbYes, "getResponseHeaderで取得表示")
ループで正規表現マッチさせるようにしてたのが
この１行でＯＫなのか
- 398 ：名無しさん＠勉強中 ★：07/01/02 19:06:15 ID:???
- で、試しに
xh.SetRequestHeader "User-Agent", "Monazilla/1.00 (2chdatget/20061229)"
の下に
xh.setRequestHeader "If-Modified-Since","Mon, 25 Dec 2006 19:55:10 GMT"
を入れて実行してみたです。
レスポンスコードは304が返ってきたです。
やったぜベイビー
http://age.s22.xrea.com/talk2ch/#get
http://www.su-jine.com/sujine_seo_if-modified-since_checker.php
- 399 ：名無しさん＠勉強中 ★：07/01/03 14:06:00 ID:???
- うーむ
ModifyDateによるタイムスタンプ変更がうまくいかない・・
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list90.shtml
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
管理人むたぐち さん 2003年 09月 04日 22時 32分 42秒
> 最終更新日付がひきつがれていないようです，すみませんでした。
Shell.ApplicationのFolderItemオブジェクトのModifyDateプロパティが、
読み書き両方可能であることを利用すれば、あらかじめ記録しておいた最終更新日時を、
コピー後に書き換えることも可能だと思います。
以下、参考例。D&Dしたファイルの最終更新日時を、本日の0:00にします。
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("Shell.Application")
For Each sArg In WScript.Arguments
If Fs.FileExists(sArg) Or Fs.FolderExists(sArg) Then
Call ModifyDate(sArg,Date)
End If
Next
MsgBox "終了"
Sub ModifyDate(path,dateval)
Shell.NameSpace(Fs.GetParentFolderName(path)).ParseName(Fs.GetFileName(path)).ModifyDate=dateval
End Sub
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
これを実行しても
「このオブジェクトではサポートされていない操作です」
と出るです。
エラー行は下記
Shell.NameSpace(Fs.GetParentFolderName(path)).ParseName(Fs.GetFileName(path)).ModifyDate=dateval
うーむ
皆さんはどうですか？＞見てる方々＞たぶん返事無し＞でもあったら嬉しいな（私が）
- 400 ：名無しさん＠勉強中 ★：07/01/03 14:10:25 ID:???
- 上のはタイムスタンプ書き込みによる変更でしたが
ModifyDateによるタイムスタンプ読み込みは出来たです
http://homepage2.nifty.com/pasocon/shell/folderitem/modifydate.html
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Dim objShell
Dim objFolder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\WINDOWS")
If (Not objFolder Is Nothing) Then
Dim objFolderItem
Set objFolderItem = objFolder.ParseName("Notepad.exe")
If (Not objFolderItem Is Nothing) Then
MsgBox objFolderItem.ModifyDate
End If
Set objFolderItem = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
私のＰＣだと、
読み込みはＯＫだけど
書き込み出来ないのかな？
- 401 ：名無しさん＠勉強中 ★：07/01/03 14:19:09 ID:???
- メモ
http://www.whitire.com/vbs/index.html
- 402 ：名無しさん＠勉強中 ★：07/01/03 14:47:05 ID:???
- どうもしょうがないみたいですね。
vectorで「touchme.vbs」をＤＬしてreadmeを見てみたら
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
(1) Windows "Shell.Application"
FolderItem.ModifyDateが変更できるのは、Windows 2000/XPだけのようです。
Windows 98/MEでは、変更できないようです。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
同じ方の「touch.vbs」では
excelで読み出してタイムスタンプ変更しておられるようで
それならＯＫみたい（試してないけど）
- 403 ：名無しさん＠勉強中 ★：07/01/03 20:58:50 ID:???
- 自分の環境では出来ないので
ここを見ている方に試して頂きたく。
http://www.geocities.jp/mirrorhenkan/wsh/changedate.vbs.txt
上のファイルをＤＬして拡張子vbsにして
適当なファイルをドラッグ＆ドロップしてみて下さい。
そのファイルのタイムスタンプが98/01/01 00:00:00になるでしょうか。
もしエラーが出るようなら
aDate = "98/01/01 00:00:00"
を
aDate = cDate("98/01/01 00:00:00")
に変えればいいのかもしれません。
これが出来れば
サーバと同じタイムスタンプで保存する事とか出来そうなので
未更新のファイルをスルーできるかもです
- 404 ：名無しさん＠勉強中：07/01/03 21:09:29 ID:J5qpKGX5
- >>403
うちのはなったよ。
- 405 ：名無しさん＠勉強中 ★：07/01/03 23:04:45 ID:???
- おお即レスどうもです。
もう一ついいでしょうか。
aDate = "98/01/01 00:00:00"
を
aDate = "01 Jan 1998 00:00:00"
に差し替えてやってみて頂けますでしょうか。
これでＯＫだと正規表現置換がえらく楽になるです。
ちなみにどちらの場合もisDateで確認すると
日付バリアント型と認識してくれるみたいなので。
下の日付の箇所を「98/01/01 00:00:00」でも日付認識してくれるです。
ただ例えば「Hello」とかにすると（当たり前ですが）認識しないです
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
testDate = "01 Jan 1998 00:00:00"
'testDate1 = cDate(testDate)
If isDate(testDate) Then
wscript.echo "日付認識"
Else
wscript.echo "日付ではない"
End If
wscript.quit
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
- 406 ：名無しさん＠勉強中 ★：07/01/03 23:23:25 ID:???
- メモ
proxomitronのログを見ていたんですけど
プロキシを使っている時は
−−−−−−−−−−−−−−−−−−−−
Using Proxy - xxxxxxxxxx:8080
−−−−−−−−−−−−−−−−−−−−
というのがGETの直前についてるんですね。
という事は
xh.SetRequestHeader "Using Proxy", "xxxxxxxxxx:8080"
とか付ければプロキシ経由になるのかも。
もしこれでＯＫなら
一定時間or一定回数ごとにプロキシ変換とか
ランダムプロキシ変換とか出来るかもです。
- 407 ：名無しさん＠勉強中：07/01/04 00:06:53 ID:PKHZGod1
- >>405
それに変えてもおｋだった。
ちなみにwin2k。
- 408 ：名無しさん＠勉強中：07/01/04 00:19:42 ID:M5Lrs8Hr
- >403
Win XP Pro SP2
aDate = "98/01/01 00:00:00"
桶
ｴﾗｰ出ないのに書き換え
aDate = cDate("98/01/01 00:00:00")
桶
aDate = "01 Jan 1998 00:00:00"
桶
- 409 ：名無しさん＠勉強中 ★：07/01/04 18:38:31 ID:???
- >>407-408
レスどもです
私はwin9x機
ぐあああああ
何とかなりそうです
余裕ないので明日
ではでは
- 410 ：名無しさん＠勉強中 ★：07/01/05 19:05:54 ID:???
- という事で
見ている方 試して頂きたく。
http://www.geocities.jp/mirrorhenkan/wsh/2chdatsearchget20070105.vbs.txt
http://www.geocities.jp/mirrorhenkan/wsh/LoopList20070105.csv.txt
上二つをＤＬして
それぞれ拡張子をvbs/csvにして下さい。
csvのほうはLoopList.csvにリネームし（vbsのほうは適当で可）
で、vbsファイルを実行してみて下さい。
ダイアログが出ると思うので適当にやると
同じフォルダにsubject.txtが出来ると思います。
subject.txtのタイムスタンプが
「21 May 2006 09:28:31」つまり
「2006.5/21 09:28:31」になっていればＯＫです。
ちなみに自分のマシンだと
509行目でエラーになり
「このオブジェクトではサポートされていない操作です」
と出るです。
ＯＳのせいなのでしょうがないです
- 411 ：名無しさん＠勉強中 ★：07/01/05 19:16:52 ID:???
- 上げ忘れたです
ふと思ったんですが
SSL（https://〜みたいな奴）へのアクセスもwshで可能だったら
dat落ちしたログを取得するwshもできそうですね（勿論●を使って）。
まあ作ったところで●を持ってないので試せませんが。
- 412 ：名無しさん＠勉強中：07/01/05 20:27:56 ID:mR0La6ZB
- タイムスタンプなりましたよ xp
93行でエラーでてたけど消したら動いた
僕にはよくわかりませんです
- 413 ：名無しさん＠勉強中：07/01/05 21:18:12 ID:7kFCFAJs
- こちらも出来た。
93行目でエラーになるのはディレクトリ指定が
if Fs.FolderExists(strSaveDir) Then
'msg = sRoot & "/dat は、存在します。"
Else
Fs.CreateFolder(strSaveDir) ・・・93行目
End If
SaveDirの指定がまずいんだろうと思う。
c:\aaa\bbb とかの指定の時は C:\aaaは存在してないといけないんだろうね。
- 414 ：名無しさん＠勉強中 ★：07/01/05 22:53:37 ID:???
- ありがとうです
93行目の件ですが
LoopList.csvの１行目
http://www.geocities.jp/mirrorhenkan/dat2html-3/,C:\My Documents\entrance2,.
を
http://www.geocities.jp/mirrorhenkan/dat2html-3/,テスト用です後で消してね,.
とでもやれば、実行ファイルと同じ場所に
「テスト用です後で消してね」という名前のフォルダが出来ますが
あんまり根本的な解決方法でもないですな。。
まあ、ここはdatを格納したいフォルダを各自指定する所だからいいや
それはそれとして
もし「c:\aaa\bbb\ccc\ddd」というディレクトリ指定があって
そこを保存先に指定していて
dddの親ディレクトリのどれかが存在していないかもしれなくて
でもエラーを出したくなかったら
・文字列「c:\aaa\bbb\ccc\ddd」を「\」を目印に分割して配列格納
↓
・１番目と２番目を「\」を挟んで連結して
そのディレクトリがなかったら作成
↓
・上のと３番目を「\」で挟んで連結して
そのディレクトリがなかったら作成
↓
・以下なくなるまでループ
とかすればいいのかな
こういう作業って誰かが作ってくれてそうな。
- 415 ：名無しさん＠勉強中 ★：07/01/05 23:12:51 ID:???
- さて
サーバ上のファイルとタイムスタンプ同期は可能みたいなので
（98/Me以外ですが）
次に
未更新ファイルをスルーする方法ですか。
疲れたので後日という事で
- 416 ：名無しさん＠勉強中 ★：07/01/06 17:56:00 ID:???
- やりかけですが、気が抜けちゃいました。
全datのタイムスタンプをサーバと同期させるのは出来たんですが
（って自分では試せないんですが）
それをローカルと比較するのがちょいと億劫
やりかけですがメモ
サーバ上のタイムスタンプ取得はＯＫですが
ローカルファイルのタイムスタンプがまだ駄目です
'//サーバ上のファイル日時取得20070106//
xh.Open "HEAD", out, False
xh.SetRequestHeader "User-Agent", "Monazilla/1.00 (2chdatget/20061229)"
xh.Send
testDate = xh.getResponseHeader("Last-Modified")
Set regDate1 = New RegExp
regDate1.IgnoreCase = True
regDate1.Global = True
regDate1.Pattern = ".{3}, (.+?) GMT"
outDate = regDate1.Replace(testDate,"$1")
'// //
'//ローカルファイル日時取得20070106//
If Fs.FileExists(tuika) Then
tuikaDate = tuika.ModifyDate
Else
tuikaDate = "90/01/01 00:00:00"
End If
'// //
- 417 ：名無しさん＠勉強中 ★：07/01/06 18:38:49 ID:???
- で、ファイル更新可否をみる方法は
二つあると思うです
(1) サーバにヘッダリクエストして取得したタイムスタンプを
ローカルと比較して変更ある場合ＤＬする
(2) ローカルファイルのタイムスタンプを正規表現加工変換して
if-modified-sinceヘッダをつけてサーバ送信する方法
どちらも一長一短あるです
(2)のほうが一般的だと思いますが、ローカル存在可否や
タイムスタンプ取得や正規表現置換やGET送信戻り値のステータスコードや
そういうのが何だかよくわかんない。
(1)だと正規表現も単純なもので可なので
上はそれやろうとしていたです。
- 418 ：名無しさん＠勉強中 ★：07/01/06 19:10:44 ID:???
- メモ
hisa-net
http://hisa-net.ddo.jp/php/sql/etc.php
- 419 ：名無しさん＠勉強中 ★：07/01/06 22:13:42 ID:???
- それにしても
jane外部コマンドスレは勉強になりますです
http://jane.s28.xrea.com/test/read.cgi/bbs/1153606495/571
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
そもそも>>559って自分で書いたんじゃなくて､
http://jane.s89.xrea.com/test/read.cgi/kakolog/1076248429/81
のコピペでしょ。メッセージが違うだけであとは大文字小文字まで一致してる。
メッセージ変えただけで｢ここまで進めました｣とか｢>>559くらいしか作れないんです…｣とか
まるで自分で書き上げたように言うのは､かなり恥ずかしくないか？
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
559さんではありませんが 自分に言われてるみたいに思ったですよ。
さあどのあたりまでコピペなんかなと。
- 420 ：名無しさん＠勉強中：07/01/07 03:35:12 ID:MgVPKa7e
- >>372のコード、あんまりよろしくないみたい。
ファイルの終端
パターンA
aaaaaaa{EOF}
のときと、
パターンB
aaaaaaa{LF}
{EOF}
のときがあって、パターンAでもBでもLENの中身は>0になる。
だからいずれの場合も改行コードが入ってしまう。
結果としては
パターンA+
aaaaaaa{CR+LF}
{EOF}
と
パターンB+
aaaaaaa{LF}
{CR+LF}
{EOF}
で、パターンBのときは空行が1個追加される。
まぁ、パターンAをjaneなんかで読むと、ファイルが終わってないような処理のループになるから、
ましといえばましなんだけど。
これを回避しようとすると、textファイルを作ることになるが、普通に書き込むと改行は{CR+LF}になる。
datファイルでは改行は{LF}しか入ってないから、ファイルのサイズが大きくなるんだよね。
一回janeで読むと変換されるみたいだけど。
バイナリイレベルで扱えるなら、[EOF]の前の{LF}を判断して追加すれば良いんだけれど。
- 421 ：名無しさん＠勉強中 ★：07/01/07 13:37:50 ID:???
- >>420さん
いやー難しいですねー。
とりあえず>>372の
'最終行が長さ0以上の時(EOFでないとき)空行追加
の直前行あたりに
wscript.echo arrFileLines(Ubound(arrFileLines))
を入れて最終行を実体表示するようにして実行してみても
空行は出てこないです。
でもファイルを見てみると、最終行で２回改行しているdatがあるので
もしかしたらUbound(arrFileLines)だと
空行を認識していないのかも（間違ってるかもですが）。
メモリ消費がたぶんすごいので単なる実験ですが
ReadAllでデータ丸ごと読み込んで改行で分けた最終行だとどうだろうと
Set su = fs.OpenTextFile(tuika, ForReading)
の直後あたりに
su_all = su.ReadAll()
wscript.echo su_all
wscript.echo arrFileLines(Ubound(Split(su,vbCr)))
とやってみたらwshが強制終了してしまうようになったのは
さてメモリ不足なのかスクリプトエラーなのか。
あとは[EOF]直前のLFの文字コードを見てみるくらいなのかな。
ここらで私の頭がオーバーフロー
自分用メモ
掲示板過去の記事154
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list154.shtml
DeNUL.VBS(Windows95/98/Me / ユーティリティ)
http://www.vector.co.jp/soft/win95/util/se355946.html
Windows Script ノスゝメ
http://russiantea.dip.jp/vbswsh/19
ASP/VBS サンプル関数：『画面出力関数』
http://www.b-s-c.co.jp/~moritake/oboegaki/h_vbs_fnc02.html
Ｗｉｎｄｏｗｓ
http://www.h2.dion.ne.jp/~junsei/Windows.htm
- 422 ：名無しさん＠勉強中 ★：07/01/07 13:42:26 ID:???
- 上のスクリプト間違ってる予感。
wscript.echo arrFileLines(Ubound(Split(su,vbCr)))
↓
wscript.echo su_all(Ubound(Split(su_all,vbCr)))
でもエラーメッセージも出ずに強制終了するなー。
- 423 ：名無しさん＠勉強中 ★：07/01/07 14:03:26 ID:???
- とかいたけど
もしかしたらまるまるまちごうておるのかも
アハハハーおはなばたけがみえるよーハハハハー
- 424 ：名無しさん＠勉強中：07/01/08 02:39:12 ID:cL/xX2GZ
- >>372 の部分の処理 改訂版
datの最後をバイナリでLF、もしくはCRでないときに空行追加。
dim sOut
dim sIn
set sOut = CreateObject("ADODB.Stream")
set sIn = CreateObject("ADODB.Stream")
With sOut
.type = 2
.charset = "iso-8859-1"
.open
End With
With sIn
.type = 1
.open
End With
sIn.LoadFromFile(tuika)
line = sIn.Read
sIn.Close
ch = AscB(MidB(line, LenB(line) ,1))
if (ch <> 10 and ch <> 13) then
Set su = fs.OpenTextFile(tuika, ForAppending)
su.WriteLine
su.Close
End If
- 425 ：424：07/01/08 02:43:03 ID:cL/xX2GZ
- datの最後をバイナリでLF、もしくはCRでないときに空行追加。
ｓOutのブロックはいらなかった。
dim sIn
set sIn = CreateObject("ADODB.Stream")
With sIn
.type = 1
.open
End With
sIn.LoadFromFile(tuika)
line = sIn.Read
sIn.Close
ch = AscB(MidB(line, LenB(line) ,1))
if (ch <> 10 and ch <> 13) then
Set su = fs.OpenTextFile(tuika, ForAppending)
su.WriteLine
su.Close
End If
- 426 ：名無しさん＠勉強中 ★：07/01/08 19:50:46 ID:???
- >>424-425
うーむ
ADODB.streamを使うしかないのかな・・
win98/Meではデフォルトで使えない機能だもので
躊躇しておったです。
だもんで検証も出来ない・・。
文字コード変換とかで以前やったものがあったので見てみると
http://www.geocities.jp/mirrorhenkan/others/allescape16change.html
JavaScriptでの16進数変換だと改行は「%0A」になるですけど
VBScriptだとそういう訳にはいかないのだろうか。
- 427 ：名無しさん＠勉強中 ★：07/01/08 20:00:29 ID:???
- 何はともあれ
ありがとうございます。
という訳でバージョンアップ（カッケー！）
http://www.geocities.jp/mirrorhenkan/others/datsearchget/
http://www.geocities.jp/mirrorhenkan/others/datsearchgetall/
98/Meでもエラーが出ないようにOnError resume Nextを使ったですが
さてどんなものか。
自分の環境では何とかなってる感じですが。
で、98/Me以外の環境だと
datのタイムスタンプがサーバと同期出来ていたら成功です。
過疎板等で試してみて下さい。
あとはローカルdatとサーバdatのタイムスタンプ比較かなと。
>>416-417を考え直せば何とかなるかもですが
何だか疲れちゃった。
- 428 ：名無しさん＠勉強中 ★：07/01/08 22:10:56 ID:???
- ちょっと遊んでみたりして
http://qb5.2ch.net/test/read.cgi/operate/1167627688/757
ところで、専用ブラウザを作った場合
今でも●ログイン試験用のアカウントって付与されてるんでしょうか。
別にそれ目当てという訳でもないですけど。
>>411とか 何だか出来そうな感じがするです
- 429 ：名無しさん＠勉強中 ★：07/01/10 22:40:42 ID:???
- とりあえずhttps://〜のURLにwshでやりとり出来るのかと
適当に試してみました。
Set xh = WScript.CreateObject("microsoft.xmlhttp")
xh.Open "HEAD", "https://2chv.tora3.net/futen.cgi", False
xh.Send
Msgbox xh.Status
ステータスコードは200が戻ってきたので
ファイルのやりとりは出来るみたい。
UAもSetRequestHeaderで送信可能です。
ただ、セッションＩＤというのが何だかわからない・・。
ちなみにここ↓見てやってるです
Authentication System DOLIB 1.00 (2002/02/26) - Online Access Control TORA3
http://kage.monazilla.org/system_DOLIB100.html
この中の６に書いてあるセッションＩＤってーのがわからない。
検索してみたけど↓もう疲れちゃった。
http://www.komonet.ne.jp/~php/chap18.htm
501KB
続きを読む
掲示板に戻る 全部 前100 次100 最新50