HoTMetal中使用javascript

5.怎樣編寫腳本來(lái)檢查上次修改的日期

在本節(jié)教程中你將可以學(xué)到怎樣編寫一個(gè)宏來(lái)檢查是否有任何的程序已經(jīng)利用HoTMetaL中修改過(guò)一個(gè)文件。這個(gè)宏包括了以下幾個(gè)檢查的更新特性：On_Document_Open_Complete、On_Document_Activate和 On_Application_Activate。在前面的教程中，這些宏的名字已經(jīng)被預(yù)定義了，所以這里不能對(duì)它們進(jìn)行修改。這些名字指定了事件來(lái)觸發(fā)宏。這個(gè)event-macro關(guān)聯(lián)是隱含的，所以不能通過(guò)任何手段來(lái)對(duì)它進(jìn)行改寫。當(dāng)我們打開一個(gè)文檔的時(shí)候，比如On_Document_Open_Complete，它總是在完成文件打開的時(shí)候被調(diào)用的。以下是具體的定義： <MACRO name="On_Document_Open_Complete" lang="JScript"><![CDATA[

var name = ActiveDocument.LocalFullName;

if (Application.ReadableFileExists(name)) { // if document has never been saved, do nothing

Application.Run("On_Document_Save");

}

]]></MACRO>

我們首先提取當(dāng)前文件夾的文件名：name = ActiveDocument.LocalFullName，然后檢查可讀的文件是否存在；接著我們運(yùn)行宏On_Document_Save，這個(gè)宏On_Document_Save示范了微軟的FileSystemObject作為ActiveX控件的使用方法，這是一個(gè)在JavaScript中。這個(gè)宏的主要思想是更新文檔的LastMod屬性以反應(yīng)磁盤上文檔的當(dāng)前事件：

<MACRO name="On_Document_Save" lang="JScript"<>![CDATA[

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

var f = fso.GetFile(ActiveDocument.LocalFullName);

var mod = Date.parse(f.DateLastModified);

var props = ActiveDocument.CustomDocumentProperties;

if (props.count != 0) {

props.Add("LastMod", mod);

}

]]></MACRO>

這個(gè)宏從FileSystemObject創(chuàng)建了一個(gè)ActiveX控件，它包括了微軟的腳本庫(kù)： var fso = new ActiveXObject("Scripting.FileSystemObject");

我們可以通過(guò)以下的語(yǔ)句來(lái)從磁盤得到文件的屬性：f = fso.GetFile(name)，然后提取出文件最后一次修改的事件：mod = Date.parse(f.DateLastModified)。我們通過(guò)調(diào)用ActiveDocument的CustomDocumentProperties 屬性來(lái)創(chuàng)建了一個(gè)用戶定義的屬性集：props。然后我們利用mod屬性來(lái)對(duì)這個(gè)集進(jìn)行初始化，這時(shí)它的數(shù)值為"LastMode"。

HoTMetal中使用Javascript

5.怎樣編寫腳本來(lái)檢查上次修改的日期

這個(gè)On_Document_Activate宏是檢查磁盤上的文件是否有與利用HoTMetaL編輯的當(dāng)前文檔相同的上次修改的日期。它提示用戶該做什么以防日期不匹配。以下是這個(gè)宏的具體代碼：

<MACRO name="On_Document_Activate" lang="JScript" id="44" tooltip="Hide_On_Document_Activate"

desc="Runs Macro: Hide_On_Document_Activate"><![CDATA[

// Do this for local documents only

if (ActiveDocument.FullName == ActiveDocument.LocalFullName) {

var name = ActiveDocument.LocalFullName;

if (Application.ReadableFileExists(name)) { // if document has never been saved, do nothing

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

var f = fso.GetFile(name);

var newMod = Date.parse(f.DateLastModified);

var props = ActiveDocument.CustomDocumentProperties;

if (props.count != 0) {

oldMod = props.Item("LastMod").value;

if (oldMod != newMod) {

var Yes = 6;

var No = 7;

var msg = "The disk version of this document has changed from the\n";

msg += "version in memory. Do you want to re-open the document?";

var ret = Application.MessageBox(msg, 36, "Document Changed");

if (ret == Yes) {

ActiveDocument.Reload();

}

// Reset the timestamp regardless of the user's response

// This will prevent the dialog from always showing

Application.Run("On_Document_Open_Complete");

}

}

}

}

]]></MACRO>

我們?cè)贆z查文件是否裝載了： ActiveDocument.FullName == ActiveDocument.LocalFullName。然后我們驗(yàn)證一下文件是否被保存到磁盤中： Application.ReadableFileExists(name). 類似于前面的On_Document_Open_Complete 宏，我們創(chuàng)建一個(gè)ActiveX控件并且提取出文件的上次修改的日期，代碼如下：

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

var f = fso.GetFile(name);

var newMod = Date.parse(f.DateLastModified);
HoTMetal中使用Javascript

5.怎樣編寫腳本來(lái)檢查上次修改的日期

接著，我們調(diào)用當(dāng)前文檔的定制屬性集：props = ActiveDocument.CustomDocumentProperties 并且檢查這個(gè)屬性的數(shù)字是否不等于零。我們已經(jīng)在前面的On_Document_Open_Complete 宏中已經(jīng)保存了，并將它賦值給oldMod：

oldMod = props.Item("LastMod").value

當(dāng)我們發(fā)現(xiàn)oldMod (來(lái)自打開的文檔) and newMod (來(lái)自磁盤)之間的矛盾的時(shí)候，我們應(yīng)該告訴用戶是否從磁盤上轉(zhuǎn)載了這個(gè)文件：

var Yes = 6;

var No = 7;

var msg = "The disk version of this document has changed from the\n";

msg += "version in memory. Do you want to re-open the document?";

var ret = Application.MessageBox(msg, 36, "Document Changed");

if (ret == Yes) {

ActiveDocument.Reload();

}

最后，我們通過(guò)模仿打開的操作來(lái)重置當(dāng)前文檔的日期：

Application.Run("On_Document_Open_Complete");

我們想擴(kuò)展這個(gè)更新特性的檢查并觸發(fā)它，而不管在這個(gè)文檔是當(dāng)前的還是當(dāng)這個(gè)應(yīng)用程序是當(dāng)前的。這時(shí)我們可以定義On_Application_Activate宏，這個(gè)宏只是調(diào)用上面的宏：

<MACRO name="On_Application_Activate" lang="JScript"><![CDATA[

Application.Run("On_Document_Activate");

]]></MACRO>

現(xiàn)在我們需要復(fù)制On_Document_Save功能到On_Document_SaveAs宏：

<MACRO name="On_Document_SaveAs" lang="JScript"<>![CDATA[

Application.Run("On_Document_Save");

]]></MACRO>

最后還是對(duì)它進(jìn)行一下測(cè)試吧。先在HotMetaL PRO 6.0中打開一個(gè)文檔。并在你喜歡的編輯器中打開相同的文檔。并在任何地方插入一個(gè)空格符再將它保存到磁盤中。當(dāng)你切換到HoTMetaL應(yīng)用程序，你將可以得到如圖1的信息。



（圖1）