您现在的位置： 
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
";
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
";
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）
