Sleipnirのスクリプト

最後のスタイルシートのスクリプトは以前のままですが、他の二つは書き直しました。
Frameに対して大きな勘違いをしてました。
3つともplugins\scriptsに置くjsスクリプト。

選択範囲のソースをabout:blankで表示

var obj = new ActiveXObject('sleipnir.api'); var doc = obj.getdocumentobject(obj.getdocumentid(obj.activeindex)); var src; if (!doc.getElementsByTagName('frameset')[0]) { src = doc.selection.createRange().htmlText; } else { var f = doc.frames; for (var i = 0; i < f.length; i ++) { try { src = f(i).document.selection.createRange().htmlText; if (src) {break;} } catch(e) {}; } } if (src) { var n = obj.newwindow('about:blank', true); doc = obj.getdocumentobject(n); var el = doc.createElement('textarea'); el.style.width = '100%'; el.style.height = '99%'; el.value = src; el.style.overflow = 'auto'; var eb = doc.createElement('body'); eb.style.overflow = 'auto'; eb.style.margin = '0'; eb.appendChild(el); doc.appendChild(eb); } doc = null; obj = null;
修正 7月2日 22:40

• tryの場所を修正。

修正 7月5日 19:00

• plugins\scriptsのスクリプトに変更した。フレームによってはエラーになるが原因がわからん。

修正 7月16日

• ちょい修正。

選択範囲のテキストをファイル名を付けて保存

テキストを選択してこのスクリプトを実行すると、インプットボックスが出るのでそこにファイル名を記入して保存するというだけのもの。
1行目のディレクトリのパスに保存します。パスは\の変わりに'\\'で。
Ctrlを押しながら実行で保存場所を選択。選択は最初に2行目のディレクトリを表示
plugins\scriptsの方のスクリプト。WSHの方でも動作するけど、なぜかフォルダ選択ダイアログが前面に出てこない。
var dp = 'C:\\My Documents'; //デフォルトの保存場所 var sp = 'C:\\My Documents'; //（Ctrlを押しながら実行で）保存場所選択時に表示させるディレクトリ var obj = new ActiveXObject('sleipnir.api'); var ctl = obj.ctrldown; if (ctl) var cd = sp; else var cd = dp; var sfo = new ActiveXObject('scripting.filesystemobject'); var app = new ActiveXObject('shell.application'); var n = sfo.getfolder(cd).files.count; do { var fn = obj.inputbox('ファイル名を入力', 'MEMO' + (String(n).length == 1 ? '0' + n: n) + '.txt'); if (obj.result == 0) break; if (ctl) { var bff = app.browseforfolder(0, '保存場所を選択', '&h1', cd); if (bff && bff.items().item().path) { var fpath = sfo.buildpath(bff.items().item().path, fn); if (sfo.fileexists(fpath)) { if (obj.msgbox('上書きしますか？', '確認', 1) == 1) {save(fpath); break;} } else { save(fpath); break; } } else { break; } } else { var fpath = sfo.buildpath(cd, fn); if (sfo.fileexists(fpath)) { if (obj.msgbox('上書きしますか？', '確認', 1) == 1) {save(fpath); break;} } else { save(fpath); break; } } } while(true); sfo = null; app = null; obj = null; function save(p) { var doc = obj.getdocumentobject(obj.getdocumentid(obj.activeindex)); var txt; if (!doc.getElementsByTagName('frameset')[0]) { txt = doc.selection.createRange().text; } else { var f = doc.frames, s; for (var i = 0; i < f.length; i ++) { try { txt = f(i).document.selection.createRange().text; if (txt) {break}; } catch(e) {} } } if (txt) { var f = sfo.createtextfile(p, 2); f.write(txt); f.close(); } }
修正 7月2日 22:40

• tryの場所を修正。

修正 7月5日 19:00

• Ctrlを押しながら実行で2行目にあるパスを表示させて保存場所を選択するようにした。これもフレームによってはエラーになるけど原因がわからん。

修正 7月16日

• ちょい修正。

スタイルシートを変更

スタイルシートを変更するスクリプト。
Sleipnirに最初からあるっぽいけど、ちとわからんので書きました。
4行目にcssファイルが置いてあるディレクトリのパスを指定です。
これもWSHの方でも動作しますが、plugins\scriptsに置いた方が起動が速いです。
サブフォルダにあるファイルは選択できません。
var app = new ActiveXObject('shell.application'); var obj = new ActiveXObject('sleipnir.api'); var sfo = new ActiveXObject('scripting.filesystemobject'); var dir = 'C:\\My Documents'; //cssファイルが置いてあるディレクトのパス var bff = app.browseforfolder(0, 'ファイルを選択', '&h4000', dir); if (bff) { var fn = bff; var doc = obj.getdocumentobject(obj.getdocumentid(obj.activeindex)); obj.executeaction('DisableStyleSheet'); doc.createStyleSheet(sfo.buildpath(dir, fn)); doc = null; } app = null; sfo = null; obj = null;
追記
/ではだめでした、指定するパスは\を\\にして下さい。
しかも、最後に\\を付けないとファイルを読み込めませんでした。
ですので、付けなくてもいいように書き直しました。
うっかりしてました、ごめんなさい。