Macro/投稿/65

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F65


Top > Macro > 投稿 > 65

テキストブラウザ化(Html Source View)

  • ページ: Macro/投稿
  • 作者: ぷる?
  • カテゴリー: js
  • 投稿日: 2005-08-26 (金) 21:52:59

メッセージ

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
var selection = Editor.GetSelectedString(0);
if(selection.length == 0)
{
    selection = "http://www.yahoo.co.jp/";
}
else
{
    if(!selection.match(/:\/\/.*/))
    {
        Editor.GoFileTop();
        Editor.Down();
        Editor.GoLineEnd_Sel(0);
        selection = selection.replace(/^\//, "");
        selection = Editor.GetSelectedString(0) + selection;
    }
}
 
Editor.SelectAll();
Editor.InsText(selection + " を読み込み中...");
Editor.GoFileTop();
Editor.ReDraw();
 
var http = new ActiveXObject("Microsoft.XMLHTTP");
 
if(http != null)
{
    var uri = selection;
    http.open("GET", uri, false);
    http.send(null);
 
    var html = http.responseText;
    var result = "";
    result += "------------------------------------------------------------\r\n";
    result += selection + "\r\n";
    result += "------------------------------------------------------------\r\n";
    result += html;
 
    Editor.SelectAll();
    Editor.InsText(result);
    Editor.GoFileTop();
    Editor.ReDraw();
}


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2006-07-30 (日) 00:40:30 (4464d)