文件大小:
軟件介紹
在本節(jié)教程中你將可以學(xué)到怎樣編寫一個(gè)宏來檢查是否有任何的程序已經(jīng)利用HoTMetaL中修改過一個(gè)文件。這個(gè)宏包括了以下幾個(gè)檢查的更新特性:On_Document_Open_Complete、On_Document_Activate和 On_application_Activate。在前面的教程中,這些宏的名字已經(jīng)被預(yù)定義了,所以這里不能對它們進(jìn)行修改。這些名字指定了事件來觸發(fā)宏。這個(gè)event-macro關(guān)聯(lián)是隱含的,所以不能通過任何手段來對它進(jìn)行改寫。當(dāng)我們打開一個(gè)文檔的時(shí)候,比如On_Document_Open_Complete,它總是在完成文件打開的時(shí)候被調(diào)用的。以下是具體的定義: <MACRO name="On_Document_Open_Complete"><![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"<>![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控件,它包括了微軟的腳本庫: var fso = new ActiveXObject("Scripting.FileSystemObject");
我們可以通過以下的語句來從磁盤得到文件的屬性:f = fso.GetFile(name),然后提取出文件最后一次修改的事件:mod = Date.parse(f.DateLastModified)。我們通過調(diào)用ActiveDocument的CustomDocumentProperties 屬性來創(chuàng)建了一個(gè)用戶定義的屬性集:props。然后我們利用mod屬性來對這個(gè)集進(jìn)行初始化,這時(shí)它的數(shù)值為"LastMode"。
HoTMetal中使用Javascript
5.怎樣編寫腳本來檢查上次修改的日期
這個(gè)On_Document_Activate宏是檢查磁盤上的文件是否有與利用HoTMetaL編輯的當(dāng)前文檔相同的上次修改的日期。它提示用戶該做什么以防日期不匹配。以下是這個(gè)宏的具體代碼:
<MACRO name="On_Document_Activate" 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 then";
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 users response
// This will prevent the dialog from always showing
Application.Run("On_Document_Open_Complete");
}
}
}
}
]]></MACRO>
我們再檢查文件是否裝載了: 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.怎樣編寫腳本來檢查上次修改的日期
接著,我們調(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 (來自打開的文檔) and newMod (來自磁盤)之間的矛盾的時(shí)候,我們應(yīng)該告訴用戶是否從磁盤上轉(zhuǎn)載了這個(gè)文件:
var Yes = 6;
var No = 7;
var msg = "The disk version of this document has changed from then";
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();
}
最后,我們通過模仿打開的操作來重置當(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"><![CDATA[
Application.Run("On_Document_Activate");
]]></MACRO>
現(xiàn)在我們需要復(fù)制On_Document_Save功能到On_Document_SaveAs宏:
<MACRO name="On_Document_SaveAs"<>![CDATA[
Application.Run("On_Document_Save");
]]></MACRO>
最后還是對它進(jìn)行一下測試吧。先在HotMetaL PRO 6.0中打開一個(gè)文檔。并在你喜歡的編輯器中打開相同的文檔。并在任何地方插入一個(gè)空格符再將它保存到磁盤中。當(dāng)你切換到HoTMetaL應(yīng)用程序,你將可以得到如圖1的信息。
版權(quán)聲明:
1 本站所有資源(含游戲)均是軟件作者、開發(fā)商投稿,任何涉及商業(yè)盈利目的均不得使用,否則產(chǎn)生的一切后果將由您自己承擔(dān)!
2 本站將不對任何資源負(fù)法律責(zé)任,所有資源請?jiān)谙螺d后24小時(shí)內(nèi)刪除。
3 若有關(guān)在線投稿、無法下載等問題,請與本站客服人員聯(lián)系。
4 如侵犯了您的版權(quán)、商標(biāo)等,請立刻聯(lián)系我們并具體說明情況后,本站將盡快處理刪除,聯(lián)系QQ:2499894784
- 千億體育手機(jī)版本v2.0.1 安卓版
- tplink物聯(lián)電腦版(原tplink安防) v2.12.17.
- Sandboxie Plus v1.9.8 / v5.64.8 開源電腦
- 字魂100號方方先鋒體字體包免費(fèi)版
- 奧維互動地圖奧維地圖PC破解版VIP V9.0.6
- 蘭博對戰(zhàn)平臺 V1.38.6 官方最新版 / 蘭博玩
- reWASD(Xbox One手柄映射工具) V6.0.1.5190
- mtool修改器 V2023.11 官方最新版 / mtool
- 115轉(zhuǎn)存助手ui優(yōu)化版腳本 V3.9.1 綠色免費(fèi)
- iSecure Center電腦客戶端 V1.5.0 官方版
點(diǎn)擊加載更多評論>>