gethtmldat

 

 

var HTTP_HEADERS = {

var HTTP_TIMEOUT = 30 * 1000;

var IDX_STATE = { "2ch":3 , "jbbs":3 }; //=0:現役 =3:dat落ち =10:過去ログ

var ABN_MSG = "あぼーん<>あぼーん<>あぼーん<>あぼーん<>";

var NOT_GET_MSG = "未取得<>未取得<>未取得<>未取得<>";

 

var fso   = new ActiveXObject("Scripting.FileSystemObject");

var shell = new ActiveXObject("WScript.Shell");

var sha   = new ActiveXObject("Shell.Application");

var strm  = new ActiveXObject("ADODB.Stream");

var http; try { http = new ActiveXObject("Msxml2.ServerXMLHTTP.6.0"); } catch(e){}

                  if (!http) try { http = new ActiveXObject("Msxml2.XMLHTTP.6.0"); } catch(e){}

                  if (!http) { http  = new ActiveXObject("Msxml2.XMLHTTP.3.0"); }

var basp; /*@if (@EnabledBASP21) try { basp = new ActiveXObject("basp21"); } catch(e){} @end @*/

 

var JANE_PATH = shell.CurrentDirectory.replace(/[^\\]$/,"$&\\");

var SCRIPT_PATH = fso.GetParentFolderName( WScript.ScriptFullName ).replace(/[^\\]$/,"$&\\");

shell.CurrentDirectory = JANE_PATH;

var JANE_EXE  = "Jane2ch.exe";

var JANE_INI  = "Jane2ch.ini";

var JANE_BRD  = "Jane2ch.brd";

var JANE_LOGS = "Logs\\2ch\\";

var JANE_BAK  = "Logs\\bak\\";

var JANE_BRDCUSTOMIZE_INI = "brdcustomize.ini";

var MY_NAME   = WScript.ScriptName.split(/\.(?=[^.]+$)/)[0];

var TRACE_LOG = replaceEnv("%temp%\\"+MY_NAME+".log").replace(/\\\\/g,"\\");

 

 

function o(s) { /*@if (@DEBUG) WScript.Echo(s); @end @*/ }

function q() {WScript.Quit();}

String.prototype.expand = function(v) { return this.replace(/\$(\d)/g, function(m, n) { return v[n]; }); }

String.prototype.convDontUseStr = function() {

        var tbl0 = { "CON":"$CON", "AUX":"$AUX", "NUL":"$NUL" /*, "PRN":"$PRN", "COM([0-2])":"$COM$1", "LPT([0-2])":"$LPT$1" */ }

        var tbl1 = { "\\":"$Backslash", "/":"$Slash", ":":"$Colon", "*":"$Asterisk", "?":"$Question" }

        var s = this;

        for(var i in tbl0) { s=s.replace( new RegExp("^"+i+"$","i") , tbl0[i]); }

        return s.replace(/[\\/:*?]/g, function (w){return tbl1[w];});

var trace = function(){};

function Err(s,t) { s=ErrMsg(s,t); trace("---- "+s+" ----",2); throw new Error(s); }

function ErrMsg(s,t) { return (ERROR_MSG[s]?ERROR_MSG[s]:"Unknown error") + (t?t:"");}

 

var ERROR_MSG = {

         "E_already_there" : "このスレは既に取得しています"

        ,"E_illegal_url" : "このURLでは処理できません"

        ,"E_remained_garbage" : "レスデータのみの抽出に失敗しました"

        ,"E_block_not_found" : "htmlからスレブロックが見つかりません"

        ,"E_title_not_found" : "スレタイトルが見つかりません"

        ,"E_require_sqlite" : "sqlite3.exe 又は SQLite3 ODBC Driver が必要です"

        ,"E_require_sqlODBC" : "SQLite3 ODBC Driver が必要です"

        ,"E_stop" : "処理を中止しました"

        ,"E_no_data" : "取得データはありません"

        ,"E_http_timeout" : "受信タイムアウト"

        ,"E_http_recieve" : "http受信エラー"

        ,"E_bbs_not_found" : "掲示板番号が不正です"

        ,"E_key_not_found" :"スレッド番号が不正です"

        ,"E_thread_not_found" : "スレッドがありません"

        ,"E_brditem_not_found" : "dat格納場所が見つかりません"

        ,"E_loadfile" : "ファイル読み込みエラー"

        ,"E_savefile" : "ファイル書き込みエラー"

 

function object(o) {

        var f = object.f, i, len, n, prop;

        f.prototype = o;

        n = new f;

        for (i=1, len=arguments.length; i<len; ++i) for (prop in arguments[i]) n[prop] = arguments[i][prop];

        return n;

object.f = function(){};

var vb = {};

vb.Function = function(func) { return function() { return vb.Function.eval.call(this, func, arguments); }; };

vb.Function.eval = function(func) {

        var args = Array.prototype.slice.call(arguments[1]);

        for (var i = 0; i < args.length; i++) {

                if ( typeof args[i] != 'string' ) { continue; }

                args[i] = '"' + args[i].replace(/"/g, '" + Chr(34) + "') + '"';

        }

        var vbe;

        vbe = new ActiveXObject('ScriptControl');

        vbe.Language = 'VBScript';

        return vbe.eval(func + '(' + args.join(', ') + ')');

var InputBox = vb.Function('InputBox');

var MsgBox = vb.Function('MsgBox');

 

 

var args = parmParse(WScript.Arguments);

 

var URL_2ch = {

  RE_HOST : new RegExp("^http://\\w+\\.(?:2ch\\.net|bbspink\\.com)/")   //この定義はdat取得できないサイトの判別に使う

 ,RE_URL  : new RegExp("^http://((\\w+(?=\\.\\w+\\.))?(\\.?(\\w+).+?))/(?:(?:test|bbs)/.+?/)?(\\w+)/(?:kako/.+?/)?(((\\d+)\\d)\\d{5})(/|\\.html|\\.dat(?:\\.gz)?)?")

 ,range   : ""

 ,set_prm : function(url) { this._set_prm(url, 1, null, 5, 6); this.kako = /\/kako\//.test(url) && delete args.append; }

 ,_set_prm: function(url,p1,p2,p3,p4) {

                                this.prm  = url.match(this.RE_URL) || Err("E_illegal_url");

                                if(/\d$/.test(this.prm[0])) this.prm[0] += "/";

                                this.url  = this.prm[0];

                                this.url2 = this.prm[0];

                                if (this.prm[0].slice(-1)=="/") {

                                        var range = url.match(/\/n?((\d*)n?(-?)[^\/]*)$/)||[];

                                        this.url2 += (args.opt_n || range[2] ||"");

                                        if(range[3]) this.range = (range[1]||"").replace(/n/ig,"");

                                        else if(range[2]) this.range = range[2] + "-" + range[2];

                                }

                                this.site     = this.prm[p1];

                                this.category = (p2) ? this.prm[p2] : "";

                                this.brdID    = this.prm[p3];

                                this.thrID    = this.prm[p4];

                        }

 ,appendRange : function(top) {

                                        if (args.overwrite) this.url += this.range;

                                        else                this.url += ((args.append && top) ? top+"-n" : "");

                                }

 ,getUrl2 : function() { return this.url2; }

var URL_jbbs = object(URL_2ch,{

  RE_HOST : new RegExp("^http://jbbs\\.(?:shitaraba|livedoor)\\.(?:net|jp|com)/")

 ,RE_URL  : new RegExp("^http://(jbbs\\.shitaraba\\.net)/bbs/\\w+\\.cgi/(\\w+)/(\\d+)/(\\d+)/?")

 ,set_prm : function(url) { this._set_prm(url,1,2,3,4); }

var URL_machi = object(URL_2ch,{

  RE_HOST : new RegExp("^http://(?:\\w+\\.)?machi\\.to/")

 ,RE_URL  : new RegExp("^http://((?:\\w+\\.)?machi\\.to)/bbs/\\w+\\.cgi/2/(\\w+)/(\\d+)/?")

 ,set_prm : function(url) { this._set_prm(url,1,null,2,3); }

 ,getUrl2 : function() { return this.url2.replace(/\/offlaw\.cgi\/2\//,"/read.cgi/"); }

var URL = URL_2ch;

 

var Jane_2ch = {

 ini          : loadFile2(JANE_INI)

 ,brd         : ""

 ,LogBasePath : ""

 ,init        : function() { this._setLogBasePath(); this._loadBRD(); }

 ,getINI      : function(p) { var m=this._search(this.ini, this._re_ini, p); return m && RegExp.$1 || p[3]; }

 ,getBRD      : function(p) {

                                        var m = this._search(this.brd, this._re_brd, p);

                                        return (m) ? RegExp.$1.convDontUseStr()+"\\"+RegExp.$2.convDontUseStr()+"\\" : null;

                                }

 ,_re_ini     : "^\\[$1\\]\\r\\n(?:.*\\r\\n)*?(?:$2=(.*)|\\[.*\\])\\r\\n"

 ,_re_brd     : "^([ \\S]+).*\\r\\n(?:\\t.*\\r\\n)*\\t\\w*$3\\t$5\\t([^\\t\\r\\n]+)\\r\\n"

 ,_search     : function(f,s,p) { return f.match(new RegExp(this._expand(s,p),"img")); }

 ,_expand     : function(s,p) { return s.replace(/\$(\d)/g, function(m, n) { return (""+p[n]).replace(/\./g,"\\."); }); }

 ,_setLogBasePath : function() { this.LogBasePath = this.getINI([,"PATH","LogBasePath",""]).replace(/[^\\]$/,"$&\\");}

 ,_loadBRD     : function() { this.brd = loadFile2(this.LogBasePath + JANE_BRD); }

var Jane_jbbs = object(Jane_2ch,{

  _re_brd : "^([ \\S]+).*\\r\\n(?:\\t.*\\r\\n)*?\\t$1/$2\\t$3\\t([^\\t\\r\\n]+)\\r\\n"

var Jane_machi = object(Jane_2ch,{

  _re_brd : "^([ \\S]+).*\\r\\n(?:\\t.*\\r\\n)*?\\t$1\\t$2\\t([^\\t\\r\\n]+)\\r\\n"

 

var Jane = Jane_2ch;

Jane.init();

 

if (args.trace !== void 0) { trace = new Trace(); }

trace("--- start ---   "+args.url,1);trace("",1)

 

 

var DatInfo = {

  cnt      : 0

 ,title    : ""

 ,msg      : ""

 ,setInfo  : function(dat,bak,brd) {

                                this.dat = dat;

                                this.bak = bak;

                                this.brd = brd;

                                if (fso.FileExists(dat)) {

                                        var msg = loadFile2(dat);

                                        this.cnt  = msg.replace(/^.*$/mg,"").length;

                                        this.title = (msg.match(/<>((?:(?!<>).)*)$/m)||[])[1];

                                        if (args.overwrite) { this.msg = msg.slice(0,-1).split("\n"); }

                                }

                         }

 ,copyDat  : function() {

                                if (fso.FileExists(this.dat)) {

                                        path(this.bak);

                                        if (args.bak<0 || !fso.FileExists(this.bak) )

                                                try{ trace(); fso.CopyFile(this.dat, this.bak, true); trace("copy file:"+this.bak);} catch(e) {}

                                }

                         }

 ,setNewDatInfo : function(title, lines) {

                                        this.title = title;

                                        this.lines = parseInt(lines,10);

                                  }

 

 

 

var Thread = {

  re_sel      : 0

 ,REG_PATTERN : [ {} ]

 ,msg         : ""

 ,resNo       : []

 ,requireFillAbn  : false

 ,prepare     : function() {}

 ,urlReplace  : function(u) { return u; }

 ,preReplace  : function() {}

                                       

 ,mainReplace : function() { this.msg = this.msg.replace(this.REG_PATTERN[this.re_sel].msg, this.REG_PATTERN[this.re_sel].rep); }

 ,postReplace : function() {}

 ,createBrdFolder : function() { return null;}

 ,matchTBlock :

        function(s) {

                var i,ss;

                for(i=0; i<this.REG_PATTERN.length; i++) {

                        this.re_sel =i;

                        if(ss=s.match(this.REG_PATTERN[i].thr)) break;

                }

                return ss;

        }

 ,getTBlock   : function() { this.msg = (this.matchTBlock(this.msg)||[])[1]||""; }

 ,getTitle    : function(s) { this.title = (s.match(/<title>(.*?)\n*<\/title>/i)||[])[1]; }

 ,readHTTP    : function(url) {

        trace("try URL="+url,9);

        this.msg = readHTTP(url);

        this.preReplace();

        this.getTitle(this.msg);

        this.getTBlock();

        return true;

  }

 ,getFirst    : function() { return (args.overwrite) ? parseInt(URL.range,10) : (args.append) ? DatInfo.cnt + 1 : 1; }

 ,getLast     : function() { return parseInt((this.msg.match(/(\d+).*\n$/i)||[])[1],10); }

 ,delContents : function(s) { return s.replace(/^(?:(?:(?!<>).)*<>){4}.*$/mg, ""); }

 ,checkData   : function(s) {

                                        var ln = this.checkData0(s);

                                        if(args.overwrite) return;

                                        if (this.last-this.first+1 != ln.length)

                                                if (MsgBox("抽出したレス数が合いませんが続行しますか？(先頭="+this.first

                                                            +" 末尾="+this.last+" レス数="+ln.length+")",4+48,MY_NAME)!=6)

                                                        Err("E_stop");

                                }

 ,checkData0  : function(s) {

                                        var ln = this.delContents(s);

                                        if (ln.replace(/\n/g,"").length > 0) Err("E_remained_garbage");

                                        return ln;

                                }

 ,addTitle    : function() { this.msg = this.msg.replace(/^.*?$/m, "$&"+this.title); }

 ,delDupData  : function() { //わざと重複して要求した先頭レス番データ削除

                                        if ((this.msg.match(/^(\d+)/i)||[])[1] == DatInfo.cnt) { this.msg = this.msg.replace(/^.*\n/m, ""); }

                                }

 ,fillAbn     : function() {

                                        // 透明あぼーんレスを挿入する

                                        var d = [], n = this.first;

                                        var s = this.msg.split("\n");

                                        for (var i=0; i<s.length; i++) {

                                                for (var j=n; j<parseInt(s[i].replace(/^(\d+).+$/, "$1"),10); j++) { d.push(j+"<>"+ABN_MSG); n++; }

                                                d.push(s[i]); n++;

                                        }

                                        this.msg = d.join("\n");

                                }

 ,delResNo    : function() { this.msg = this.msg.replace(/^\d+<>/mg, ""); }

 ,overwriteMsg : function() {

                                        var data = this.msg.split("\n");

                                        var msg = DatInfo.msg;

                                        var i;

                                        for (i=0; i<data.length; i++) msg[parseInt(data[i],10)-1] = data[i].replace(/^\d+<>/,"");

                                        for (i=0; i<msg.length; i++) if(!msg[i]) msg[i] = NOT_GET_MSG;

                                        this.msg = msg.join("\n");

                                        if(this.msg.slice(-1)!="\n") this.msg += "\n";

                                 }

 ,proc        : function() {

                                        this.prepare();

                                        URL.set_prm(this.urlReplace(args.url));

                                        var brd = Jane.getBRD(URL.prm);

                                        if (!brd) brd = this.createBrdFolder();

                                        if (!brd) Err("E_brditem_not_found");

                                        var dat = Jane.LogBasePath + JANE_LOGS + brd + URL.thrID + ".dat";

                                        var bak = Jane.LogBasePath + JANE_BAK + brd + URL.thrID + ".dat";

                                        DatInfo.setInfo(dat, bak, brd);

                                        URL.appendRange(DatInfo.cnt);

                                        if (trace()|this.readHTTP(URL.url)|trace("HTTP total read time")) {

                                                if (!this.msg) Err("E_block_not_found");

                                                if (!this.noChkTitle && !this.title) Err("E_title_not_found");

                                                trace(); this.mainReplace(); trace("html->dat main replace");

                                                if (args.append) {

                                                        trace(); this.delDupData(); trace("del dupdata time");

                                                        if(this.msg=="") Err("E_already_there");

                                                }

                                                this.first = this.getFirst();

                                                this.last  = this.getLast();

                                                this.checkData(this.msg);

                                                if (this.first==1) { this.addTitle(); }

                                                if(this.requireFillAbn) { trace(); this.fillAbn(); trace("透明abnレス挿入"); }

                                                this.postReplace();

                                                if(args.overwrite) this.overwriteMsg();

                                                else               this.delResNo();

                                        }

                                        trace("スレタイトル:"+this.title+"\tレス数:"+this.last,9);

                                        saveDat(dat, this.msg);

                                        DatInfo.setNewDatInfo(this.title, this.last);

                                        saveIdx("http://"+URL.site+((URL.category)?"/"+URL.category:"")+"/"+URL.brdID);

                                        invokeJaneStyle(URL.getUrl2());

                                        trace("---- end ----",1);

                                }

 

var Thread_2ch = object(Thread,{

  read_cgi_ver : ""

 ,REG_PATTERN : [

    { "thr" : /^[\s\S]*?<dl[^>]*>\s*(?:<font[^>]*>.*<\/font>.*\s*)?((?:\s*<dt[^>]*>.+?<dd>.+\r?\n?)+)(\s*<\/dl>)?/i

     ,"msg" : /[ \t]*<dt.*?>([0-9]+).+?(?:"mailto:(.+?)">)?<b[^>]*>(.*?)<\/b>(?:<\/font>|<\/a>)?(?: ?投稿日)? ?：(.*?)<dd>(.*?)(?:<br>)*(?=<dt.*?>|$)/img

     ,"rep" : "$1<>$3<>$2<>$4<>$5<>"

    }

   ,{ "thr" : /^[\s\S]*?<div class="thread"[^>]*>((?:<div class="post"[^>]*>(?:<div[^>]*>.*?<\/div>)+<\/div>)*)(<\/div>)/i

     ,"msg" : /.*?<div class="number">(\d+).+?<\/div><div class="name"><b>(?:<a href="mailto:(.+?)">)?(.*?)(?:<\/a>)?<\/b><\/div><div class="date">(.*?)<\/div><div class="message">(.*?)<\/div><\/div>(?=<div class="post"|$)/img

     ,"rep" : "$1<>$3<>$2<>$4<>$5<>\n"

    }

  ]

,urlReplace  :

        function(url) {

                url = url.replace(/^(http:\/\/next2ch\.net\/)(\w+\/)(?:kako\/\d{3,4}\/(?:\d{5}\/)?)?(\d+)(?:\/|\.html)?$/,"$1test/read.cgi/$2$3/");

                if(!args.keep_kako)

                        url=url.replace(/^(.*?\/)(\w+\/)kako\/\d{3,4}\/(?:\d{5}\/)?(\d+)\.html$/,"$1test/read.cgi/$2$3/");

                return url;

        }

 ,preReplace  : function() {

        this.msg = this.msg

                                .replace(/<div (?:class|id)="banner"[^>]*>[\s\S]*?(?=<dt|<div class="post"|<\/div><div class="cLength"|<\/dl>)/ig,"")

                                .replace(/(<a href=)"\/cdn-cgi\/l\/(email-protection\#.*?">)/ig,'$1"mailto:$2');

  }

 ,postReplace : function() {

                                        this.msg = this.msg

                                                                .replace(/<\/div><div class="be[^>]*><a href="[^"]+\/(\d+)"[^>]*>\?(.*?)<\/a>/ig," BE:$1-$2")

                                                                .replace(/<a href="http.*?>(.*?)<\/a>/ig, "$1")

                                                                .replace(/<a href="javascript:be\(([^\)]+?)\)[^>]*>\?(.*?)<\/a>/ig, "BE:$1-$2")

                                                                .replace(/<img src="http:\/\/(img\.2ch\.net\/.+?)">/ig, "sssp://$1")

                                                                .replace(/<img src="(.*?)">/ig, "$1");

                                }

 ,_getKakoUrl :

        function() {

                var p = URL.prm;

                if(URL.thrID<1000000000)

                        { url="http://$1/$2/kako/$3/$4.dat.gz".expand([,p[1],p[5],p[6].substr(0,3),p[6]]);}

                else

                        {url="http://$1/$2/kako/$3/$4/$5.dat.gz".expand([,p[1],p[5],p[6].substr(0,4),p[6].substr(0,5),p[6]]);}

                return url;

        }

 ,readHTTP  :

        function(url) {

                var s,ss,u,msgLength;

                if(!URL.kako && !URL.RE_HOST.test(url)) { if(!this.readHTTP0(url)) return false; } //dat取得

                /*@if (@EnabledTest2chJSON)

                this.kakoUrl = this._getKakoUrl();

                if(URL.kako) if(!this.readHTTP2(this.kakoUrl)) return false;

                trace("try URL="+url,9);

                this.msg = readHTTP(url);

                this.read_cgi_ver = (this.msg.match(/>read\.cgi ver ([\d.]+)/)||[])[1];

                this.preReplace();

                this.getTitle(this.msg);

                msgLength = this.msg.length;

                ss = this.matchTBlock(this.msg);

                if (!ss) {

                        u = this.kakoUrl.replace(/\.dat\.gz$/,".html");

                        if (u!=url) {

                                switch(this.readHTTP3(u)) {

                                        case 0: return false;

                                        case 1: url=u;  ss=this._matchTBlock(this.msg); break;

                                        default: break // case -1

                                }

                        }

                }

                if(!ss) {

                        ss = "<URL>="+url+"\n<TITLE>="+this.title+"\n<メッセージ長>="+msgLength+"\n\n";

                        ss += ((this.msg.match(/^((?=.*LoadAverage|人大杉).*$)/im)||[])[1])

                                        || ((this.msg.match(/<h1[^>]*>([\s\S]*?)<\/h1>/m)||[])[1])

                                        || ((this.msg.match(/<p[^>]*>\n*(.*\s+.*\s*)$/m)||[])[1])

                                        || "不明";

                        Err("E_block_not_found", "\nもしかしたら以下のはメッセージかも\n\n"+ss+"\n");

                }

                if (!ss[2]) {

                        if (MsgBox("途中でデータが途切れているようですが続行しますか？",4+48,MY_NAME)!=6) Err("E_stop");

                }

                s = ss[1] || "";

                if(this.re_sel==0 && s && s.slice(-1)!='\n') s += '\n';

                this.msg = s;

                return true;

        }

 ,readHTTP2 :

        function(url) {

                var re = /^(?:(?!<>).)*<>(?:(?!<>).)*<>(?:(?!<>).)*<>(?:(?!<>).)*<>((?:(?!<>).)*).*\s*$/m;

                trace("try URL="+url,9);

                var s="";

                try {s = readHTTP(url);}catch(e){} //9999999999.dat.gz

                var r = s.match(re);

                if(!r) {url=url.replace(/\.gz$/,""); trace("try URL="+url,9); try{s=readHTTP(url); r=s.match(re);}catch(e){} }

                if(r) {

                        this.msg = s;

                        this.last = this.checkData0(s).replace(/^.*$/m,"").length;

                        this.title = r[1];

                        URL.kako = true;

                        delete args.append;

                        return false;

                }

                return true;

        }

 ,readHTTP3 :

        function(url) {

                var title=((this.msg.match(/<title>(.*)<\/title>/im)||[])[1]||"");

                trace("HTTP title="+title,9);

                if (/error/i.test(title)) {

                        if(!this.readHTTP2(this.kakoUrl)) return 0;　//最初に/kako/.../9999999999.dat.gzを試す

                        trace("try URL="+url,9);

                        var s = readHTTP(url);  //9999999999.html

                        if(/<dl.*>/.test(s)) { // hit

                                this.msg = s;

                                this.preReplace();

                                URL.kako = true;

                                delete args.append;

                                return 1;

                        }

                        trace("HTTP title="+((s.match(/<title>(.*)<\/title>/im)||[])[1]||""),9);

                }

                return -1;

        }

 ,readHTTP0 :

        function(url) {

                var re = /^(?:(?!<>).)*<>(?:(?!<>).)*<>(?:(?!<>).)*<>(?:(?!<>).)*<>((?:(?!<>).)*).*\s*$/m;

                var s;

                url = "http://"+URL.site+"/"+URL.brdID+"/dat/"+URL.thrID+".dat";

                trace("try URL="+url,9);

                try { s=readHTTP(url); } catch(e) {}

                if(s) {

                        this.msg = s;

                        this.title = (s.match(re)||[])[1];

                        this.last = this.checkData0(s).replace(/^.*$/m,"").length;

                        delete args.append;

                        return false;

                }

                return true;

        }

 

var Thread_jbbs = object(Thread,{

  prepare     : function() { Jane=Jane_jbbs; URL=URL_jbbs; }

 ,REG_PATTERN : [

    { "thr" : /^[\s\S]*?<dl\s+(?:class|id)="thread[^>]*?>\s*(<dt>(?:(?!<\/dl>)[\s\S])*?\s*)<\/dl>[\s\S]*$/i

     ,"msg" : /<DT><A.*?>([0-9]+).+?(?:<A HREF="mailto:(.+?)">)?<B> ?(?:<font color.*?>)?(.*?)(?:<\/font>)? ?<\/B>(?:<\/A>|<\/FONT>)(?: 投稿日)?： ?(.*?)(?:<BR>)?<DD>(.*) ?<BR><BR>/img

     ,"rep" : "$1<>$3<>$2<>$4<>$5<>"

    }

   ,{ "thr" : /^[\s\S]*?<dl[^>]*?>(?:(?!<dt>)[\s\S])*(<dt>(?:(?!<\/dl>)[\s\S])*)<\/dl>[\s\S]*$/i

     ,"msg" : /<DT><A.*?>([0-9]+).+?(?:<A HREF="mailto:(.+?)">)?<B> ?(?:<font color.*?>)?(.*?)(?:<\/font>)? ?<\/B>(?:<\/A>|<\/FONT>)(?: 投稿日)?： ?(.*?)(?:<BR>)?<DD>(.*) ?<BR><BR>/img

     ,"rep" : "$1<>$3<>$2<>$4<>$5<>"

    }

  ]

 ,urlReplace  : function(u) {

                                        //したらばの事前URL変換：旧site名、/storage/ URLを現在のURLに置換

                                        return  u.replace(URL.RE_HOST,"http://jbbs.shitaraba.net/")

                                                         .replace( /\/\w+\.cgi\//, "/read.cgi/")

                                                         .replace(/^(http:\/\/[^\/]+\/)([^\/]+\/)([^\/]+\/)storage\/(\d+).*$/,"$1bbs/read.cgi/$2$3$4/");

                                }

 ,mainReplace :

        function() {

                this.msg = this.msg.replace(/^(\d+<>.*?<>.*?<>.*?)(<>.*<>)((?:(?!<>).)*)$/mg, function($0,$1,$2,$3) {return ($3)?$1+" ID:"+$3+$2:$0;});

        }

 ,createBrdFolder :

        function() {

                var s = readHTTP( URL.url.replace( /\/\w+\.cgi(\/\w+\/\w+\/).*$/, "/api/setting.cgi$1") );

                var bbs_title = (s.match(/^BBS_TITLE=(.*)$/m)||[])[1];

                var category = (s.match(/^CATEGORY=(.*)$/m)||[])[1];

                bbs_title || category || Err("E_brditem_not_found");

                brd = [ "【したらば】" + category.convDontUseStr() , bbs_title.convDontUseStr() , ""].join("\\");

                path(Jane.LogBasePath + JANE_LOGS + brd + URL.thrID + ".dat");

                return brd;

        }

 ,checkData   :

        function(s) {

                if (this.last-this.first+1 != s.replace(/^.*$/mg,"").length) {

                        this.requireFillAbn = true;

                }

                // 末尾のIDを削除

                this.msg = s.replace(/^(.*?)<>((?!<>).)*$/mg, "$1");

        }

 ,getTitle    : function(s) {

                                        this.title = (s.match(/<>((?:(?!<>).)*)<>(?:(?!<>).)*$/m)||[])[1];

                                        if(!this.title) this.title=DatInfo.title;

                                }

 ,addTitle    : function() {}

 ,readHTTP  :

        function(url) {

                //-- 1st try : rawmode read ----

                var raw_url = url.replace(/\/\w+\.cgi\//, "/rawmode.cgi/");

                trace("try URL="+raw_url,9);

                var s = readHTTP( raw_url, true);

                switch( errmsg = (s[1].match(/^ERROR: *(?! )(.*?)$/m)||[])[1]||"" ) {

                        case "BBS NOT FOUND": Err("E_bbs_not_found");

                        case "KEY NOT FOUND": Err("E_key_not_found");

                        case "THREAD NOT FOUND": Err("E_thread_not_found");

                        case "STORAGE IN":

                                this.getTitle = this.getTitle2;

                                this.delDupData = this.delDupData2

                                this.checkData = this.checkData2;

                                Thread.readHTTP.call(this, URL.prm[0]);

                                delete this.mainReplace;

                                delete this.addTitle;

                                break;

                        case "": //正常取得

                                s = s[0];

                                this.getTitle(s);

                                IDX_STATE["jbbs"] = 0;

                                this.msg = s;

                                break;

                        default: Err("E_http_recieve", "(rawmode) : " + errmsg);

                }

                return true;

        }

 ,getTitle2   :

        function(s) { this.title = (s.match(/<h1 class="thread-title">(.*?)<\/h1>/i)||[])[1]

                                  || (s.match(/<title>(.*?)<\/title>/i)||[])[1] || "";

                                }

 ,delDupData2 : //append時、既存のレス数分データを読み飛ばす

        function() { while( (this.msg.match(/^(\d+)/i)||[])[1] < DatInfo.cnt+1)

                                        { this.msg = this.msg.replace(/^.*\n/m,""); }

                           }

 ,checkData2   :

        function(s) { var ln = this.checkData0(s);

                                  if (this.last-this.first+1 != ln.length) { this.requireFillAbn = true; }

                                }

 

var Thread_machi = object(Thread,{

  prepare     : function() { Jane=Jane_machi; URL=URL_machi; }

 ,noChkTitle  : true

 ,REG_PATTERN : [

    { "thr" : /^(?:(?!<>).)*<>(?:(?!<>).)*<>(?:(?!<>).)*<>(?:(?!<>).)*<>(?:(?!<>).)*<>((?:(?!<>).)*)<>((?:(?!<>).)*).*\s*$/m

     ,"msg" : /^((?:(?!<>).)*<>(?:(?!<>).)*<>(?:(?!<>).)*<>(?:(?!<>).)*)(<>(?:(?!<>).)*<>(?:(?!<>).)*)<>((?:(?!<>).)*)(?:<>)?(.*\s*)$/mg

     ,"rep" : "$1 [ $3 ]$2$4"

    }

  ]

 ,urlReplace  : function(u) { u=u.replace(/\/test\/(?=read)/,"/bbs/").replace(/\/read\.cgi\//,"/offlaw.cgi/2/"); trace("replace url="+u,9); return u; }

 ,getTitle    : function(s) { this.title = (s.match(this.REG_PATTERN[this.re_sel].thr)||[])[1] || DatInfo.title; }

 ,checkData   : function(s) {

                                        if(!/^\d+<>.*?<>.+?<>.*?<>.*$/m.test(s)) Err("E_remained_garbage");

                                        if (this.last-this.first+1 != s.replace(/^.*$/mg,"").length) { this.requireFillAbn = true; }

                                }

 ,delDupData  : function() {}

 ,addTitle    : function() {}

 ,getTBlock   : function() {}

 

function loadFile(f) {

        var s;

        try {

                strm.Type = 2;

                strm.Charset = 'shift_jis';

                strm.Open();

                strm.loadFromFile(f);

                s = strm.ReadText(-1);

                strm.Close();

        } catch(e) { strm.Close(); Err("E_loadfile", "\n"+e.message+"\ncurrent="+shell.CurrentDirectory+"\nfile="+f); }

        return s;

function loadFile2(f) {

        var s;

        try {

                var file = fso.OpenTextFile( f, 1, false, 0);

                s = file.ReadAll();

                file.close();

        } catch(e) {

                if(file) file.close();

                s = loadFile(f);

        }

        return s;

 

function saveFile(f,s) {

        strm.Type = 2;

        strm.Charset = 'shift_jis';

        strm.Open();

        if (args.append) { try {strm.loadFromFile(f); strm.Position = strm.Size;} catch(e){} }

        strm.WriteText(s);

        try { strm.Savetofile(f, 2); }

        catch(e) { strm.Close(); Err("E_savefile", "\n"+e.message+"\ncurrent="+shell.CurrentDirectory+"\nfile="+f); }

        strm.Close();

function saveFile2(f,s) {

        try{

                var file = fso.OpenTextFile( f, (args.append)?8:2 , true, 0);

                file.Write(s);

                file.Close();

        } catch(e) {

                if(file) file.Close();

                saveFile(f,s);

        }

 

function readHTTP(u, withHeaders) {

        var s="", r="";

        http.open("GET", u, true);

        for(var i in HTTP_HEADERS) { http.setRequestHeader(i, HTTP_HEADERS[i]); }

        http.send();

        for (var t0=new Date(); http.readyState<4; ) {

                if (new Date() - t0 > HTTP_TIMEOUT) { http.abort(); Err("E_http_timeout"); }

                WScript.Sleep(50);

        }

        if (http.status != 200 && !http.status==0) Err("E_http_recieve", " status="+http.status);

        var header = http.getResponseHeader("Content-Type");

        if (withHeaders) r = http.getAllResponseHeaders();

        try {s = http.responseText;} catch(e) {s="";}

        if (!/charset=/i.test(header)) {

                if(http.responseBody !== void 0) {

                        if(basp) {

                                trace("HTTP文字コード変換開始 using basp21",9);

                                s = basp.Kconv(http.responseBody,4);

                        } else {

                                trace("HTTP文字コード変換開始",9);

                                var cs = (s.match(/<meta[^>]*charset=([^>;"'\s]+)/i)||[])[1] || '_autodetect';

                                strm.Type = 1;

                                strm.Open();

                                strm.Write(http.responseBody);

                                strm.Position = 0;

                                strm.Type = 2;

                                strm.Charset = cs;

                                s = strm.ReadText(-1);

                                strm.Close();

                        }

                }

        }

        http.abort();

        if(!s) s="";

        return withHeaders ? [s,r] : s;

 

function saveDat(dat,s) {

        if (args.append) {

                if(s=="") Err("E_already_there");

        } else {

                if(s.match(/\n/g)==null) Err("E_no_data");

                if(!args.overwrite && DatInfo.cnt>=s.match(/\n/g).length) {

                        if (MsgBox("既存のスレデータの方が同じか又は大きいですが、置換を続行しますか？",4+32+256,MY_NAME) != 6){

                                Err("E_stop");

                        }

                }

        }

        if(args.bak) DatInfo.copyDat();

        trace(); saveFile2(path(dat), s); trace("save file:"+dat);

 

function invokeJaneStyle(url) {

        shell.Exec(JANE_EXE + " " + url);

        if(args.sendkey && args.sendkey > 0) {

                WScript.Sleep(args.sendkey);

                shell.SendKeys('^(w)');

                WScript.Sleep(200);

                shell.Exec(JANE_EXE + " " + url);

        }

        if(args.redraw) {

                WScript.Sleep(args.redraw);

                shell.SendKeys('%');

                WScript.Sleep(20);

                shell.SendKeys('T');

                WScript.Sleep(10);

                shell.SendKeys('G');

                WScript.Sleep(10);

                shell.SendKeys('0');

        }

 

function terminateJaneExe() {

        var wmi; try { wmi = new WMI(); } catch(e) { wmi=null; }

        shell.Exec(JANE_EXE);

        WScript.Sleep(200);

        shell.SendKeys("%({F4})");

        if(!wmi) { WScript.Sleep(4000);}

        else {

                do {

                        var cnt=40;

                        while(cnt && wmi.isAliveProcess(JANE_EXE, JANE_PATH+JANE_EXE)) { WScript.Sleep(100); cnt--;}

                        if(!cnt) { WScript.Echo(JANE_EXE+"を終了させてください"); }

                } while(!cnt);

        }

 

function saveIdx(boardUrl) {

        var i,s,r;

        var use_db = parseInt(Jane.getINI([,"OPTIONS","QuickMerge",""]),10);

        if(chkJaneProg().indexOf('Xeno')>=0) { use_db = parseInt(Jane.getINI([,"OJVIEW","QuickMerge",""]),10); }

        var basedir = shell.CurrentDirectory;

        var dir = fso.GetParentFolderName(fso.GetFile(DatInfo.dat).Path);

        var datName = DatInfo.dat.replace(/^.*\\([^\\]+)\.dat$/,"$1");

       

        var maxRes = getBrdCustomizeIni(boardUrl) || 1000;

        var state = (DatInfo.lines>=maxRes) ? 0 : IDX_STATE[ (URL===URL_jbbs) ? "jbbs" : "2ch" ];

        if (URL.kako) state = 10;

       

        var last_got = Number(new Date(fso.GetFile(DatInfo.dat).DateLastModified)/1000+9*60*60);

        var idx = [ datName,DatInfo.title,'',DatInfo.lines,'0','',boardUrl,state,DatInfo.lines,'','','0',last_got,'0','0' ];

        var idxText = [];

        for(i=0; i<idx.length; i++) { idxText[i] = "'" + idx[i] + "'"; }

        var SQL_CMD_1 = "CREATE TABLE IF NOT EXISTS tableversion (tablename PRIMARY KEY, version);"

                                        + 'INSERT OR IGNORE INTO "tableversion" VALUES(' + "'board_db','00000001');"

                                        + 'INSERT OR IGNORE INTO "tableversion" VALUES(' + "'idxlist','00000002');"

                                        + "CREATE TABLE IF NOT EXISTS idxlist ("

                                        + "datname TEXT PRIMARY KEY, title TEXT, last_modified TEXT, lines TEXT, view_pos TEXT, idx_mark TEXT,"

                                        + " uri TEXT, state TEXT,new_lines TEXT, write_name TEXT, write_mail TEXT,"

                                        + " last_wrote TEXT, last_got TEXT, read_pos TEXT, record_be TEXT,"

                                        + " etc1 TEXT, etc2 TEXT);";

        var SQL_CMD_2 = 'INSERT OR IGNORE INTO idxlist VALUES(' + idxText.join(",") + ",NULL,NULL);";

        var SQL_CMD_3 = "update idxlist set new_lines=new_lines+$2-lines where datname='$1';".expand([,datName,DatInfo.lines]);

        var SQL_CMD_4 = "update idxlist set lines=" + idxText[3] + ",uri=" + idxText[6] + ",title=" + idxText[1]

                                         + ",state=" + idxText[7] + ",last_got=" + idxText[12] + " where datname=" + idxText[0] + ";";

 

        if (use_db && args.restart) {

                var sql = new Sql();

                if(chkJaneProg().substr(0,4)=='Xeno' && !sql.isSqlite_ODBC) Err("E_require_sqlODBC");

                sql.isSqlite_ODBC || sql.isSqlite_exe || Err("E_require_sqlite");

        }

        if(args.restart) terminateJaneExe();

       

        if (use_db && args.restart) {

        switch(chkJaneProg()) {

                case 'Style' :

                case 'Style?':

                        shell.CurrentDirectory = dir;

                        r=sql.exec("BoardDB.db",SQL_CMD_1+SQL_CMD_2+SQL_CMD_3+SQL_CMD_4);

                        break;

                case 'Xeno':

                case 'Xeno?':

                        var qmerge3 = Jane.LogBasePath+JANE_LOGS+"qmerge3.db";

                        if(!fso.FileExists(qmerge3)) break;

                        idx.splice(14,1,last_got);

                        idxText = [];

                        for(i=0; i<idx.length; i++) { idxText[i] = "'" + idx[i] + "'"; }

                        var brd=DatInfo.brd.slice(0,-1);

                        var SQL_CMD_XENO1 = "select board_id,max(board_id) from board where board_name='"+brd+"';";

                        var SQL_CMD_XENO2 = 'insert into board VALUES((select max(board_id)+1 from board),'+"'"+brd+"'"+');';

                        var SQL_CMD_XENO3 = "select board_id from thread where board_id=$1 and datname='"+datName+"';";

                        var SQL_CMD_XENO4 = "insert into thread values($1,"+idxText.join(",")+");";

                        var SQL_CMD_XENO5 = "update thread set new_lines=new_lines+$2-lines where datname='$1';".expand([,datName,DatInfo.lines]);

                        var SQL_CMD_XENO6 = "update thread set lines=" + idxText[3] + ",uri=" + idxText[6] + ",title=" + idxText[1]

                                                                + ",state=" + idxText[7] + ",last_got=" + idxText[12] + " where datname=" + idxText[0] + ";";

                        var board_id = sql.select(qmerge3,SQL_CMD_XENO1);

                        board_id = (board_id[0].match(/^(\d+)/)||[])[1];

                        if (!board_id) { sql.exec(qmerge3, SQL_CMD_XENO2); board_id=((sql.select(qmerge3,SQL_CMD_XENO1))[0].match(/^(\d+)/)||[])[1]; }

                        if(!((sql.select(qmerge3,SQL_CMD_XENO3.expand([,board_id])))[0].match(/^\d+/))) {

                                sql.exec(qmerge3, SQL_CMD_XENO4.expand([,board_id]));

                        } else {

                                sql.exec(qmerge3, SQL_CMD_XENO5);

                                sql.exec(qmerge3, SQL_CMD_XENO6);

                        }

                        default: break;

                }

                sql.finalize();

        }

       

        // idxファイルの更新

        shell.CurrentDirectory = dir;

        var isExistIdx = false;

        if(fso.FileExists(datName+".idx")) {

                s = loadFile(datName+".idx").replace(/\r/g,"").split("\n");

                if(s.length>=12) {

                        isExistIdx = true;

                        s[7]  = "" + (parseInt(s[7],10) + DatInfo.lines - parseInt(s[2],10));

                        s[2]  = "" + idx[3];

                        s[5]  = idx[6];

                        s[6]  = "" + idx[7];

                        s[11] = "" + last_got;

                        s[0]  = idx[1];

                }

        }

        if(!isExistIdx) {

                s = idx;

                s.splice(0,1);

                s.push("");

        }

        s = s.join("\r\n");

        try { saveFile(datName+".idx", s); } catch(e) {}

       

        // subject.txtの更新

        if(fso.FileExists("subject.txt")) {

                var re = new RegExp("^"+datName+"\\..*\\((\\d+)\\)(\\s*)$", "m");

                s = loadFile("subject.txt");

                r = s.match(re);

                if(r) {

                        s = s.replace(re, r[0].replace(/\((\d+)\)(\s*)$/,"("+DatInfo.lines+")$2"));

                        try { saveFile("subject.txt",s); } catch(e) {}

                }

        }

        shell.CurrentDirectory = basedir;

 

function Sql(){

        var DRIVER = "DRIVER=SQLite3 ODBC Driver;";

        var db = new ActiveXObject("ADODB.Connection");

        this.isSqlite_exe  = fso.FileExists(SCRIPT_PATH + "sqlite3.exe");

        this.isSqlite_ODBC = (function(){var s=true; try {db.Open(DRIVER);db.Close();} catch(e){s=false;}; return s;})();

        this.finalize = function() { db = null; }

        var funcTables  = [ "exec", "select" ];

        var types = (this.isSqlite_ODBC) ? "ODBC" : "exe";

        for(var i=0; i<funcTables.length; i++) { eval( "this."+ funcTables[i] + "=" + funcTables[i] + "_" + types + ";"); }

        function exec_ODBC(dbFile,sql) {

                try {

                        var s="";

                        db.Open(DRIVER+"Database="+dbFile);

                        db.Execute(sql);

                } catch(e) { s = e.message; }

                try { db.Close(); } catch(e) { s += " | Connection Close:"+e.message; }

                return [,s];

        }

        function select_ODBC(dbFile,sql) {

                var r="",s="";

                var rs = new ActiveXObject("ADODB.Recordset");

                try {

                        db.Open(DRIVER+"Database="+dbFile);