url = document.rep.url.value; if (url.match(/http:\/\/(.+?)\/test\/read\.(cgi|php|pl)\/(.+?)\/(\d+)/)) { //(*ﾟーﾟ) PATH_INFO形式 var server = RegExp.$1;//サーバ名（サブディレクトリ有りのものも含む） var board = RegExp.$3;//ボードキー var key = RegExp.$4;//スレッドキー } else if (url.match(/http:\/\/(.+?)\/test\/read\.(cgi|php|pl)\?bbs=(.+?)&key=(\d+)/)) { //(*ﾟーﾟ) QUERY_LINK形式 var server = RegExp.$1; var board = RegExp.$3; var key = RegExp.$4; } else if (url.match(/http:\/\/(.+?)\/(.+?)\/dat\/(\d+)\.dat/)) { //(*ﾟーﾟ) datディレクトリ var server = RegExp.$1; var board = RegExp.$2; var key = RegExp.$3; } else if (url.match(/http:\/\/(.+?)\/(.+?)\/dat(\d*?)\/(\d+)\.dat/)) { //(*ﾟーﾟ) dat2～ディレクトリ //(*ﾟーﾟ) cf. http://www.geocities.jp/mewlist/hiddendir.html var server = RegExp.$1; var board = RegExp.$2; var datdir = RegExp.$3; var key = RegExp.$4; server = server + "\/dat" + datdir } else if (url.match(/http:\/\/(.+?)\/(.+?)\/log(.*?)\/(\d+)\.dat/)) { //(*ﾟーﾟ) logディレクトリ //(*ﾟーﾟ) cf. http://www.geocities.jp/mewlist/hiddendir.html var server = RegExp.$1; var board = RegExp.$2; var logdir = RegExp.$3; var key = RegExp.$4; server = server + "\/log" + logdir } else { alert ("（； ・∀・） URLの解析に失敗したからな！"); return(false); }
－－－－－ Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fs Dim f Dim file_name
Set Ie = WScript.CreateObject("InternetExplorer.Application") Ie.Navigate "about:blank" Set oClip=Ie.Document.parentWindow.clipboardData sData=oClip.getData("text") If IsNull(sData) Then sData="" file_name = InputBox("datファイルのキーNo.を入力してください") Set fs = CreateObject("Scripting.FileSystemObject") set f = fs.CreateTextFile(file_name+".dat", True)