Javascript實(shí)例教程(19) 使用HoTMetal(6)

更新時(shí)間：2006年12月23日 00:00:00 作者：

HoTMetal中使用javascript

6.怎樣編寫一個(gè)保存模塊腳本

在本節(jié)教程的例子中，我們創(chuàng)建了一個(gè)新的保存模塊文件對話框。HoTMetaL里面有幾個(gè)模板你可以從中進(jìn)行選擇。模板只是一個(gè)普通的網(wǎng)頁，這個(gè)網(wǎng)頁被保存HoTMetaL應(yīng)用程序目錄的Template模板中。當(dāng)你從文件菜單中選擇新項(xiàng)目的時(shí)候，其中一個(gè)標(biāo)簽選項(xiàng)是Page From Template。當(dāng)你選擇了它，就會(huì)彈出一個(gè)標(biāo)簽對話框，上面包含了各種模板： General、 WebTV、 W3C、 Frame Pages、 Layout。

你可以通過保存當(dāng)前文件到Template目錄下的一個(gè)目錄來創(chuàng)建一個(gè)新的模板。下面的宏，即Save As 模板，向你展示了怎樣使用HMExtras.FileDlg的DisplayFileDlg方法創(chuàng)建一個(gè)Save As對話框。這個(gè)對話框使用Template目錄作為缺省的位置，以下是詳細(xì)的代碼：

<MACRO name="Save As Template" lang="JScript" id="90"><![CDATA[

var obj = new ActiveXObject("HMExtras.FileDlg");

var filter = "Web Page Template (*.htm, *.html)|*.htm;*.html|All Files (*.*)|*.*||";

if (obj.DisplayFileDlg(0, "File Save As", filter, Application.Path + "\\Template")) {

ActiveDocument.SaveAs(obj.FullPathName, true); // save and put on recent file list

}

]]></MACRO>

下面解釋一下上面的代碼：首先，我們利用HMExtras庫的FileDlg COM對象來創(chuàng)建一個(gè)ActiveX 控件：

var obj = new ActiveXObject("HMExtras.FileDlg");

接著利用幾個(gè)條目來創(chuàng)建一個(gè)過濾器：

var filter = "Web Page Template (*.htm, *.html)|*.htm;*.html|All Files (*.*)|*.*||";

然后我們通過調(diào)用obj.DisplayFileDlg來顯示文件對話框，最后我們在如果對話框存在的時(shí)候保存文件。
HoTMetal中使用Javascript

6.怎樣編寫一個(gè)保存模塊腳本

讓我們增加第一個(gè)Save As 模板宏到文件菜單中。你可以點(diǎn)擊文件菜單條并選擇定制。接著選擇菜單標(biāo)簽并導(dǎo)航到你想增加新的宏的地方去。點(diǎn)擊Add Submenu（增加子菜單）按鈕并填充缺少的項(xiàng)。對話框如圖1所示。