- サクラエディタふぁんくらぶ part14
872 ：名無しさん＠お腹いっぱい。[sage]：2011/12/03(土) 18:29:50.32 ID:h5Rei4xW0 - >>867
自分もやっつけで書いてみた
------ここから-------- URLの色付けon-off.UWS
CTRLWIN(GETID("","TextEditorWindowW108"),ACTIVATE)
KBD(VK_CTRL,DOWN,40) ; KBD(VK_5,DOWN,31) ; KBD(VK_5,UP,10) ; KBD(VK_CTRL,UP,40)
id = GETID("タイプ別設定","#32770")
CLKITEM(id,"カラー",CLK_TAB)
for i=1 to 23
KBD(VK_DOWN,CLICK,1)
next
KBD(VK_TAB,CLICK,40)
KBD(VK_SPACE,CLICK,40)
CLKITEM(id,"OK",CLK_BTN)
------ここまで--------
------ここから-------- URLの色付けon-off.js
var uwscPath = "C:\\Program Files\\UWSC\\UWSC.exe";
var scriptPath = Editor.ExpandParameter("$M").replace(/\.\w+$/, ".UWS");
(new ActiveXObject("WScript.Shell")).Run('"' + uwscPath + '" "' + scriptPath + '"', 0, false);
------ここまで--------
UWSCのPATH部分は使用環境に合わせて書き換えて
jsとUWSは、同じファイル名で、同じフォルダに置く
| - FenrirFS Part2
335 ：名無しさん＠お腹いっぱい。[sage]：2011/12/03(土) 18:55:58.80 ID:h5Rei4xW0 - エロ動画の管理に使いたいから
動画もプレビューできるようにしてくれ
| - サクラエディタふぁんくらぶ part14
874 ：名無しさん＠お腹いっぱい。[sage]：2011/12/03(土) 20:11:39.39 ID:h5Rei4xW0 - 書き換えてもいい用途ならば、これで
Editor.MoveHistSet();
Editor.SelectAll();
var txt = Editor.GetSelectedString(0);
if (txt.indexOf("ttp://") >= 0) {
Editor.InsText(txt.replace(/ttp:\/\//g, "ttp：//"));
}
else {
Editor.InsText(txt.replace(/ttp：\/\//g, "ttp://"));
}
Editor.MoveHistPrev();
|
|