過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      37
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼選択範囲をHTMLに出力  SpK 02/10/27(日) 15:04
　　　┗Re:選択範囲をHTMLに出力  sim 02/10/27(日) 16:54
　　　　　　┗Re:選択範囲をHTMLに出力  SpK 02/10/27(日) 19:50

　───────────────────────────────────────
　■題名 ： 選択範囲をHTMLに出力
　■名前 ： SpK
　■日付 ： 02/10/27(日) 15:04
　-------------------------------------------------------------------------
   
えと、よろしければでいいです。



題名のとおり、選択した範囲をHTML Documentに保存

するようなソース、ありませんかね・・？



↑にも書きましたがよろしければでいいですので。


				  

　───────────────────────────────────────
　■題名 ： Re:選択範囲をHTMLに出力
　■名前 ： sim
　■日付 ： 02/10/27(日) 16:54
　-------------------------------------------------------------------------
   
/*

選択範囲のhtmlを、デスクトップに

selectedHtml.txtというファイル名で保存します。

*/



//選択範囲のHTMLをファイルに保存

//by sim　　　　2002-10-27



var bugweb = new ActiveXObject("BugWeb.BugBrowserAPI");

var docview;　　　　//ドキュメントビューオブジェクト



if (bugweb == null ){

　　　　WScript.Echo("BugBrowserオブジェクトが取得できません。");

　　　　WScript.Quit();

}



//ドキュメントビューオブジェクト取得

docview = bugweb.CreateDocumentViewObject(bugweb.ActiveView);

if ((docview == null) || (docview.Busy == true)) {

　　　　docview = null;

　　　　bugweb.ShowMessage("ドキュメントビューオブジェクトエラーです。");

　　　　bugweb = null;

　　　　WScript.Quit();

}



var doc = docview.document;

try {

　　　　while (doc.activeElement.tagName.match(/frame/i) != null) {

　　　　　　　　　　　　doc = doc.activeElement.contentWindow.document;

　　　　}

}

catch(e) {

　　　　bugweb.ShowMessage("アクティブなフレームの取得エラーです。\n" + e.description);

　　　　doc = docview.document;

}

//選択範囲がテキストでなければそのまま終了

if ((doc.selection == null) || (doc.selection.type != "Text")) {

　　　　docview = null;

　　　　bugweb = null;

　　　　WScript.Quit();

}



//選択範囲のhtml文字列

var selHtml = doc.selection.createRange().htmlText;;

docview = null;



//ファイルに保存

var fso = new ActiveXObject("Scripting.FileSystemObject");

var desktopFolder = fso.GetFolder((new ActiveXObject("WScript.Shell")).SpecialFolders("Desktop"));

var resultFile = fso.CreateTextFile(desktopFolder.Path + "\\selectedHtml.txt", true);

//書き込み

resultFile.Write(selHtml);

resultFile.Close();



resultHtml = null;

desktopFolder = null;

fso = null;



bugweb = null;


				  

　───────────────────────────────────────
　■題名 ： Re:選択範囲をHTMLに出力
　■名前 ： SpK
　■日付 ： 02/10/27(日) 19:50
　-------------------------------------------------------------------------
   
おお！凄いですね・・・。



どうもありがとうございましたm(_ _)m


				  
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      37