テレワークならECナビ Yahoo 楽天 
LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券 海外旅行保険が無料！ 海外ホテル
■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 最新50
メモ２
- 1 ：名無しさん＠勉強中 ★：06/09/16 19:36:34 ID:???
- これまた思いついた事など
- 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
- 430 ：名無しさん＠勉強中 ★：07/01/10 22:54:17 ID:???
- あ、何となくわかったような気もしないでもなくもないかも
ただ
ここから先は●が無いと手も足も出ないなー。
ログイン成功してるかどうかとかわかんないですし。
まあ
かちゅ〜しゃを入れずにかちゅdatのコンバータをやろうとしてみたり
携帯でネットした事ないのに携帯用の変換機をやろうとしてみたり
とかいうような事をやってたんで
本質的にはそういうのとあんまり変わんないかも。
- 431 ：名無しさん＠勉強中 ★：07/01/11 22:37:05 ID:???
- 検索してこの件に関連するものとしては
このあたりでしょうか
Ichinose Memo(2005-03-10)
http://www.genome.ist.i.kyoto-u.ac.jp/~ichinose/memo/?date=20050310
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
CGIでセッション管理してる時などに、session idをxmlhttpで
送ろうとかするとPOSTでopenしておいて、
xmlhttp.send("_session_id="+sessionId);
みたいな感じになると思うのだけど、Safariで送ろうとすると
何故かsessionIdの文字の最後に"\x00"（ヌル文字？)を付けて
送ってしまう。
こうなるとCGI側で存在しないsession idとして認識されてしまって、
新しいセッションを発行してしまうなどイヤなことになる。
とりあえず回避策として、セパレータ文字"&"を使って
xmlhttp.send("_session_id="+sessionId+"&");
などどするといいようだ。なんか微妙な感じだけど。。id管理に
クッキー使えばもちろん問題ないのだけど、事情があって
パラメータ送りにしたかったので。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
セッションＩＤを送る形式は
xmlhttp.send("_session_id="+sessionId)
なのかなと。
自分で思っていたのは
xh.SetRequestHeader("session_id",sessionId)
でしたが。
- 432 ：名無しさん＠勉強中 ★：07/01/12 20:27:27 ID:???
- 自分では試す事が出来ないので
●持ちの方に試して頂きたく。
http://www.geocities.jp/mirrorhenkan/others/maru/maru1.vbs.txt
上のファイルをＤＬして
●のＩＤとパスを入力して拡張子vbsで保存して下さい。
然る後 そのスクリプトを実行してみて下さい。
戻り値がダイアログで出てくると思います。
「SESSION-ID=***************」だったら失敗。
「SESSION-ID=Monazilla/1.00:DA|M@Lp,VEYDPettDv8nOt81vPr7lO^2HO0k/M...」
みたいなのだったらログイン成功です。
１５行くらいのソースですし
別に怪しい事とかはしてないです。
wsh（というかxmlhttp)でもSSL通信出来るようなので
こういう事も可能なのではないかと。
まあ自分に出来るかどうかはわからんですが。
下記JScriptでやっておられるようです
Ajax Ajaxで基本認証+SSL - ［JavaScript］All About
http://allabout.co.jp/internet/javascript/closeup/CU20050730A/index3.htm#4
ところで、proxomitronだとSSLには完全対応されてないみたいで
何だか通信ログとかうまくいかないです。
いちおう「設定」→「HTTP」で「〜SSLを使用する」にチェックして
それ用のDLLを入れてみましたが。
SSLの通信ログも監視出来るようなフリーソフトって何かありますか？
- 433 ：名無しさん＠勉強中 ★：07/01/13 18:51:30 ID:???
- まあ●持ちでここ見ておられる方って少ないだろうなと。
動作確認が取れればそのまま正式バージョンにしようかと思っていたのですが
当面ペンディングですかね。
それにしても上の文章
どこかで見た事あるなあ（ごめんなさい怒らないで下さいです）
- 434 ：名無しさん＠勉強中 ★：07/01/13 19:02:52 ID:???
- それはともかく
↓検索でヒットしたんですが
Faceちゃんねる
http://justcallmeai.com/board/fch/
・・・！
私が改造した0chスクリプトを使っておられるようです
http://mirror.s151.xrea.com/0ch_utf8/
ルートディレクトリを見てみると
http://justcallmeai.com/
そこからブログに行ってみると
http://justcallmeai.com/blog/
・・いやー、私もインターナショナルになったもんだなあ
驚いちゃった。
どういう方がやっておられるのでしょうか。
ブログを読めば判るんでしょうけど一字一句読めませぬ。
後で翻訳サイトにかけてみるです
それにしても
曜日が漢字なのはなんでなんでしょ
確かデフォルト表記は英語にしといたような記憶があるですけど
- 435 ：名無しさん＠勉強中 ★：07/01/13 19:27:05 ID:???
- なので
JaneNidaスレに要望を出させて頂きました
http://pc9.2ch.net/test/read.cgi/software/1168136526/88
まあ またスルーかもしれないなと。
でも、ソフトの名前が名前なのに
現地の方が運営されている掲示板を表示出来ないのは何だかなと
心底思うのですが。
これを機にハングルも勉強してみますか。
- 436 ： ◆/vmukiyuzw ：07/01/13 22:29:59 ID:R6haMGtb
- >>433
なんか名指しで確認してくれって言われてるような気が・・・ｗ
試してみました。
SESSION-ID=Monazilla/1.00:FOQyVonl*+n+{1r*vOl{1r/1tH^qF8fYljDSE（長いので以下略
うまくいってるように思えます。
- 437 ： ◆/vmukiyuzw ：07/01/13 22:41:10 ID:R6haMGtb
- ところでSSLの通信ログの監視？
自分はVigilってソフトを使ってます。
（シェアウェアだけどフリーで使える範囲でも個人で使う分には
充分使い物になる）
# でも、SSLの通信を確立するまではモニターできるのですが
# 実際の通信内容は暗号化されたものしか読めないみたいです
- 438 ：名無しさん＠勉強中 ★：07/01/14 15:39:03 ID:???
- あいや
> mukiyuさん
ありがとうございます！
出来ましたか！！
セッションＩＤも返って来たみたいなので
もう八割方出来たかもです。
胸突き八丁が一番大変ですが。
SSL監視ソフトの件もありがとうございますです
- 439 ：名無しさん＠勉強中 ★：07/01/14 15:45:38 ID:???
- さて
あとはdat落ちしたdatの読み込みですが
http://kage.monazilla.org/system_DOLIB100.html
を見ると
SSL通信は使ってないみたい。
read.cgiと同じ階層にあるofflaw.cgiにGETすればいいだけみたいですね。
セッションＩＤを末尾に付けてやればよいだけで。
何とかなりそうです。
- 440 ：名無しさん＠勉強中 ★：07/01/14 15:58:53 ID:???
- ところで
http://qb5.2ch.net/test/read.cgi/operate/1163825500/738-743n
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
738 ：動け動けウゴウゴ２ちゃんねる ：2006/12/28(木) 23:09:49 ID:XpIwLayJ0
ちなみに、●に対応するとシェアに応じた配当がもらえるので、
それは是非スンオスさんの御餅代に。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
> ●に対応するとシェアに応じた配当がもらえるので
ほんまっすか
うはうは
どこに連絡すればいいんですかね？
kageさんが●の収益の分配報告とか以前やっておられましたけど。
あと
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
740 ： 株価【1550】 ▲▲▲▲ ◆cZfSunOs.U ：2006/12/28(木) 23:36:54 ID:BOiC7YOA0
>>736 そんなことも前ちょっと考えていたことがあって，pastdat.so / anydat.so に
●対応機能を組み込めば read.js で過去ログもシームレスに表示できるようになるなぁ
とか思ってたんですが，XMLHttpRequest ではクロスドメインのリクエストはえないんですね．
なので，2ch.net ドメインで●認証鯖への橋渡しをする SSL 鯖を別途用意してもらわないと実現できない，と......
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
> XMLHttpRequest ではクロスドメインのリクエストはえないんですね
JavaScriptでは確かにそうですが
wshで使っているVBScriptやJScriptではそんな事も無いみたいで。
というか ローカルで使う分には考えなくてもいいと。
- 441 ：名無しさん＠勉強中 ★：07/01/14 16:16:28 ID:???
- で
「2chが閉鎖するかもしれないのに何を脳天気な」とか言われそうですが
こればかりはなるようにしかならないんで
あれこれ言ってもしょうがないなと。
それはともかく
UNIX板の下記スレッドが面白いなと。
http://pc10.2ch.net/test/read.cgi/unix/1168662832/l50
それと
読んでて出てきたんですけど
ちょろ★さん って 夜勤★さん で FOX★さん だったんですか？
- 442 ：名無しさん＠勉強中：07/01/14 17:25:45 ID:IzxLWPum
- 夜勤＝ちょろ
FOXは共有キャップだけど使ってるのは大体ちょろ
- 443 ：名無しさん＠勉強中 ★：07/01/14 18:31:11 ID:???
- >>442さん
どもです。
何だかきれるお方のようで。
>>440
> kageさんが●の収益の分配報告とか以前やっておられましたけど
まだやっておられました
http://kage.monazilla.org/test/read.cgi/kage/037366460/l50
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
174 名前：kageさく〜しゃ ★ 投稿日：2006/09/04(月) 21:38:57 ID:???
===================
$1,997.99
===================
2004/7/1〜7/31のツール利用分です。
175 名前：名無しさん 投稿日：2006/09/05(火) 03:56:36 ID:???
2000ドル割ったか・・・
176 名前：kageさく〜しゃ ★ 投稿日：2006/10/05(木) 00:16:27 ID:???
===================
$2,055.25
===================
2004/8/1〜8/31のツール利用分です。
177 名前：kageさく〜しゃ ★ 投稿日：2006/11/02(木) 23:17:49 ID:???
===================
$2,032.39
===================
2004/9/1〜9/30のツール利用分です。
178 名前：kageさく〜しゃ ★ 投稿日：2006/12/04(月) 20:18:18 ID:???
===================
$1,860.85
===================
2004/10/1〜10/31のツール利用分です。
179 名前：kageさく〜しゃ ★ 投稿日：2007/01/09(火) 07:09:30 ID:???
===================
$1,854.92
===================
2004/11/1〜11/30のツール利用分です。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
単位がわかんないんですが
177さんの書き込みを信じれば
毎月180〜200ドル弱くらいはあるという事ですかね。
って
毎月２万円弱の収入ってぇ事ですか・・。
うわー。
- 444 ：名無しさん＠勉強中 ★：07/01/14 18:34:35 ID:???
- 単位まちごうた
2000ドルやな
ってー事は
おいおい
毎月２０万円の収入があるっつー事かいな！
どっひゃー
- 445 ：名無しさん＠勉強中 ★：07/01/15 12:44:41 ID:???
- 何だかdumper.jpさんのところ
403Forbiddenです
何かあったのでしょうか
メモ
■2ch Log BBS
http://kako2ch.wtry.net/
- 446 ：名無しさん＠勉強中 ★：07/01/15 22:03:05 ID:???
- rep2とgetlogとJaneの●に関係するあたりを見てみたですが
確かに>>439の通りの事をやられていて感動したです。
こうこうこうやってそうやってああやればいいのかなとか思うんですが
何か緻密に考える頭になっとらんです
困ったなー
コードをパクろうとしても
パクリ元が存在しない感じだなー（オイ）
- 447 ：名無しさん＠勉強中 ★：07/01/15 23:22:38 ID:???
- 旧マック板より
http://pc10.2ch.net/test/read.cgi/jobs/1031756350/505
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
505 ：●~*：2007/01/15(月) 15:18:05
ネット接続状態の時に30分ごとにスクリーンショットを撮って
web上にアップロードするスクリプトを作って下さい
機能
・ファイルアップロード時はIEか何かのアプリを常にアクティブ状態にして
他のアプリに切り替えができない
・アップロード後はファイルを削除
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
上の場合はMacのAppleScriptでの話なんですが
こんなのもwshで作れそうですね。
以前読んだのですが
AppleScriptはマックの全機種で標準装備されているそうで。
windowsのwshだと搭載されてたりされてなかったりで
バラツキがあるとか。
まあ日進月歩の世界なのでもう変わってるかもですが。
- 448 ：名無しさん＠勉強中 ★：07/01/16 12:50:31 ID:???
- まああれだ
上の方 要するに
「キンタマウイルス」を所望しておられるのだろうなと
http://ex13.2ch.net/test/read.cgi/gline/1165651379/199
これかな
551までしかないみたいだけど
http://airpanda.sakura.ne.jp/vip/summary.php?dat=1144341705
これをdat化出来たらいいですね
- 449 ：名無しさん＠勉強中 ★：07/01/16 18:15:32 ID:???
- 上の文章
上と下は別物です
- 450 ：名無しさん＠勉強中 ★：07/01/16 18:28:10 ID:???
- ところで
恐れていた事が起きました。
いや、makimo.toさん休止とか
dumper.jpさんダウンとか
dat落ちスレ保管所さんの御疲労ぶりとかに比べると
それほどでもないですが。
まずは下のスレ
NHK総合を常に実況し続けるスレ 27605
http://live23.2ch.net/test/read.cgi/livenhk/1168906513/
701のリンクから気付いて行ってみたら落ちてました。
変換スクリプトにかけてみると
下の二つが存在するようです
29ch - NHK総合を常に実況し続けるスレ 27605
http://220.254.5.211:8000/2ch/live23_livenhk/1168/1168906513.html
NHK総合を常に実況し続けるスレ 27605 - remix2ch
http://contents-factory.net/remix2ch/read.php?url=http://live23.2ch.net/test/read.cgi/livenhk/1168906513/
このうち
makimo.toさんの所は一週間ほどで見えなくなります。
となるとremix2chさんの所だけとなりますが
見てのとおり 階層表示となっております。
画面上部にある「その他の設定」→「ツリー表示をしない」
にチェックを入れればクッキーが保存されて通常表示になりますが
現在のところ htmltodatはクッキーに対応されておられないので
このhtmlを呼び出す事は出来ません。
- 451 ：名無しさん＠勉強中 ★：07/01/16 18:47:23 ID:???
- 窮余の策として
Proxomitron経由にして
下記のフィルタをインポートして
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
[HTTP headers]
In = FALSE
Out = TRUE
Key = "Cookie: remix2ch (out)"
URL = ".+contents-factory.net.+"
Replace = "preview_limit=zero; design=2ch; normal_view=on"
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
「送信するヘッダ・フィルタ」にチェックをして呼び出せば
とりあえずツリー表示のhtmlではなくなります（あとは正規表現ですが）。
ただ、出来ればhtmltodat単独でクッキー送信できれば嬉しいなと。
という訳で＞mukiyuさん
htmltodatにクッキー送信（というかヘッダ送信）機能の付加を
考慮しては頂けないでしょうか。
あと出来ればUser-AgentとAuthorization（ベーシック認証）等も。
それが出来れば
remix2chにしか残っていないスレッドも
容易にdat化出来ると思うのです。
- 452 ：名無しさん＠勉強中 ★：07/01/16 20:25:37 ID:???
- 上のをdat化する正規表現を考えたんですけど
ＰＣが固まってしまったとです
ションナリです
ちなみにションナリとは
ションボリ＋ゲンナリのダブルな事で
毎日楽しみだったブログで目にした言葉です
閉鎖して 今はもうありませんが。
- 453 ：名無しさん＠勉強中 ★：07/01/16 20:56:10 ID:???
- 気持ち悪いのでremix2chのdat変換用正規表現
m#<dt>([0-9]+) ：<span class="name">(?:.+?"mailto:(.+?)"><b>)?(.+?) ?(?:</b></a>)?</span>：(.*?)\(スコア.+?<dd> ?(.*?)<br></dd><hr>(<dt>|</dl>)#mik
あと前処理
s#(<title.*?) - remix2ch(</title>)#$1$2#ik
- 454 ：名無しさん＠勉強中 ★：07/01/16 22:23:41 ID:???
- JaneNidaスレのほうで作者さんから御返事がありました
http://pc9.2ch.net/test/read.cgi/software/1168136526/110
なので
再び投稿したです
http://pc9.2ch.net/test/read.cgi/software/1168136526/119-120
ところで
このスレの103
> そして、ハングルNidaを世に出したら
> きゃつらが2chに流れ込んで大荒れ確実です。
何というか
気持ちは判るんですが
そこまで突っぱねるのは何だかなと
mixi等で日記を書いてる韓国の人 けっこう居ますし
内容も普通ですし
そういうのを見てると以下略
それだけです
この件 反応があっても困ります
- 455 ：名無しさん＠勉強中 ★：07/01/16 22:29:49 ID:???
- 作者さんの御返事はこちらでした
http://pc9.2ch.net/test/read.cgi/software/1168136526/110
- 456 ： ◆/vmukiyuzw ：07/01/16 22:31:32 ID:qjF1qzID
- >>450-451
要望等はできればうちの板に直接書いていただけませんか。
こちらからリンク貼ってもいいですが経緯がわかりにくくもなりますし
情報分散して検索の際とかに面倒になったりするのもありますし。
お手数かと思いますがよろしくお願いします。
- 457 ：名無しさん＠勉強中 ★：07/01/16 22:35:40 ID:???
- 了解しました
ではそうさせて頂きます。
- 458 ：名無しさん＠勉強中 ★：07/01/17 20:19:34 ID:???
- メモ
[[[CHINPOGEDU]]]
http://www.abcoroti.com:8010/~nusoku
これまた結構なログ保管庫で
- 459 ：名無しさん＠勉強中 ★：07/01/18 20:42:59 ID:???
- http://jbbs.livedoor.jp/bbs/read.cgi/computer/1929/1038588508/401-405n
とりあえず自分は
新旧どちらのdat形式でも問題なく表示させるように
read.phpをいじらんといかんのかな
phpは忘却の彼方なんですが
とりあえず
http://user.ftth100.net/mirrorhenkan/test-k/
と分岐処理させれば良いのかなとは思うんですが
これがなかなか。
それにしても、p2は凄いですね。
分岐とかうまくやっておられるなあと（何とまあ偉そうに）
- 460 ：名無しさん＠勉強中 ★：07/01/18 20:57:42 ID:???
- Jane板より
2chdatget/2chdatsearchgetのログをJaneで動かすことについて
http://jane.s28.xrea.com/test/read.cgi/bbs/1169052446/l50
少し驚いたです
いちおう作者なんですが
私 何をすればいいのでしょうか
- 461 ：名無しさん＠勉強中：07/01/18 21:11:01 ID:42USqSQU
- >>460
なにもしなくて良いんじゃない？
datそのものには問題ないんだから。
- 462 ：名無しさん＠勉強中：07/01/19 05:52:12 ID:Iv+zn6AH
- #PerlとLWP::UserAgentモジュールと●あれば多分いけるんじゃないかなぁと思っている
#
#####過去ログいっぱい取得するなんか
#####ソースきたねｗｗｗメッセージいてぇｗｗｗ
#####WindowsXP SP2で動作チェックしてない
#####途中でのセッションタイムアウトを気にしてない
#####●持ってないから勘で実装
490 名前： 459 [sage] 投稿日： 2007/01/19(金) 01:15:22 ID:OlRy4Zvb0
Perl(ActivePerlでも多分いい）とLWP::UserAgentモジュールと●があれば多分試せる。
上げ直し
http://sub.jetabbs.org/upload2/upload/upz043.zip
転載
- 463 ：名無しさん＠勉強中：07/01/19 05:54:03 ID:Iv+zn6AH
- datファイルを共有するP2Pソフト o2on 8dat
http://tmp6.2ch.net/test/read.cgi/download/1167375249/l50
- 464 ：名無しさん＠勉強中 ★：07/01/19 19:36:34 ID:???
- >>461さん
お言葉に甘えます
どうやったんだか忘れかけてるし(^^;
ただ、datsearchgetとdatsearchgetallは
datの最終行を見てゴニョゴニョやってるんで
そういうのも（実際のレス数と違う表示が出る）
出ないと思うんだけどなあ。
自分では試せないのでアレですが。
- 465 ：名無しさん＠勉強中 ★：07/01/19 19:48:23 ID:???
- # 最終行をチェックするコードは私ではないです
# 教えてくれた方ありがとうです
>>462-463さん
教えて頂きありがとうございます。
自分のクラシック環境ではo2onは起動すら出来ませんし
そもそも自分のＯＳ自体 o2on作者さんの考慮の対象外のようなので
見なくなっていたスレッドだったもので。
ネットランナーにo2onの特集が載ってましたが
時期尚早のような。
- 466 ：名無しさん＠勉強中 ★：07/01/19 20:05:32 ID:???
- で、ＤＬして見てみたです。
すごいなあ
ActivePerlがインストールされているＰＣで
kako2chSpiderをダブルクリックすればいいみたいですね。
Dosプロンプトのような黒背景の画面が出て
●のＩＤとパスを入力
ダウンロードしたい板のURLを入力すれば
過去ログ倉庫のsubject.txtを自分で引っ張り出して
順番にdatをＤＬするようにされてるみたいです。
ただ、このスクリプト
敷居が高い感じです。
自分のマシンに
AcrivePerlと
LWP::UserAgentモジュールと
HTTP::Requestモジュールと
HTTP::Headersモジュール
・・を入れないと
使えないみたいなので。
使いこなす人も限られているんじゃないかな
だから運営の方もあれこれ言わないんじゃないかなと。
って
自分をモノサシにして書いてるんですが
これってもしかして常識なのかな
だったら恥ずかしいな
でも私 ド素人なんだもーん
何にもわかんないんだもーん
アーアー聞こえなーい
と開き直っておこうっと
- 467 ：名無しさん＠勉強中 ★：07/01/19 20:43:17 ID:???
- で、自分のwshも
>>433-439で試して頂いて
●ログインが出来たので
あとはdat取得だけです
dat取得だけなのです
それにしても、2chSpider.pl作られた方
自分で試せないのにお作りになられて
すっげーなと。
- 468 ：名無しさん＠勉強中 ★：07/01/20 19:44:46 ID:???
- さて
落ちてましたが
http://219.166.251.40/~maido3/
ここも同じmaido3を使っておられるそうなので
同様に繋がらなくなるです
どうしたものか。
対策として三つ考えられるかなと
(1)このまま続行
(2)引っ越す
(3)予備を設置
- 469 ：名無しさん＠勉強中 ★：07/01/20 19:58:15 ID:???
- それぞれ考えると
(1)このまま続行
本家がダウンしたらここもダウンする訳で
それはそれでいいじゃないかにんげんだもの
別にどうでもいい事しかここにはないですし
(2)引っ越す
追い出された訳でも無いのに出てゆくなんて
そんな薄情な殺生な事は出来ません
そもそも引っ越し先も考えてないですし
以前、掃除屋さんのレンタル掲示板を試しに借りてみようかと思ってたら
いつの間にかお休み中になってましたし
同様の事があったら寂しいなと
(3)予備を設置
これかな
四つ考えられます
a.レンタル掲示板を借りる
b.レンタルブログを借りる
c.掲示板スクリプトを自前設置
d.ブログスクリプトを自前設置
このうちcだと更に二つ考えられるかなと
イ 配布されているスクリプトを使わせてもらう
ロ よーしパパ自分で掲示板スクリプト作っちゃうぞー
さあどうするよ自分（ライフカードを拡げながら）
- 470 ：名無しさん＠勉強中 ★：07/01/20 20:22:22 ID:???
- さて
攻める(?)としたら
よーし掲示板スクリプト作っちゃうぞーが一番なんですが
暇にあかせて
スレッドフロート掲示板スクリプトを収集してましたが
だいたい40-50個くらいあるみたいです。
それらを参考にとかいうと
んもう丸々使わせてもらうコードばっかりになっちゃいそうだなーと。
あとこういうページもありますし
http://d16web.ath.cx/~coolshit/
集めたスクリプトの使用言語を見てみると
perl/php/pythonがあり
rubyで作られた2chタイプの掲示板はまだ未見なので
rubyでやれば面白いかもとか思ったりして。
まあMoonWolfさんとか作っておられそうだなー。
と考えただけです
大風呂敷でも何でもありません
- 471 ：名無しさん＠勉強中 ★：07/01/20 20:36:44 ID:???
- さて
偽モナメントを見てみると
なりきりキャラネタスレのログが最近すっげーなと。
行った事のない板だったんですが。
http://etc5.2ch.net/charaneta2/
で、とりあえず設置してはみたんですが
さあ看板画像とか差し替えるのも億劫だ
http://user.ftth100.net/mirrorhenkan/charaneta/
板やスレを覗いてみたんですが
固定ハンドルの方々が和気藹々とやっておられるんですね。
でも半ば本名とか出している所もあって、こういうのっていいのかなー
本人がいいのならいいんだろうなー。
本名っていうのは
例えばこれとか↓で話題になってます
http://etc5.2ch.net/test/read.cgi/charaneta2/1168429099/447n-
よくわかんないんですが
偽モナメントに上がってる分は・・まあいいや
考えてもしょうがない感じです
- 472 ：名無しさん＠勉強中 ★：07/01/20 20:50:52 ID:???
- 上の502-503とか見てみると
御本人が上げたみたいなので
問題なさそうですね。
- 473 ：名無しさん＠勉強中 ★：07/01/21 11:17:24 ID:???
- メモ
記憶喪失の名無しさん@漫画サロン：一覧表
http://web1.nazca.co.jp/hp/macde/amnesianony/atable.html
記憶喪失の名無しさん@漫画サロン まとめページ
http://web1.nazca.co.jp/hp/macde/amnesianony/
よくわかんないけどすっげー！
- 474 ：名無しさん＠勉強中 ★：07/01/23 20:19:09 ID:???
- >>462-463の2chSpider.plを出された方
御自分も●持ちになられて
新たに色々やられておられますね。
●で試されてから出しておられるでしょうから
使えているのだろうなと。すごいなーと。
ただ、やはりActivePerlを入れないといけないみたいです
自分も
いちおう戻り値での●ログイン可否の分岐まではやったですが
どうもo2onスレを見ると改行コードが問題みたいなので
ログイン後の戻り値を半手動でコピペしてもらうようにしようかなと。
それを別のスクリプトにペーストして実行してもらって
offlaw.cgi経由でdatが取得出来ていれば成功ですが
さてどうなる事か。
- 475 ：名無しさん＠勉強中 ★：07/01/24 20:57:09 ID:???
- Jane板より
http://jane.s28.xrea.com/test/read.cgi/bbs/1169052446/4
いやーすっげー。
- 476 ：名無しさん＠勉強中 ★：07/01/24 21:05:12 ID:???
- 0ch質問スレより
http://0ch.mine.nu/test/read.cgi/jikken/1157568447/178-
私がやった絵文字表示版が出てるですが
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
182 ：１７８：2007/01/24(水) 16:02:27 ID:W6sxaEJ20 URL
>>181
その絵文字表示するスクリプトは組み込んであります。
が、しかしどうやら完全なものではないようです
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
これだけでは何とも。
どんなものが表示されないのかとか具体的に書いて頂かないと
手をつけられないですよー。
このスレに素敵な作者様御降臨（カッケー！）とかしても
不具合を解消出来るかどうかわかんないですし
そもそもグダグダになりそうだし。
って そういえば自分
そもそも携帯でネットした事ないんだよなー。
- 477 ：名無しさん＠勉強中 ★：07/01/25 19:09:10 ID:???
- http://ex17.2ch.net/test/read.cgi/news4vip/1169677249/6n-
携帯用のもまだ使われてるんだなあと。
ではもう少し考えてみますか（書いただけです）
makimo.toさんの所とかも
UAかクッキー送信でアクセスすれば良さそうなので
何とかなりそうですね。
http://php.s3.to/tt/tt6.php
http://www.spencernetwork.org/memo/tips-3.php
501KB
続きを読む
掲示板に戻る 全部 前100 次100 最新50