Javascript執行個體教程(19) 使用HoTMetal(5)

來源:互聯網
上載者:User
javascript|教程

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)



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。