HoTMetal中使用javascript
5.怎樣編寫腳本來檢查上次修改的日期
在本節教程中你將可以學到怎樣編寫一個宏來檢查是否有任何的程序已經利用HoTMetaL中修改過一個文件。這個宏包括了以下幾個檢查的更新特性：On_Document_Open_Complete、On_Document_Activate和 On_Application_Activate。在前面的教程中，這些宏的名字已經被預定義了，所以這裡不能對它們進行修改。這些名字指定了事件來觸發宏。這個event-macro關聯是隱含的，所以不能通過任何手段來對它進行改寫。當我們打開一個文檔的時候，比如On_Document_Open_Complete，它總是在完成文件打開的時候被調用的。以下是具體的定義： <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>
我們首先提取當前文件夾的文件名：name = ActiveDocument.LocalFullName，然後檢查可讀的文件是否存在；接著我們運行宏On_Document_Save，這個宏On_Document_Save示范了微軟的FileSystemObject作為ActiveX控件的使用方法，這是一個在JavaScript中。這個宏的主要思想是更新文檔的LastMod屬性以反應磁盤上文檔的當前事件：
<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>
這個宏從FileSystemObject創建了一個ActiveX控件，它包括了微軟的腳本庫： var fso = new ActiveXObject("Scripting.FileSystemObject");
我們可以通過以下的語句來從磁盤得到文件的屬性：f = fso.GetFile(name)，然後提取出文件最後一次修改的事件：mod = Date.parse(f.DateLastModified)。我們通過調用ActiveDocument的CustomDocumentProperties 屬性來創建了一個用戶定義的屬性集：props。然後我們利用mod屬性來對這個集進行初始化，這時它的數值為"LastMode"。
HoTMetal中使用Javascript
5.怎樣編寫腳本來檢查上次修改的日期
這個On_Document_Activate宏是檢查磁盤上的文件是否有與利用HoTMetaL編輯的當前文檔相同的上次修改的日期。它提示用戶該做什麼以防日期不匹配。以下是這個宏的具體代碼：
<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>
我們再檢查文件是否裝載了： ActiveDocument.FullName == ActiveDocument.LocalFullName。然後我們驗證一下文件是否被保存到磁盤中： Application.ReadableFileExists(name). 類似於前面的On_Document_Open_Complete 宏，我們創建一個ActiveX控件並且提取出文件的上次修改的日期，代碼如下：
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.GetFile(name);
var newMod = Date.parse(f.DateLastModified);
HoTMetal中使用Javascript
5.怎樣編寫腳本來檢查上次修改的日期
接著，我們調用當前文檔的定制屬性集：props = ActiveDocument.CustomDocumentProperties 並且檢查這個屬性的數字是否不等於零。我們已經在前面的On_Document_Open_Complete 宏中已經保存了，並將它賦值給oldMod：
oldMod = props.Item("LastMod").value
當我們發現oldMod (來自打開的文檔) and 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();
}
最後，我們通過模仿打開的操作來重置當前文檔的日期：
Application.Run("On_Document_Open_Complete");
我們想擴展這個更新特性的檢查並觸發它，而不管在這個文檔是當前的還是當這個應用程序是當前的。這時我們可以定義On_Application_Activate宏，這個宏只是調用上面的宏：
<MACRO name="On_Application_Activate" lang="JScript"><![CDATA[
Application.Run("On_Document_Activate");
]]></MACRO>
現在我們需要復制On_Document_Save功能到On_Document_SaveAs宏：
<MACRO name="On_Document_SaveAs" lang="JScript"<>![CDATA[
Application.Run("On_Document_Save");
]]></MACRO>
最後還是對它進行一下測試吧。先在HotMetaL PRO 6.0中打開一個文檔。並在你喜歡的編輯器中打開相同的文檔。並在任何地方插入一個空格符再將它保存到磁盤中。當你切換到HoTMetaL應用程序，你將可以得到如圖1的信息。
（圖1）