URL自動まるめリンク スクリプト

Nucleusではコメント欄に規定の文字数を超えたURLが書かれた場合、自動的にその文字数に収まるように表記をまるめたうえでリンクを張る機能があります。
Sleipnirでも似たようなことが出来たら楽できるかな、と思ってスクリプトを作ってみました。

必要に応じて設定の部分などを書き換えてください。

// 設定 ----------------------------------------------------
// 新しいウィンドウで開く場合は"_blank"、そうでない場合は""
var target = " target=\"_blank\"";
// まるめる文字数
var urllen = 60;
// ---------------------------------------------------------
var id,obj,document,window,str,url1,url2;
obj = new ActiveXObject("Sleipnir.API");
id = obj.GetDocumentID(obj.ActiveIndex);
document = obj.GetDocumentObject(id);
window = obj.GetWindowObject(id);
if (document == null)
{
obj.MessageBox("documentオブジェクトを作成できません");
}
else
{
url1 = obj.URL;
url2 = obj.URL;
if ( url1.length > urllen ){
url2 = url1.substring(0 , urllen - 3) ;
url2 += '...';
}
str = "<a href=\"" + url1    + "\"" + target + ">" + url2    + "<\/a>";
window.clipboardData.setData("text", str);
document = null;
}
obj = null;

このコードだとバックスラッシュは￥マークに置き換える必要がありますので、面倒でしたらダウンロードして使ってみてください。