MeryWiki - 利用者の投稿記録 [ja]

タブが「縦書き」モードかチェックする

2019-05-02T02:29:58Z

61.24.242.249: /* 組み込み関数 CheckVertical() */

== 組み込み関数 CheckVertical() ==

/**
* 組み込み関数 CheckVertical( objDocument )
* 引数に与えられた Document オブジェクトが「縦書き」モードかチェックする
* 戻り値は真偽値 true / false
*/

<source lang="javascript">
function CheckVertical( objDocument ) {
var isViewVertical;
// Redraw = false;
var d = objDocument || document, s = d.selection;
var saved = d.Saved, readOnly = d.ReadOnly;
var sx = ScrollX, sy = ScrollY;
var act = s.GetActivePos(), anc = s.GetAnchorPos();
var ay = s.GetActivePointY( mePosView );
d.ReadOnly = false;
d.Write( "\n" ); s.CharRight();
var dy = s.GetActivePointY( mePosView );
if ( dy == ay ) { isVertical = true; Status = "縦書き"; }
else { isVertical = false; Status = "横書き"; }
d.Undo();
s.SetActivePos( act ); s.SetAnchorPos( anc );
ScrollX = sx; ScrollY = sy;
d.Saved = saved; d.ReadOnly = readOnly;
return isViewVertical;
}
</source>

== 使い方 ==
'''例.''' 「ファイルを開いた時」のイベントマクロなどで、特定の条件で「縦書き」モードにする

① CheckVertical() 関数で、タブが「縦書き」モードかチェックする
<source lang="javascript">
var d = editor.ActiveDocument;
var isVertical = CheckVertical( d );

// var arlertStr = isVertical ? "縦書き" : "横書き";
// Alert( arlertStr );
</source>

② 条件にマッチしたら「縦書き」モードにする

※''editor.ExecuteCommandByID( 2238 )'' は「縦書き」の ON／OFF トグル切り替え機能であって「ON を指定する」ものではないので、「○○という条件に一致するタブが横書き表示だったときは → 縦書きに変更する」という書き方が必要になる
<source lang="javascript">
// 1. 編集モードが「青空文庫」なら「縦書き」モードにする
// 2.「小説」フォルダ配下の TXT ファイルなら「青空文庫」×「縦書き」モードにする
// ※「! isVertical」は「isVertical == false」と同義

var cond1 = ( d.Mode == "青空文庫" && ! isVertical );
var cond2 = ( d.FullName.match( /\\小説\\.*\.txt$/ ) && ! isVertical );

if ( cond1 ) {
editor.ExecuteCommandByID( MEID_VIEW_VERTICAL = 2238 ); // 縦書き
}
else if ( cond2 ) {
d.Mode == "青空文庫"; // 編集モードを変更
editor.ExecuteCommandByID( MEID_VIEW_VERTICAL = 2238 ); // 縦書き
// (おまけ) ウインドウの右端で折り返し
editor.ExecuteCommandByID( MEID_VIEW_WRAP_BY_WINDOW = 2148 );
}
</source>

ファイルを読み直す・開きなおす

2019-05-01T09:27:44Z

61.24.242.249: /* 「読みなおす・開きなおす」ポップアップメニュー */

== 「読みなおす・開きなおす」ポップアップメニュー ==

標準ツールバーの「'''読み直し'''」アイコン（ファイルメニューの「[[ヘルプ:ファイル#読み直し|読み直し]]」コマンド）のポップアップメニューを再現します。

'''エンコード指定''' の選択肢のほかに以下の機能を追加してあります。

* Mery の '''書き換え禁止''' フラグ ON/OFF の変更
* '''読み取り専用属性''' ON/OFF の変更（ファイルを開きなおす）
* ファイルを '''閉じて開きなおす'''
*「'''編集モードの設定'''」パネルを開く
*「'''編集モード'''」を変更するサブメニュー
* ファイルの「'''プロパティ'''」を開く（2019/04/08 追加）
*「'''さいごに閉じたファイル'''」を開く（2019/04/28 追加）
* '''自動保存フォルダ'''と'''バックアップフォルダ'''を開く（2019/04/29 追加）



== 仕様上の制限 ==

* Mery ver 2.6.15 まででは、「読みなおし」や「書き換え禁止にする」を実行すると、ブックマークが消えてしまいます（Mery 本体側の仕様なので、ファイルメニューや編集メニューの標準コマンドでも同様にブックマークが消えます）。

* ファイルを「開きなおす」場合は、タブの並び順のさいごの位置に開きます。<br> また、開きなおしたファイルは、拡張子ごとの既定の「編集モード」になります。

*「無題」ドキュメントでは読み直しやエンコード指定ができないので、「編集モードサブメニュー」to
「さいごに閉じたファイル」だけを表示します。

*「編集モードサブメニュー」は、「編集モードの設定」で'''カスタマイズした並び順にはなりません'''<br>（※マクロから「編集モードの設定」にあるアイテムを取得する方法がないので、追加／削除されたものに対応するには、マクロのソースコードの書き換えが必要です。 → ZIP のソースコードで 180行目～ 220行目付近）。

* アクセラレータの重複でトグル移動してしまうときは、Enter キーで確定するか、ソースコード内でアクセラレータ（ '''&''' 記号の位置や '''(&X)''' のアルファベット部分）を変更してください。

* document → editor.ActiveDocument にしたので、ツールバーやメニューから実行する場合は、アウトプットバーにフォーカスがあるときでも動作するはず（ショートカットキーでの実行は無理かも）。

* エディタの設定で '''タブが無効''' または '''タブの「閉じるボタン」を表示していない''' 場合は、閉じたときに Mery （のウインドウ）が終了してしまい、開きなおしができません。

*「'''さいごに閉じたファイル'''」メニューを表示できるのは、Mery 本体のオプション設定 >> 履歴 >> 「'''カーソル位置とブックマークを保存する'''」が有効で、本マクロの設定項目「読みなおしサブメニュー」が有効の場合のみです。

* 「自動保存／バックアップフォルダ」の設定を Mery.ini から読みとるため、Mery の「オプション」設定の「自動保存」でフォルダパスが指定されていてフォルダの実在確認ができるなら、「自動保存／バックアップ」の有効／無効によらずポップアップメニュー内にコマンドを表示します。

== ダウンロード ==
「[[ファイル:ファイルを読み直す・開きなおす.zip]]」（アイコン入り）
　2019/03/29: 初版
　2019/04/06: 「編集モードサブメニュー」を追加。
　2019/04/07: Quit() メソッドを削除。
　2019/04/08: 「プロパティ」を追加。動作コードの記述を簡略化。
　2019/04/28: 「さいごに閉じたファイル」を追加。ソースコードが約100行 UP…。
　2019/04/29: 「自動保存フォルダ／バックアップフォルダを開く」を追加。
　2019/04/30: エラーの修正。

== ソースコード ==
<source lang="javascript" style="height:120em; overflow:auto;">
#title = "ファイルを読み直す・開きなおす..."
#tooltip = "エンコード指定／読み取り専用属性／編集モードの変更"
// #icon = "reload.ico"
// #icon = "Mery用マテリアルデザインっぽいアイコン.icl",262

var start = new Date(); // 所要時間計測（開始）
/**
* ---------------------------------------------------------
* ファイルを読み直す・開きなおす
* sukemaru (2019/03/29 - 2019/04/30)
* ---------------------------------------------------------
*/

// ---------- ▼ 設定項目 ▼ ---------- //

// ■「読みなおしサブメニュー」を表示する
var reloadMenuEnable = true;

// ■「さいごに閉じたファイル」の件数
var numLatestClosed = 5;

// ■「編集モードサブメニュー」を表示する
var viewModeMenuEnable = true;

// ■諸外国語用（UTF-** とシフトJIS 以外）の文字コードを表示する
var variousLanguageEnable = true;

// ---------- ▲ 設定項目 ▲ ---------- //

var d = editor.ActiveDocument;
var path = d.FullName;

if ( ! path && ! viewModeMenuEnable ) {
Status = "　「無題」ドキュメントは読み直しできません。";
}
else {
var WshShell = new ActiveXObject( "WScript.Shell" );
var Fso = new ActiveXObject( "Scripting.FileSystemObject" );

// メニューに付けるチェックマークとグレーアウト設定
if ( path ) {
var f = Fso.GetFile( path );

// 読み取り専用属性
var attributeReadOnly = ( f.Attributes & 1 ? true : false )
var aCheckFlags = attributeReadOnly ? meMenuChecked : 0;
var aGrayFlags1 = attributeReadOnly ? meMenuGrayed : 0;
var aGrayFlags2 = attributeReadOnly ? 0 : meMenuGrayed;

// 書き換え禁止フラグ
var rCheckFlags = d.ReadOnly ? meMenuChecked : 0;
var rGrayFlags1 = d.ReadOnly ? meMenuGrayed : 0;
var rGrayFlags2 = d.ReadOnly ? 0 : meMenuGrayed;

// エンコード
var dEnc = d.Encoding;
var utf8 = ( dEnc == meEncodingUTF8
|| dEnc == meEncodingUTF8BOM
|| dEnc == meEncodingUTF8NoBOM )
? meMenuChecked : 0;
var utf16le = ( dEnc == meEncodingUTF16LE
|| dEnc == meEncodingUTF16LEBOM
|| dEnc == meEncodingUTF16LENoBOM )
? meMenuChecked : 0;
var utf16be = ( dEnc == meEncodingUTF16BE
|| dEnc == meEncodingUTF16BEBOM
|| dEnc == meEncodingUTF16BENoBOM )
? meMenuChecked : 0;
var EncCheck = function( arg1 ) {
return d.Encoding == arg1 ? meMenuChecked : 0;
};
}

// 編集モード
if ( viewModeMenuEnable ) {
var dMode = d.Mode;
var ModeCheck = function( arg1 ) {
return dMode == arg1 ? meMenuChecked : 0;
};
}

// さいごに閉じたファイル
if ( numLatestClosed > 0 ) {
var latestClosedFile = LatestClosedFile( numLatestClosed );
latestClosedFile = numLatestClosed == 1
? [ latestClosedFile ] : latestClosedFile;
}

// 自動保存フォルダとバックアップフォルダ
var iniItem = [ "AutoSaveEnabled", "AutoSaveToFolder", "AutoSaveFolder",
"BackupSaveToFolder", "BackupFolder" ];
var iniValue = GetIniOption( iniItem );
var autoSaveFolder = iniValue[2];
var backupFolder = iniValue[4];
var autoSaveGrayFlags = Fso.FolderExists( autoSaveFolder )
? 0 : meMenuGrayed;
var backupGrayFlags = Fso.FolderExists( backupFolder )
? 0 : meMenuGrayed;
var autoSaveBackup = ( autoSaveGrayFlags == 0 || backupGrayFlags == 0 )
? true : false;

// ポップアップメニュー項目
var m = CreatePopupMenu();
var sm1 = CreatePopupMenu();
var sm2 = CreatePopupMenu();

// 「無題」ドキュメントでは読み直しメニューを表示しない
if ( path ) {
m.Add( "", 0, meMenuSeparator );
m.Add( "書き換え禁止 ON／OFF (&Y)", 2, rCheckFlags + aGrayFlags1 );
m.Add( "読み取り専用属性 ON／OFF (&W)", 5, aCheckFlags );
m.Add( "閉じて開きなおす (&O)", 1 );
m.Add( "プロパティ (&R)", 8 );

if ( reloadMenuEnable ) {
m.Add( "", 0, meMenuSeparator );
m.AddPopup( "読みなおしサブメニュー (&L)", sm1 );
{
sm1.Add( " 書き換え禁止にする (&Y)", 3, rGrayFlags1 || aGrayFlags1 );
sm1.Add( " 書き換え禁止を解除 (&W)", 4, rGrayFlags2 + aGrayFlags1 );
sm1.Add( "", 0, meMenuSeparator );
sm1.Add( " 読み取り専用属性にして開きなおす (&R)", 6, aGrayFlags1 );
sm1.Add( " 読み取り専用属性を解除して開きなおす (&O)", 7, aGrayFlags2 );
sm1.Add( "", 0, meMenuSeparator );
// 「さいごに閉じたファイル」
if ( numLatestClosed ) {
LatestClosedFileMenu( sm1, 300 );
}
if ( autoSaveBackup ) {
sm1.Add( "", 0, meMenuSeparator );
sm1.Add( "自動保存フォルダを開く (&A)", 250, autoSaveGrayFlags );
sm1.Add( "バックアップフォルダを開く (&B)", 251, backupGrayFlags );
}
sm1.Add( "", 0, meMenuSeparator );
sm1.Add( "「読み直し」マクロの JS ファイルを開く (&J)", 9 );
sm1.Add( "", 0, meMenuSeparator );
sm1.Add( "キャンセル & ", 0 ); // Esc キーまたは Space キーでキャンセル可
}
}
}

if ( viewModeMenuEnable ) {
m.Add( "", 0, meMenuSeparator );
m.AddPopup( "編集モードサブメニュー (&M)", sm2 );
{
sm2.Add( "現在の編集モードのプロパティ (&P)...", 100 );
sm2.Add( "", 0, meMenuSeparator );

/* 以下、追加／削除したものがあれば任意で変更すること。並べ替え可 */
// ▼ デフォルトの編集モード ▼
sm2.Add( "&Bat", 101, ModeCheck( "Bat" ) );
sm2.Add( "C&#", 102, ModeCheck( "C#" ) );
sm2.Add( "C&++", 103, ModeCheck( "C++" ) );
sm2.Add( "ColdFusion", 104, ModeCheck( "ColdFusion" ) );
sm2.Add( "&CSS", 105, ModeCheck( "CSS" ) );
sm2.Add( "&Delphi", 106, ModeCheck( "Delphi" ) );
sm2.Add( "HSP", 107, ModeCheck( "HSP" ) );
sm2.Add( "&HTML", 108, ModeCheck( "HTML" ) );
sm2.Add( "&INI", 109, ModeCheck( "INI" ) );
sm2.Add( "J&ava", 110, ModeCheck( "Java" ) );
sm2.Add( "&JavaScript", 111, ModeCheck( "JavaScript" ) );
sm2.Add( "JSP", 112, ModeCheck( "JSP" ) );
sm2.Add( "Per&l", 113, ModeCheck( "Perl" ) );
sm2.Add( "P&erlScript", 114, ModeCheck( "PerlScript" ) );
sm2.Add( "&PHP", 115, ModeCheck( "PHP" ) );
sm2.Add( "P&owerShell", 116, ModeCheck( "PowerShell" ) );
sm2.Add( "P&ython", 117, ModeCheck( "Python" ) );
sm2.Add( "RHT&ML", 118, ModeCheck( "RHTML" ) );
sm2.Add( "&Ruby", 119, ModeCheck( "Ruby" ) );
sm2.Add( "S&QL", 120, ModeCheck( "SQL" ) );
sm2.Add( "TeX", 121, ModeCheck( "TeX" ) );
sm2.Add( "&Text", 122, ModeCheck( "Text" ) );
sm2.Add( "&UWSC", 123, ModeCheck( "UWSC" ) );
sm2.Add( "VB&Script", 124, ModeCheck( "VBScript" ) );
sm2.Add( "&VisualBasic", 124, ModeCheck( "VisualBasic" ) );
sm2.Add( "&Widows Script", 125, ModeCheck( "Widows Script" ) );
sm2.Add( "x86 Assembler", 126, ModeCheck( "x86 Assembler" ) );
sm2.Add( "&XML", 127, ModeCheck( "XML" ) );
// ▲ デフォルトの編集モード ▲
sm2.Add( "", 0, meMenuSeparator );

/* ▼ ココに追加の編集モードを列挙する ▼ */
// 編集モード名は正確に、アクセラレータの「&」または「(&A)」以外は付加しないこと
// sm2.Add( "Hoge (&G)", 128 );
// sm2.Add( "Fuga (&F)", 129 );
// sm2.Add( "Piyo", 130 );
//
// sm2.Add( "&Mery_Macro_JS", 131, ModeCheck( "Mery_Macro_JS" ) );
// sm2.Add( "Mery MS&Y", 132, ModeCheck( "Mery MSY" ) );
// sm2.Add( "&JaneStyle （正規表現用）", 134, ModeCheck( "JaneStyle （正規表現用）" ) );
/* ▲ ココに追加の編集モードを列挙する ▲ */

sm2.Add( "", 0, meMenuSeparator );
sm2.Add( "編集モードの設定 (&C)...", 200 );
sm2.Add( "", 0, meMenuSeparator );
sm2.Add( "キャンセル & ", 0 ); // Esc キーまたは Space キーでキャンセル可
}
}

// 「無題」ドキュメントではエンコードメニューを表示しない
if ( document.FullName ) {
// 2068 からの ID は ExecuteCommandByID() の定数
m.Add( "", 0, meMenuSeparator );
m.Add( "", 0, meMenuSeparator );
m.Add( "自動選択 (&A)", 2068 );
m.Add( "", 0, meMenuSeparator );
m.Add( "UTF-1&6LE", 2069, utf16le );
m.Add( "UTF-16&BE", 2070, utf16be );
m.Add( "UTF-&8", 2071, utf8 );
m.Add( "UTF-&7", 2072, EncCheck( meEncodingUTF7 ) );
m.Add( "", 0, meMenuSeparator );
m.Add( "日本語 (シフト JI&S)", 2083, EncCheck( meEncodingShiftJIS ) );

if ( variousLanguageEnable ) {
m.Add( "日本語 (&JIS)", 2082, EncCheck( meEncodingJIS ) );
m.Add( "日本語 (&EUC)", 2081, EncCheck( meEncodingEUC ) );
m.Add( "", 0, meMenuSeparator );
m.Add( "西ヨーロッパ言語", 2088, EncCheck( meEncodingWesternEuropean ) );
m.Add( "中央ヨーロッパ言語", 2075, EncCheck( meEncodingCentralEuropean ) );
m.Add( "キリル言語", 2078, EncCheck( meEncodingCyrillic ) );
m.Add( "バルト言語", 2074, EncCheck( meEncodingBaltic ) );
m.Add( "ギリシャ語", 2079, EncCheck( meEncodingGreek ) );
m.Add( "ヘブライ語", 2080, EncCheck( meEncodingHebrew ) );
m.Add( "トルコ語", 2086, EncCheck( meEncodingTurkish ) );
m.Add( "アラビア語", 2073, EncCheck( meEncodingArabic ) );
m.Add( "タイ語", 2085, EncCheck( meEncodingThai ) );
m.Add( "ベトナム語", 2087, EncCheck( meEncodingVietnamese ) );
m.Add( "簡体中国語 (GB2312)", 2076, EncCheck( meEncodingChineseSimplified ) );
m.Add( "繁体中国語 (Big5)", 2077, EncCheck( meEncodingChineseTraditional ) );
m.Add( "韓国語", 2084, EncCheck( meEncodingKorean ) );
}
}

if ( ! path && reloadMenuEnable ) {
// 「さいごに閉じたファイル」
if ( numLatestClosed ) {
LatestClosedFileMenu( m, 300 );
}
m.Add( "", 0, meMenuSeparator );
m.Add( "「読み直し」マクロの JS ファイルを開く (&J)", 9 );
}
m.Add( "", 0, meMenuSeparator );
m.Add( "キャンセル & ", 0 ); // Esc キーまたは Space キーでキャンセル可

Status = "　「読みなおし」マクロ　　[ "
+ ( ( new Date() - start ) /1000 ).toFixed( 3 ).replace( /\./, ". " ) +" 秒 ]";

// ポップアップメニューを表示
var r = m.Track( mePosMouse = 1 );

/**
* 動作コードを変更（2019/04/08）
* ポップアップメニューを表示するまでの準備段階で
* 変数の準備や属性のチェックは済ませてあるので
* 各コマンドを簡略化した。
*/
switch ( r ) {
case 0:
break;

case 1: // ファイルを閉じて開きなおす
d.Close();
ReopenFile( path );
break;

case 2: // 書き換え禁止フラグ ON／OFF を変更する
case 3: // 書き換え禁止にする
case 4: // 書き換え禁止を解除
d.ReadOnly = ! d.ReadOnly;
break;

case 5: // 読み取り専用属性 ON／OFF を変更して開き直す
case 6: // 読み取り専用属性に変更して開き直す
case 7: // 読み取り専用属性を解除して開き直す
// d.Save(); // コメントアウトすると未保存で閉じる前に確認ダイアログ
d.Close();
f.Attributes = ! f.Attributes;
ReopenFile( path );
break;

case 8: // ファイルのプロパティを開く
var fileName = editor.ActiveDocument.Name;
var shell = new ActiveXObject( "Shell.Application" );
shell.NameSpace( path.slice( 0, - fileName.length ) )
.ParseName( fileName )
.InvokeVerb( "プロパティ(&R)" );
break;

case 9: // このマクロの JS ファイルを開く
OpenJumpJS();
break;

case 100: // 現在の編集モードのプロパティ...
WshShell.SendKeys( "%P" );
editor.ExecuteCommandByID( MEID_VIEW_MODE_CUSTOMIZE = 2144 );
break;

case 200: // 編集モードの設定...
editor.ExecuteCommandByID( MEID_VIEW_MODE_CUSTOMIZE = 2144 );
break;

case 250: // 自動保存フォルダ
case 251: // バックアップフォルダ
var folder = ( r == 250 ) ? autoSaveFolder : backupFolder;
WshShell.Run( "\"" + folder + "\"" );
break;

default:
if ( r >= 300 && r < 400 ) { // さいごに閉じたファイル
ReopenFile( latestClosedFile[ r - 300 ] );
break;
}
else if ( r > 2000 ) { // エンコード指定で読みなおす
editor.ExecuteCommandByID( r );
}
else { // 編集モードを変更
var label = m.GetText( r ).replace( /[ ]*$&.$[ ]*|&/g , "" );
d.Mode = label;
}
break;
}
}

/**
* 関数 ReopenFile ( strPath )
* 「開きなおす」
*/
function ReopenFile ( strPath ) {
if ( editor.ActiveDocument.FullName || editor.ActiveDocument.Text ) {
editor.NewFile();
}
editor.OpenFile( strPath );
}

/**
* 関数 OpenJumpJS()
* このマクロを開いて設定項目の行にジャンプする
*/
function OpenJumpJS() {
var eCount = editors.Count;
var isOpen = false, ee , dd;
OuterLoop:
for ( var j = 0; j < eCount; j ++ ) {
var dCount = editors.Item( j ).documents.Count;
for ( var i = 0; i < dCount; i ++ ) {
if ( editors.Item( j ).documents.Item( i ).FullName == ScriptFullName ) {
isOpen = true;
ee = j;
dd = i;
break OuterLoop;
}
}
}
if ( isOpen ) {
editors.Item( ee ).documents.Item( dd ).Activate();
}
else {
editor.NewFile();
ee = ( editors.Count == 1 ) ? 0 : eCount;
editors.Item( ee ).OpenFile( ScriptFullName, 2071 );
}
var js = editors.Item( ee ).ActiveDocument;
var settingPos = js.Text.indexOf( "▼ 設定項目 ▼" );
js.selection.SetActivePos( settingPos );
js.selection.StartOfLine( false, mePosLogical );
var yy = js.selection.GetActivePointY( mePosLogical );
ScrollY = yy;
// 狙った行にスクロールしない場合は、強引にやる
// var WshShell = new ActiveXObject( "WScript.Shell" );
// WshShell.Run( '"' + editor.FullName + '" /l ' + yy
// + ' "' + ScriptFullName + '"' );
}

/**
* 関数 LatestClosedFile( num )
* Mery.his を読み込んで「さいごに閉じたファイル」のフルパスを返す
*
* 引数: 「さいごに閉じたファイル」の件数を指定
* 1 を指定した場合または省略した場合は、１件のフルパスを文字列で返す
* 2 以上の数値を指定した場合は、配列で返す
*
* ※ Mery の「オプション」設定で「カーソル位置とブックマークを保存する」
* が無効（Mery.his がない）なら "" を返す
*/
function LatestClosedFile( num ) {
var num = num ? num : 1;
var closedFile = "";
var closedFileArray = [];
// var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var meryhis = editor.FullName.replace( /\.exe$/i , ".his" );
if ( ! Fso.FileExists( meryhis ) ) {
// var WshShell = new ActiveXObject( "WScript.Shell" );
meryhis = WshShell.ExpandEnvironmentStrings( "%APPDATA%" )
+ "\\Mery\\Mery.his";
}
if ( ! Fso.FileExists( meryhis ) ) {
return closedFile;
}
var Adodb = new ActiveXObject( "ADODB.Stream" );
var adTypeText = 2, adReadAll = -1;
Adodb.Type = adTypeText;
Adodb.Charset = "UTF-8";
Adodb.Open();
Adodb.LoadFromFile( meryhis );
var hisText = Adodb.ReadText( adReadAll ).replace( /\r\n?/g, "\n" );
Adodb.Close();
var hisArray = hisText.match( /^\[.+\]$/gm );
if ( ! hisArray ) {
return closedFile;
}
hisArray.reverse();
var hCount = hisArray.length;
var eCount = Editors.Count;
var dCount, cCount, file, hit;
outerLoop:
for ( var i = 0; i < hCount; i ++ ) {
closedFile = hisArray[i].replace( /^\[|\]$/g, "" );
for ( var ee = 0; ee < eCount; ee ++ ) {
dCount = Editors.Item( ee ).Documents.Count;
for ( var dd = 0, hit = 0; dd < dCount; dd ++ ) {
file = Editors.Item( ee ).Documents.Item( dd ).FullName;
if ( closedFile == file ) {
hit ++;
}
}
cCount = closedFileArray.length;
if ( ! hit && cCount < num && Fso.FileExists( closedFile ) ) {
closedFileArray.push( closedFile );
}
if ( cCount == num ) {
break outerLoop;
}
}
}
return num == 1 ? ( closedFileArray[0] || "" ) : closedFileArray;
}

/**
* 関数 LatestClosedFileMenu( objMenu, num )
* 「さいごに閉じたファイル」のメニューを返す
*
* 第１引数: ポップアップメニューオブジェクト
* 第２引数: ポップアップメニュー ID の開始値
*/
function LatestClosedFileMenu( objMenu, num ) {
if ( latestClosedFile.length ) {
objMenu.Add( "", 0, meMenuSeparator );
objMenu.Add( "▼ さいごに閉じたファイル ▼", 0, meMenuGrayed );
for ( var i = 0; i < latestClosedFile.length; i ++ ) {
objMenu.Add( "&" + ( i + 1 ) + ": "
+ latestClosedFile[i].replace( /(?:.+\\)*([^\\]+\\)([^\\]+)$/, "$1 $2" )
, i + num );
}
}
}

/**
* 組み込み関数 GetIniOption( array )
* 引数で指定した INI オプション項目の値を返す
*/
function GetIniOption( array ) {
// var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var iniPath = editor.FullName.replace( /\.exe$/i , ".ini" );
if ( ! Fso.FileExists( iniPath ) ) {
// var WshShell = new ActiveXObject( "WScript.Shell" );
iniPath = WshShell.ExpandEnvironmentStrings( "%APPDATA%\\Mery\\Mery.ini" );
}
var Adodb = new ActiveXObject( "ADODB.Stream" );
var adTypeText = 2, adReadAll = -1;
Adodb.Type = adTypeText, Adodb.Charset = "UTF-8";
Adodb.Open();
Adodb.LoadFromFile( iniPath );
var iniText = Adodb.ReadText( adReadAll ).replace( /\r\n?/g, "\n" );
Adodb.Close();
for ( var i = 0, len = array.length, dist = []; i < len; i ++ ) {
var value = iniText.match( new RegExp( "^" + array[i] + "=.*$" , "igm" ) )[0]
.replace( /^[^=]+=(.*)$/ , "$1" );
if ( value.match( /^[\-0-9]+$/ ) ) {
value = Number( value );
}
dist.push( value );
}
return dist;
}
</source>

ファイルを読み直す・開きなおす

2019-05-01T09:26:09Z

61.24.242.249: /* 「読みなおす・開きなおす」ポップアップメニュー */

== 「読みなおす・開きなおす」ポップアップメニュー ==

標準ツールバーの「'''読み直し'''」アイコン（ファイルメニューの「[[ヘルプ:ファイル#読み直し|読み直し]]」コマンド）のポップアップメニューを再現します。

'''エンコード指定''' の選択肢のほかに以下の機能を追加してあります。

* Mery の '''書き換え禁止''' フラグ ON/OFF の変更
* '''読み取り専用属性''' ON/OFF の変更（ファイルを開きなおす）
* ファイルを '''閉じて開きなおす'''
*「'''編集モードの設定'''」パネルを開く
*「'''編集モード'''」を変更するサブメニュー
* ファイルの「'''プロパティ'''」を開く（2019/04/08 追加）
*「'''さいごに閉じたファイル'''」を開く（2019/04/28 追加）
* '''自動保存フォルダ'''と'''バックアップフォルダ'''を開く（2019/04/29 追加）

;ポップアップメニューのスクリーンショット (2019/04/30)
[[ファイル:ファイルを読み直す・開きなおす.png]]

== 仕様上の制限 ==

* Mery ver 2.6.15 まででは、「読みなおし」や「書き換え禁止にする」を実行すると、ブックマークが消えてしまいます（Mery 本体側の仕様なので、ファイルメニューや編集メニューの標準コマンドでも同様にブックマークが消えます）。

* ファイルを「開きなおす」場合は、タブの並び順のさいごの位置に開きます。<br> また、開きなおしたファイルは、拡張子ごとの既定の「編集モード」になります。

*「無題」ドキュメントでは読み直しやエンコード指定ができないので、「編集モードサブメニュー」to
「さいごに閉じたファイル」だけを表示します。

*「編集モードサブメニュー」は、「編集モードの設定」で'''カスタマイズした並び順にはなりません'''<br>（※マクロから「編集モードの設定」にあるアイテムを取得する方法がないので、追加／削除されたものに対応するには、マクロのソースコードの書き換えが必要です。 → ZIP のソースコードで 180行目～ 220行目付近）。

* アクセラレータの重複でトグル移動してしまうときは、Enter キーで確定するか、ソースコード内でアクセラレータ（ '''&''' 記号の位置や '''(&X)''' のアルファベット部分）を変更してください。

* document → editor.ActiveDocument にしたので、ツールバーやメニューから実行する場合は、アウトプットバーにフォーカスがあるときでも動作するはず（ショートカットキーでの実行は無理かも）。

* エディタの設定で '''タブが無効''' または '''タブの「閉じるボタン」を表示していない''' 場合は、閉じたときに Mery （のウインドウ）が終了してしまい、開きなおしができません。

*「'''さいごに閉じたファイル'''」メニューを表示できるのは、Mery 本体のオプション設定 >> 履歴 >> 「'''カーソル位置とブックマークを保存する'''」が有効で、本マクロの設定項目「読みなおしサブメニュー」が有効の場合のみです。

* 「自動保存／バックアップフォルダ」の設定を Mery.ini から読みとるため、Mery の「オプション」設定の「自動保存」でフォルダパスが指定されていてフォルダの実在確認ができるなら、「自動保存／バックアップ」の有効／無効によらずポップアップメニュー内にコマンドを表示します。

== ダウンロード ==
「[[ファイル:ファイルを読み直す・開きなおす.zip]]」（アイコン入り）
　2019/03/29: 初版
　2019/04/06: 「編集モードサブメニュー」を追加。
　2019/04/07: Quit() メソッドを削除。
　2019/04/08: 「プロパティ」を追加。動作コードの記述を簡略化。
　2019/04/28: 「さいごに閉じたファイル」を追加。ソースコードが約100行 UP…。
　2019/04/29: 「自動保存フォルダ／バックアップフォルダを開く」を追加。
　2019/04/30: エラーの修正。

== ソースコード ==
<source lang="javascript" style="height:120em; overflow:auto;">
#title = "ファイルを読み直す・開きなおす..."
#tooltip = "エンコード指定／読み取り専用属性／編集モードの変更"
// #icon = "reload.ico"
// #icon = "Mery用マテリアルデザインっぽいアイコン.icl",262

var start = new Date(); // 所要時間計測（開始）
/**
* ---------------------------------------------------------
* ファイルを読み直す・開きなおす
* sukemaru (2019/03/29 - 2019/04/30)
* ---------------------------------------------------------
*/

// ---------- ▼ 設定項目 ▼ ---------- //

// ■「読みなおしサブメニュー」を表示する
var reloadMenuEnable = true;

// ■「さいごに閉じたファイル」の件数
var numLatestClosed = 5;

// ■「編集モードサブメニュー」を表示する
var viewModeMenuEnable = true;

// ■諸外国語用（UTF-** とシフトJIS 以外）の文字コードを表示する
var variousLanguageEnable = true;

// ---------- ▲ 設定項目 ▲ ---------- //

var d = editor.ActiveDocument;
var path = d.FullName;

if ( ! path && ! viewModeMenuEnable ) {
Status = "　「無題」ドキュメントは読み直しできません。";
}
else {
var WshShell = new ActiveXObject( "WScript.Shell" );
var Fso = new ActiveXObject( "Scripting.FileSystemObject" );

// メニューに付けるチェックマークとグレーアウト設定
if ( path ) {
var f = Fso.GetFile( path );

// 読み取り専用属性
var attributeReadOnly = ( f.Attributes & 1 ? true : false )
var aCheckFlags = attributeReadOnly ? meMenuChecked : 0;
var aGrayFlags1 = attributeReadOnly ? meMenuGrayed : 0;
var aGrayFlags2 = attributeReadOnly ? 0 : meMenuGrayed;

// 書き換え禁止フラグ
var rCheckFlags = d.ReadOnly ? meMenuChecked : 0;
var rGrayFlags1 = d.ReadOnly ? meMenuGrayed : 0;
var rGrayFlags2 = d.ReadOnly ? 0 : meMenuGrayed;

// エンコード
var dEnc = d.Encoding;
var utf8 = ( dEnc == meEncodingUTF8
|| dEnc == meEncodingUTF8BOM
|| dEnc == meEncodingUTF8NoBOM )
? meMenuChecked : 0;
var utf16le = ( dEnc == meEncodingUTF16LE
|| dEnc == meEncodingUTF16LEBOM
|| dEnc == meEncodingUTF16LENoBOM )
? meMenuChecked : 0;
var utf16be = ( dEnc == meEncodingUTF16BE
|| dEnc == meEncodingUTF16BEBOM
|| dEnc == meEncodingUTF16BENoBOM )
? meMenuChecked : 0;
var EncCheck = function( arg1 ) {
return d.Encoding == arg1 ? meMenuChecked : 0;
};
}

// 編集モード
if ( viewModeMenuEnable ) {
var dMode = d.Mode;
var ModeCheck = function( arg1 ) {
return dMode == arg1 ? meMenuChecked : 0;
};
}

// さいごに閉じたファイル
if ( numLatestClosed > 0 ) {
var latestClosedFile = LatestClosedFile( numLatestClosed );
latestClosedFile = numLatestClosed == 1
? [ latestClosedFile ] : latestClosedFile;
}

// 自動保存フォルダとバックアップフォルダ
var iniItem = [ "AutoSaveEnabled", "AutoSaveToFolder", "AutoSaveFolder",
"BackupSaveToFolder", "BackupFolder" ];
var iniValue = GetIniOption( iniItem );
var autoSaveFolder = iniValue[2];
var backupFolder = iniValue[4];
var autoSaveGrayFlags = Fso.FolderExists( autoSaveFolder )
? 0 : meMenuGrayed;
var backupGrayFlags = Fso.FolderExists( backupFolder )
? 0 : meMenuGrayed;
var autoSaveBackup = ( autoSaveGrayFlags == 0 || backupGrayFlags == 0 )
? true : false;

// ポップアップメニュー項目
var m = CreatePopupMenu();
var sm1 = CreatePopupMenu();
var sm2 = CreatePopupMenu();

// 「無題」ドキュメントでは読み直しメニューを表示しない
if ( path ) {
m.Add( "", 0, meMenuSeparator );
m.Add( "書き換え禁止 ON／OFF (&Y)", 2, rCheckFlags + aGrayFlags1 );
m.Add( "読み取り専用属性 ON／OFF (&W)", 5, aCheckFlags );
m.Add( "閉じて開きなおす (&O)", 1 );
m.Add( "プロパティ (&R)", 8 );

if ( reloadMenuEnable ) {
m.Add( "", 0, meMenuSeparator );
m.AddPopup( "読みなおしサブメニュー (&L)", sm1 );
{
sm1.Add( " 書き換え禁止にする (&Y)", 3, rGrayFlags1 || aGrayFlags1 );
sm1.Add( " 書き換え禁止を解除 (&W)", 4, rGrayFlags2 + aGrayFlags1 );
sm1.Add( "", 0, meMenuSeparator );
sm1.Add( " 読み取り専用属性にして開きなおす (&R)", 6, aGrayFlags1 );
sm1.Add( " 読み取り専用属性を解除して開きなおす (&O)", 7, aGrayFlags2 );
sm1.Add( "", 0, meMenuSeparator );
// 「さいごに閉じたファイル」
if ( numLatestClosed ) {
LatestClosedFileMenu( sm1, 300 );
}
if ( autoSaveBackup ) {
sm1.Add( "", 0, meMenuSeparator );
sm1.Add( "自動保存フォルダを開く (&A)", 250, autoSaveGrayFlags );
sm1.Add( "バックアップフォルダを開く (&B)", 251, backupGrayFlags );
}
sm1.Add( "", 0, meMenuSeparator );
sm1.Add( "「読み直し」マクロの JS ファイルを開く (&J)", 9 );
sm1.Add( "", 0, meMenuSeparator );
sm1.Add( "キャンセル & ", 0 ); // Esc キーまたは Space キーでキャンセル可
}
}
}

if ( viewModeMenuEnable ) {
m.Add( "", 0, meMenuSeparator );
m.AddPopup( "編集モードサブメニュー (&M)", sm2 );
{
sm2.Add( "現在の編集モードのプロパティ (&P)...", 100 );
sm2.Add( "", 0, meMenuSeparator );

/* 以下、追加／削除したものがあれば任意で変更すること。並べ替え可 */
// ▼ デフォルトの編集モード ▼
sm2.Add( "&Bat", 101, ModeCheck( "Bat" ) );
sm2.Add( "C&#", 102, ModeCheck( "C#" ) );
sm2.Add( "C&++", 103, ModeCheck( "C++" ) );
sm2.Add( "ColdFusion", 104, ModeCheck( "ColdFusion" ) );
sm2.Add( "&CSS", 105, ModeCheck( "CSS" ) );
sm2.Add( "&Delphi", 106, ModeCheck( "Delphi" ) );
sm2.Add( "HSP", 107, ModeCheck( "HSP" ) );
sm2.Add( "&HTML", 108, ModeCheck( "HTML" ) );
sm2.Add( "&INI", 109, ModeCheck( "INI" ) );
sm2.Add( "J&ava", 110, ModeCheck( "Java" ) );
sm2.Add( "&JavaScript", 111, ModeCheck( "JavaScript" ) );
sm2.Add( "JSP", 112, ModeCheck( "JSP" ) );
sm2.Add( "Per&l", 113, ModeCheck( "Perl" ) );
sm2.Add( "P&erlScript", 114, ModeCheck( "PerlScript" ) );
sm2.Add( "&PHP", 115, ModeCheck( "PHP" ) );
sm2.Add( "P&owerShell", 116, ModeCheck( "PowerShell" ) );
sm2.Add( "P&ython", 117, ModeCheck( "Python" ) );
sm2.Add( "RHT&ML", 118, ModeCheck( "RHTML" ) );
sm2.Add( "&Ruby", 119, ModeCheck( "Ruby" ) );
sm2.Add( "S&QL", 120, ModeCheck( "SQL" ) );
sm2.Add( "TeX", 121, ModeCheck( "TeX" ) );
sm2.Add( "&Text", 122, ModeCheck( "Text" ) );
sm2.Add( "&UWSC", 123, ModeCheck( "UWSC" ) );
sm2.Add( "VB&Script", 124, ModeCheck( "VBScript" ) );
sm2.Add( "&VisualBasic", 124, ModeCheck( "VisualBasic" ) );
sm2.Add( "&Widows Script", 125, ModeCheck( "Widows Script" ) );
sm2.Add( "x86 Assembler", 126, ModeCheck( "x86 Assembler" ) );
sm2.Add( "&XML", 127, ModeCheck( "XML" ) );
// ▲ デフォルトの編集モード ▲
sm2.Add( "", 0, meMenuSeparator );

/* ▼ ココに追加の編集モードを列挙する ▼ */
// 編集モード名は正確に、アクセラレータの「&」または「(&A)」以外は付加しないこと
// sm2.Add( "Hoge (&G)", 128 );
// sm2.Add( "Fuga (&F)", 129 );
// sm2.Add( "Piyo", 130 );
//
// sm2.Add( "&Mery_Macro_JS", 131, ModeCheck( "Mery_Macro_JS" ) );
// sm2.Add( "Mery MS&Y", 132, ModeCheck( "Mery MSY" ) );
// sm2.Add( "&JaneStyle （正規表現用）", 134, ModeCheck( "JaneStyle （正規表現用）" ) );
/* ▲ ココに追加の編集モードを列挙する ▲ */

sm2.Add( "", 0, meMenuSeparator );
sm2.Add( "編集モードの設定 (&C)...", 200 );
sm2.Add( "", 0, meMenuSeparator );
sm2.Add( "キャンセル & ", 0 ); // Esc キーまたは Space キーでキャンセル可
}
}

// 「無題」ドキュメントではエンコードメニューを表示しない
if ( document.FullName ) {
// 2068 からの ID は ExecuteCommandByID() の定数
m.Add( "", 0, meMenuSeparator );
m.Add( "", 0, meMenuSeparator );
m.Add( "自動選択 (&A)", 2068 );
m.Add( "", 0, meMenuSeparator );
m.Add( "UTF-1&6LE", 2069, utf16le );
m.Add( "UTF-16&BE", 2070, utf16be );
m.Add( "UTF-&8", 2071, utf8 );
m.Add( "UTF-&7", 2072, EncCheck( meEncodingUTF7 ) );
m.Add( "", 0, meMenuSeparator );
m.Add( "日本語 (シフト JI&S)", 2083, EncCheck( meEncodingShiftJIS ) );

if ( variousLanguageEnable ) {
m.Add( "日本語 (&JIS)", 2082, EncCheck( meEncodingJIS ) );
m.Add( "日本語 (&EUC)", 2081, EncCheck( meEncodingEUC ) );
m.Add( "", 0, meMenuSeparator );
m.Add( "西ヨーロッパ言語", 2088, EncCheck( meEncodingWesternEuropean ) );
m.Add( "中央ヨーロッパ言語", 2075, EncCheck( meEncodingCentralEuropean ) );
m.Add( "キリル言語", 2078, EncCheck( meEncodingCyrillic ) );
m.Add( "バルト言語", 2074, EncCheck( meEncodingBaltic ) );
m.Add( "ギリシャ語", 2079, EncCheck( meEncodingGreek ) );
m.Add( "ヘブライ語", 2080, EncCheck( meEncodingHebrew ) );
m.Add( "トルコ語", 2086, EncCheck( meEncodingTurkish ) );
m.Add( "アラビア語", 2073, EncCheck( meEncodingArabic ) );
m.Add( "タイ語", 2085, EncCheck( meEncodingThai ) );
m.Add( "ベトナム語", 2087, EncCheck( meEncodingVietnamese ) );
m.Add( "簡体中国語 (GB2312)", 2076, EncCheck( meEncodingChineseSimplified ) );
m.Add( "繁体中国語 (Big5)", 2077, EncCheck( meEncodingChineseTraditional ) );
m.Add( "韓国語", 2084, EncCheck( meEncodingKorean ) );
}
}

if ( ! path && reloadMenuEnable ) {
// 「さいごに閉じたファイル」
if ( numLatestClosed ) {
LatestClosedFileMenu( m, 300 );
}
m.Add( "", 0, meMenuSeparator );
m.Add( "「読み直し」マクロの JS ファイルを開く (&J)", 9 );
}
m.Add( "", 0, meMenuSeparator );
m.Add( "キャンセル & ", 0 ); // Esc キーまたは Space キーでキャンセル可

Status = "　「読みなおし」マクロ　　[ "
+ ( ( new Date() - start ) /1000 ).toFixed( 3 ).replace( /\./, ". " ) +" 秒 ]";

// ポップアップメニューを表示
var r = m.Track( mePosMouse = 1 );

/**
* 動作コードを変更（2019/04/08）
* ポップアップメニューを表示するまでの準備段階で
* 変数の準備や属性のチェックは済ませてあるので
* 各コマンドを簡略化した。
*/
switch ( r ) {
case 0:
break;

case 1: // ファイルを閉じて開きなおす
d.Close();
ReopenFile( path );
break;

case 2: // 書き換え禁止フラグ ON／OFF を変更する
case 3: // 書き換え禁止にする
case 4: // 書き換え禁止を解除
d.ReadOnly = ! d.ReadOnly;
break;

case 5: // 読み取り専用属性 ON／OFF を変更して開き直す
case 6: // 読み取り専用属性に変更して開き直す
case 7: // 読み取り専用属性を解除して開き直す
// d.Save(); // コメントアウトすると未保存で閉じる前に確認ダイアログ
d.Close();
f.Attributes = ! f.Attributes;
ReopenFile( path );
break;

case 8: // ファイルのプロパティを開く
var fileName = editor.ActiveDocument.Name;
var shell = new ActiveXObject( "Shell.Application" );
shell.NameSpace( path.slice( 0, - fileName.length ) )
.ParseName( fileName )
.InvokeVerb( "プロパティ(&R)" );
break;

case 9: // このマクロの JS ファイルを開く
OpenJumpJS();
break;

case 100: // 現在の編集モードのプロパティ...
WshShell.SendKeys( "%P" );
editor.ExecuteCommandByID( MEID_VIEW_MODE_CUSTOMIZE = 2144 );
break;

case 200: // 編集モードの設定...
editor.ExecuteCommandByID( MEID_VIEW_MODE_CUSTOMIZE = 2144 );
break;

case 250: // 自動保存フォルダ
case 251: // バックアップフォルダ
var folder = ( r == 250 ) ? autoSaveFolder : backupFolder;
WshShell.Run( "\"" + folder + "\"" );
break;

default:
if ( r >= 300 && r < 400 ) { // さいごに閉じたファイル
ReopenFile( latestClosedFile[ r - 300 ] );
break;
}
else if ( r > 2000 ) { // エンコード指定で読みなおす
editor.ExecuteCommandByID( r );
}
else { // 編集モードを変更
var label = m.GetText( r ).replace( /[ ]*$&.$[ ]*|&/g , "" );
d.Mode = label;
}
break;
}
}

/**
* 関数 ReopenFile ( strPath )
* 「開きなおす」
*/
function ReopenFile ( strPath ) {
if ( editor.ActiveDocument.FullName || editor.ActiveDocument.Text ) {
editor.NewFile();
}
editor.OpenFile( strPath );
}

/**
* 関数 OpenJumpJS()
* このマクロを開いて設定項目の行にジャンプする
*/
function OpenJumpJS() {
var eCount = editors.Count;
var isOpen = false, ee , dd;
OuterLoop:
for ( var j = 0; j < eCount; j ++ ) {
var dCount = editors.Item( j ).documents.Count;
for ( var i = 0; i < dCount; i ++ ) {
if ( editors.Item( j ).documents.Item( i ).FullName == ScriptFullName ) {
isOpen = true;
ee = j;
dd = i;
break OuterLoop;
}
}
}
if ( isOpen ) {
editors.Item( ee ).documents.Item( dd ).Activate();
}
else {
editor.NewFile();
ee = ( editors.Count == 1 ) ? 0 : eCount;
editors.Item( ee ).OpenFile( ScriptFullName, 2071 );
}
var js = editors.Item( ee ).ActiveDocument;
var settingPos = js.Text.indexOf( "▼ 設定項目 ▼" );
js.selection.SetActivePos( settingPos );
js.selection.StartOfLine( false, mePosLogical );
var yy = js.selection.GetActivePointY( mePosLogical );
ScrollY = yy;
// 狙った行にスクロールしない場合は、強引にやる
// var WshShell = new ActiveXObject( "WScript.Shell" );
// WshShell.Run( '"' + editor.FullName + '" /l ' + yy
// + ' "' + ScriptFullName + '"' );
}

/**
* 関数 LatestClosedFile( num )
* Mery.his を読み込んで「さいごに閉じたファイル」のフルパスを返す
*
* 引数: 「さいごに閉じたファイル」の件数を指定
* 1 を指定した場合または省略した場合は、１件のフルパスを文字列で返す
* 2 以上の数値を指定した場合は、配列で返す
*
* ※ Mery の「オプション」設定で「カーソル位置とブックマークを保存する」
* が無効（Mery.his がない）なら "" を返す
*/
function LatestClosedFile( num ) {
var num = num ? num : 1;
var closedFile = "";
var closedFileArray = [];
// var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var meryhis = editor.FullName.replace( /\.exe$/i , ".his" );
if ( ! Fso.FileExists( meryhis ) ) {
// var WshShell = new ActiveXObject( "WScript.Shell" );
meryhis = WshShell.ExpandEnvironmentStrings( "%APPDATA%" )
+ "\\Mery\\Mery.his";
}
if ( ! Fso.FileExists( meryhis ) ) {
return closedFile;
}
var Adodb = new ActiveXObject( "ADODB.Stream" );
var adTypeText = 2, adReadAll = -1;
Adodb.Type = adTypeText;
Adodb.Charset = "UTF-8";
Adodb.Open();
Adodb.LoadFromFile( meryhis );
var hisText = Adodb.ReadText( adReadAll ).replace( /\r\n?/g, "\n" );
Adodb.Close();
var hisArray = hisText.match( /^\[.+\]$/gm );
if ( ! hisArray ) {
return closedFile;
}
hisArray.reverse();
var hCount = hisArray.length;
var eCount = Editors.Count;
var dCount, cCount, file, hit;
outerLoop:
for ( var i = 0; i < hCount; i ++ ) {
closedFile = hisArray[i].replace( /^\[|\]$/g, "" );
for ( var ee = 0; ee < eCount; ee ++ ) {
dCount = Editors.Item( ee ).Documents.Count;
for ( var dd = 0, hit = 0; dd < dCount; dd ++ ) {
file = Editors.Item( ee ).Documents.Item( dd ).FullName;
if ( closedFile == file ) {
hit ++;
}
}
cCount = closedFileArray.length;
if ( ! hit && cCount < num && Fso.FileExists( closedFile ) ) {
closedFileArray.push( closedFile );
}
if ( cCount == num ) {
break outerLoop;
}
}
}
return num == 1 ? ( closedFileArray[0] || "" ) : closedFileArray;
}

/**
* 関数 LatestClosedFileMenu( objMenu, num )
* 「さいごに閉じたファイル」のメニューを返す
*
* 第１引数: ポップアップメニューオブジェクト
* 第２引数: ポップアップメニュー ID の開始値
*/
function LatestClosedFileMenu( objMenu, num ) {
if ( latestClosedFile.length ) {
objMenu.Add( "", 0, meMenuSeparator );
objMenu.Add( "▼ さいごに閉じたファイル ▼", 0, meMenuGrayed );
for ( var i = 0; i < latestClosedFile.length; i ++ ) {
objMenu.Add( "&" + ( i + 1 ) + ": "
+ latestClosedFile[i].replace( /(?:.+\\)*([^\\]+\\)([^\\]+)$/, "$1 $2" )
, i + num );
}
}
}

/**
* 組み込み関数 GetIniOption( array )
* 引数で指定した INI オプション項目の値を返す
*/
function GetIniOption( array ) {
// var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var iniPath = editor.FullName.replace( /\.exe$/i , ".ini" );
if ( ! Fso.FileExists( iniPath ) ) {
// var WshShell = new ActiveXObject( "WScript.Shell" );
iniPath = WshShell.ExpandEnvironmentStrings( "%APPDATA%\\Mery\\Mery.ini" );
}
var Adodb = new ActiveXObject( "ADODB.Stream" );
var adTypeText = 2, adReadAll = -1;
Adodb.Type = adTypeText, Adodb.Charset = "UTF-8";
Adodb.Open();
Adodb.LoadFromFile( iniPath );
var iniText = Adodb.ReadText( adReadAll ).replace( /\r\n?/g, "\n" );
Adodb.Close();
for ( var i = 0, len = array.length, dist = []; i < len; i ++ ) {
var value = iniText.match( new RegExp( "^" + array[i] + "=.*$" , "igm" ) )[0]
.replace( /^[^=]+=(.*)$/ , "$1" );
if ( value.match( /^[\-0-9]+$/ ) ) {
value = Number( value );
}
dist.push( value );
}
return dist;
}
</source>

さいごに閉じたファイルを参照する

2019-04-30T00:59:58Z

61.24.242.249: 別ページに移設

<div>__TOC__</div>

[[ヘルプ:ファイル#最近のファイル|ファイルメニュー]] では「最近開いたファイルの履歴」が表示されますが、タブをたくさん並べているときには「現在開いているファイル」ばかりが表示されがちです。

このマクロ（組み込み関数）では、Mery.ini ファイルに記録されている「最近開いたファイルの履歴」ではなく、<b style="color:#0000c0;"> Mery.his </b> ファイルに記録されている履歴情報を読み込み、「現在開いているファイル」を除いて、後ろから順にファイルパスを取得します。

*ファイルの実在確認の処理を入れてあるので、削除・移動・リネームされたファイルは含めません。

*<span style="color:#c00;"> Mery の「オプション」設定の「履歴」グループで「'''カーソル位置とブックマークを保存する'''」が無効の場合は、Mery.his ファイルを参照できないので '''""''' を返します。</span>

*通常の操作でタブを閉じず、「[[すべて閉じる]]」マクロなどでタブを閉じた場合、Mery.his ファイルの並び順が「保存された順または閉じた順」にならないことがあるので、このマクロで取得できる履歴の順番の正確さについては保証できません。

== 組み込み関数 LatestClosedFile() ==
[[includeライブラリ]] を導入（#include "include/IO.js"　#include "include/MryInfo.js"）したマクロで利用する前提なら前半部分「Mery.his をさがす」「Mery.his を読み込む」のコードを圧縮することもできますが、あえて include なしで使えるようにしてあります（処理手続きはおなじなので、動作速度に差はないはず）。

// #title = "さいごに閉じたファイル"
// #tooltip = "「さいごに閉じたファイル」のフルパスを返す"

/**
* 関数 LatestClosedFile( num )
* Mery.his を読み込んで「さいごに閉じたファイル」のフルパスを返す
*
* 引数 num: 「さいごに閉じたファイル」の件数を指定
* 1 を指定した場合または省略した場合は、１件のフルパスを文字列で返す
* 2 以上の数値を指定した場合は、配列で返す
*
* ※ Mery の「オプション」設定で「カーソル位置とブックマークを保存する」
* が無効（Mery.his がない）なら "" を返す
* ※ Mery.his を下から順にチェックするだけなので
* マクロなどで閉じられたファイルは Mery.his の並び順に反映されていないことがあるかも
*/
<source lang="javascript">
function LatestClosedFile( num ) {
var start = new Date(); // 所要時間計測（開始）
var closedFile = "";
var closedFileArray = [];
var num = num ? num : 1;

// Mery.his をさがす (ポータブル / %APPDATA% )
var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var meryhis = editor.FullName.replace( /\.exe$/i , ".his" );
if ( ! Fso.FileExists( meryhis ) ) {
meryhis = new ActiveXObject( "WScript.Shell" )
.ExpandEnvironmentStrings( "%APPDATA%" )
+ "\\Mery\\Mery.his";
}
if ( ! Fso.FileExists( meryhis ) ) {
return closedFile; // "" を返す
}

// Mery.his を読みこむ
var Adodb = new ActiveXObject( "ADODB.Stream" );
var adTypeText = 2, adReadAll = -1;
Adodb.Type = adTypeText, Adodb.Charset = "UTF-8";
Adodb.Open();
Adodb.LoadFromFile( meryhis );
var hisText = Adodb.ReadText( adReadAll ).replace( /\r\n?/g, "\n" );
Adodb.Close();

// Mery.his からファイルパスを抽出する
var hisArray = hisText.match( /^\[.+\]$/gm );

if ( ! hisArray ) {
return closedFile; // "" を返す
}

// 履歴のファイルパスをうしろから順にチェックして
// 現在開いているファイルにないものを「さいごに閉じたファイル」とする

hisArray.reverse();
var hCount = hisArray.length;
var eCount = Editors.Count;
var dCount, cCount, file, hit;
outerLoop:
for ( var i = 0; i < hCount || cCount < num; i ++ ) {
closedFile = hisArray[i].replace( /^\[|\]$/g, "" );
for ( var ee = 0; ee < eCount; ee ++ ) {
dCount = Editors.Item( ee ).Documents.Count;
for ( var dd = 0, hit = 0; dd < dCount; dd ++ ) {
file = Editors.Item( ee ).Documents.Item( dd ).FullName;
if ( closedFile == file ) {
hit ++;
}
}
cCount = closedFileArray.length;
if ( ! hit && cCount < num && Fso.FileExists( closedFile ) ) {
closedFileArray.push( closedFile );
}
if ( cCount == num ) {
break outerLoop;
}
}
}

Status = "[ " + ( ( new Date() - start ) / 1000 ).toFixed( 3 ) + " 秒 ]";
return num == 1 ? ( closedFileArray[0] || "" ) : closedFileArray;
}
</source>

== 使い方 ==

例２のポップアップメニューは「[[ファイルを読み直す・開きなおす]]」マクロ（2019/04/28）にも搭載してあります。

;例１. 「さいごに閉じたファイル」を３件取得する
<source lang="javascript">
var _latestClosed3 = LatestClosedFile( 3 );

OutputBar.Writeln( "さいごに閉じたファイル: \n" + _latestClosed3 );

Alert( "さいごに閉じたファイル: \n\n" + _latestClosed3.join( "\n" ) );
</source>

<div id="ポップアップメニュー"></div>
;例２. 「さいごに閉じたファイル」５件をポップアップメニューに表示する
※ LatestClosedFile( 5 ) の引数 '''5''' を増やせば表示する件数を増やせる。
<source lang="javascript">
var _latestClosed = LatestClosedFile( 5 );

var menu = CreatePopupMenu();
menu.Add( "▼ さいごに閉じたファイル ▼", 0, meMenuGrayed );

for ( var i = 0; i < _latestClosed.length; i ++ ) {
// 「連番: 親フォルダ名\ ファイル名」に切りつめる
menu.Add( "&" + ( i + 1 ) + ": " + _latestClosed[i].replace( /(?:.+\\)*([^\\]+\\)([^\\]+)$/, "$1 $2" ), i + 1 )
}

// ※ LatestClosedFile() または LatestClosedFile( 1 ) であれば
// 戻り値は配列ではなくフルパスの文字列１件だけなので for() 文は無用
// menu.Add( "&1: " + LatestClosedFile().replace( /(?:.+\\)*([^\\]+\\)([^\\]+)$/, "$1 $2" ), 1 );

var r = menu.Track( mePosMouse );
if ( r > 0 ) {
editor.NewFile();
editor.OpenFile( _latestClosed[ r - 1 ] );

// ※ LatestClosedFile() または LatestClosedFile( 1 ) であれば
// editor.OpenFile( LatestClosedFile() );
}
</source>

== メモ ==
*2019/04/29 (sukemaru)
:*Mery.his が空だった場合など処理の修正（length = 0 の "" か [] を返すように）。
:*ループ処理に break を追加。
:*ロースペックの win xp (32bit, cpu １コア, JScript 5.8) でテストしたかぎりでは、処理時間はそれほどかからないようだった（[[使い方]] 例２の[[#ポップアップメニュー|ポップアップメニュー]]で 0.02 ～ 0.04 秒）。

*2019/04/30 (sukemaru)
:*「[[さいごに閉じたファイルを開く]]」のページに移設

マクロライブラリ

2018-08-24T06:08:02Z

61.24.242.249: /* テキスト操作補助 */

Mery で使用できるマクロを集めたライブラリです。

スクリプトを拡張子「js」 (JavaScript、JScript の場合) にして「My Macros」等に保存し、マクロメニューの「選択」や「カスタマイズ」から読み込んで使用してください。

マクロライブラリはどなたでも自由に編集できますので、みなさんが作成した便利なマクロをどんどん掲載してください。

== テキスト操作補助 ==

*[https://github.com/haijinboys/mery-macro-emmet Emmet] (Kuro)
*[[Zen Coding]] (Kuro)
*[[CSV のカーソル位置の列を削除]] (Kuro)
*[[対応する括弧に移動]] (Kuro, kurama, masme) update 2017/05/27
*[[選択文字列を強調]] (Kuro)
*[[行頭に移動]] (Kuro, 他) update 2014/03/15
*[[引用の追加]] (Kuro)
*[[バイト数]] (Kuro)
*[[日付と時刻を挿入]] (n, masme) update 2016/02/28
*[[日付と時刻を挿入（カレンダー版）]] (papagoat) update 2016/05/24
*[[選択範囲を上下に移動]] (ks)
*[[TeraPadのCtrl↑と同じような動作をするマクロ]] (suke)
*[[TeraPadのCtrl↓と同じような動作をするマクロ]] (suke)
*[[Vz 風テキストスタック 2 ストロークキー]] (papagoat) update 2013/11/22
*[[非選択状態でも逆インデント]] (papagoat)
*[[ラクラク罫線]] (手石) Update 2012/12/22
*[[ファイル:XHTML.zip]] (アラフォー親父) HTMLタグを、ショートカット・キーに登録して入力するマクロ（文章挟み込み仕様）
*[[矩形ペースト]] (手石)
*[[自動箇条書き]] (手石) update 2013/03/15
*[[インデントを考慮した折り返し（改行挿入）]] (手石) update 2013/02/23
*[[青空文庫用整形補助]] (ks, 有志)
*[[部分編集]] (ks)
*[[文字カウント]] (masme) 2014/02/01, update 2018/08/04
*[[字下げ・字上げ]](インデント・逆インデント) (masme) 2014/02/09, update 2015/02/14
*[[数値を増減]](インクリメント・デクリメント) (masme) 2014/06/17, update 2016/02/28
*[[少し便利な Undo/Redo]] (ks)
*[[自動ルビ振り]] (急急如律令)
*[[貼付け実行後のカーソル位置を貼付け文字列の先頭にする]] (yuko)
*[[ドイツ語特殊文字]] (鯉)
*[[矩形選択範囲の各行先頭に文字挿入]] (yuko)
*[[文章で使用されている文字をユニーク抽出]] (Kuro)
*[[アウトライン用ノード追加]] (mik) 2018/06/25
*[[アウトラインのノードレベルを上げる]] (mik) 2018/06/25
*[[アウトラインのノードレベルを下げる]] (mik) 2018/06/25
*[[アウトラインのノードの完了/未完了を切り替える]] (mik) 2018/06/25
*[[ハルナアウトライン用の完了/未完了フラグをノード名に反映する]] (mik) 2018/06/25
*[[Markdown文書で改行時にリスト、引用ブロック開始記号を自動入力する]] (catfist) 2018/07/28
*[[行を複製 (複数行可)]] (sukemaru) 2018/08/24
*[[行の先頭に貼り付け]] (sukemaru) 2018/08/24
*[[カッコで囲う]] (sukemaru) 2018/08/24

== ファイル操作補助 ==

*[[文字列中のパス起動]] (ks)
*[[自動バックアップ]] (ks)
*[[終了時状態保持・復元]] (ks)
*[[上書き保存(UAC対応)]] (ks)
*[[含んでいるフォルダを開く]] (ks)
*[[パスを取得]] (Kuro)
*[[フォルダ内のファイルをすべて開く]] (Kuro)
*[[ファイルを比較]] (Kuro)
*[[ファイル名を引数にしてアプリ起動]] (Kuro, miso)
*[[ブックマーク一覧ジャンプ]] (goat) update 2012/09/24
*[[拡張子の違うファイルを開く]] (n)
*[[フォルダを開く]] (n)
*[[コマンドプロンプトを開く]] (n)
*[[SDIウィンドウの記憶と復帰]] (papagoat) Update 2012/10/23 (説明文変更 2013/11/22)
*[[よく使うフォルダ]] (手石) Update 2014/02/22
*[[ファイル（選択範囲）の仮保存]] (手石)
*[[ポップアップメニューでファイル選択]] (手石)
*[[フォルダツリーをポップアップ表示]] (n)
*[[タグジャンプ]] (o)
*[[ウィンドウの位置とサイズを拡張子で指定]] (papagoat) Update 2014/04/17

== 変換・ソート・整形 ==

*[[可変長を固定長に変換]] (Kuro)
*[[SHA でハッシュ化]] (Kuro)
*[[標準変換]] (Kuro)
*[[昇順で並び替え]] (Kuro)
*[[降順で並び替え]] (Kuro)
*[[連続する重複行を削除]] (Kuro)
*[[ブックマーク系コマンド集]] (ks)
*[[テキスト変換]] (ks)
**[[テキスト整形]] (masme) 2013/09/15, update 2018/01/15
*[[旧漢字から新漢字に変換]] (furu)
*[[clustalw を用いてアライメントを実行]] (suke)
*[[連番の挿入]] (手石)
*[[TSV(CSV) ⇒ 固定長]] (手石) update 2013/04/16
*[[行並べ替え]] (masme) 2013/08/25, update 2018/04/15
*[[連番を挿入]] (masme) 2013/08/25
*[[GFMをHTMLに変換]] (noonworks) 2014/03/09

== 検索・置換 ==

*[[文書から検索]] (Kuro)
*[[単語を抽出]] (Kuro)
*[[このファイルから検索(マッチしない行)]] (Kuro)
*[[このファイルから検索(マッチする行)]] (Kuro)
*[[タグの外側（内側）だけ置換]] (手石)
*[[ポップアップメニューで検索先にジャンプ]] (手石)
*[[検索(SJIS以外)]] + 検索強調を解除 (masme) 2014/09/16, update 2017/06/26
*[https://github.com/TakamiChie/mery-scripts/blob/master/SearchWithMode.js 現在開いているファイルの言語名をつけてWeb検索] (高見知英)→[[https://vine.co/v/eeY59rFMail 実際の動作例]]
*[https://github.com/GunseiPaseri/Mery_macro 文字出現量ランキング] (群生系パセリ) 2015/12/28
*[[検索ヒット数表示]] (ks)
*[[任意の検索エンジンで検索]] (Noah)
*[[デフォルトの検索フラグを設定して検索ウィンドウ表示]] (yuko)

== プログラミング補助 ==

*[[Eclipse風コメントアウト]] (ks)
*[[スマートインデント(C 構文)]] (ks)
*[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)
*[[タグファイルから補完]] (n)
*[[コードスニペットもどき]] (手石) Update 2012/12/20
*[[コメントマーク付け外し]] (手石, masme) update 2016/02/28
*[[TeX文書のコンパイル]] (手石)
*[[TeX数式のチェック]] (手石)
*[[簡易数式計算]] (ks)
*[[定義へ移動]] (ks)
*[[タブの桁数]] (手石)
*[[行末の空白を削除]] (n) 2014/12/19
*[https://github.com/TakamiChie/mery-scripts/tree/master/ 開いているスクリプトファイルを実行(掲載時点ではバッチファイル・Javascript・Lua・PHP・Perl・Python・Ruby・UWSCに対応。順次追加予定)] (高見知英)
*[https://github.com/TakamiChie/mery-scripts/tree/master/ 開いているスクリプトファイルを構文チェック(掲載時点ではPHP・Perlに対応。順次追加予定)] (高見知英)
*[[説明を出力]] (s) Create 2015/08/16
*[[拡張子からコンソール実行]] (YOS G-spec) 2016/12/11更新

== おもしろ ==

*[[テキストブラウザ]] (Kuro)
*[[Yahoo!天気情報]] (Kuro)
*[[メール送信]] (ks)

== その他 ==

*[[最新版を確認]] (diaphragm)
*[[キーアサイン集]] (ks, masme, 有志) update 2015/12/29
*[[SAPI 使って単語読み上げ]] (miso)
*[[フォルダ選択ダイアログ]] (手石)
*[[HTA(HTML)の自作ダイアログを表示]] (noonworks)
*[[JavaScript を実行]] (n)
*[[ポップアップメニューを手軽に扱う]] (komorebikoboshi)
*[[マクロ・関数をメニューで呼び出す]] (aliquis) 2013/08/19
*[[階層化マクロメニュー]] (ks)
*[[シェルコマンドを実行]] (sasaki)
*[[ポップアップメニューでチェックボックス]] (手石)
*[[ポップアップメニューでラジオボタン]] (手石)
*[[includeライブラリ]] (ks)
*[[マクロ覚え書き（開発者向け）]](ks)

行の先頭に貼り付け

2018-08-24T03:54:21Z

61.24.242.249: 「引用の追加」マクロへの組みこみ用コード

「[[引用の追加]]」マクロを翻案して、クリップボードのデータ（文字列）を複数行の先頭に貼り付ける（挿入する）マクロにしました。
箇条書きのバレットや行コメントのプリフィックスのような短い文字列の挿入や、CSVで先頭に列を追加する用途に。

選択範囲がないばあいはカーソル位置の論理行、選択範囲があるばあいは選択範囲をふくむ論理行全体（複数行可）の先頭に挿入します。

行の途中からべつの行の途中までのような大ざっぱな範囲選択状態から「行の先頭に貼り付け」を実行することを想定しています。ルーラーの行番号のドラッグでの複数行選択やトリプルクリックでの行選択で末尾改行が含まれているばあい、さいごの改行を無視します。
<source lang="javascript">
#title = "行の先頭に貼り付け"
#tooltip = "各行の先頭に貼り付ける (挿入)"
/**
* 選択範囲をふくむ各行の先頭にクリップボードのデータを貼り付ける (挿入)
*
* 文書終端の空行 ( ^[EOF] ) を選択範囲の末尾にぶら下げての "挿入" はできるが、可否について条件アリ
* 選択範囲の確定時点でのキャレットの位置が "選択範囲の先頭にあるか" ／ "末尾 ( [EOF] マークの直前) にあるか" で判別する
* 文字列または行番号をドラッグ（または"クリック＆ Shift＋クリック"）して選択範囲を確定するさいに
* ・上（左）から下（右）にむけて選択範囲をつくった場合 → 終端の空行 ( ^[EOF] ) を含める
* ・下（右）から上（左）にむけて選択範囲をつくった場合 → 終端の空行 ( ^[EOF] ) を含めない
*/

var sx = ScrollX, sy = ScrollY; // スクロール位置を保存
var s = document.selection;

// 選択範囲の各座標を取得
var ay = s.GetTopPointY( mePosLogical );
var by = s.GetBottomPointY( mePosLogical );
var bx = s.GetBottomPointX( mePosLogical );

// 選択範囲の末尾が終端の空行 ( ^[EOF] ) にあるときの調整
var e = 0;
if ( ! document.Text.charAt( s.GetActivePos() ) ) // カーソル位置に文字がないばあいを ^[EOF] と判定する
e = 1;
// 選択範囲の末尾が行頭 x = 1 にあるときの調整
if ( ay != by && bx == 1 && e == 0 )
var by = by - 1;

// 選択範囲の拡張
s.SetActivePoint( mePosLogical, 1, by );
s.EndOfLine( false, mePosLogical );
s.SetAnchorPoint( mePosLogical, 1, ay );

// ここから、「引用の追加」マクロのコードを流用
var cb = ClipboardData.GetData(); // クリップボードのテキストデータを取得
s.Text = insertCb( s.Text, cb ); // "各行の先頭に貼り付け”

function insertCb( arg1, arg2 ) {
var a = arg1.split( "\n" );
for ( var i = 0; i < a.length; i++ )
a[i] = arg2 + a[i];
return a.join( "\n" );
}

// 選択範囲を復旧（末尾改行を含める）
s.SetAnchorPos( s.GetActivePos() + 1 );
s.SetActivePoint( mePosLogical, 1, ay, true );
ScrollX = sx; ScrollY = sy; // スクロール位置を復元
</source>

== 「[[引用の追加]]」マクロへの組みこみ用コード ==
「'''行の先頭に貼り付け'''」を「[[引用の追加]]」マクロのポップアップメニュー項目として組みこむことができます（「１つ削除」や「すべて削除」には非対応）。

「[[引用の追加]]」マクロのコードに以下の各行を追加します。

<u>1. ''"m.Add( … );"'' のグループに1行追加（位置は任意）</u>
<source lang="javascript">
m.Add( "クリップボードから", 20 );
</source>
<u>2. ''"␣␣␣␣default:"'' のうえに4行挿入</u>
<source lang="javascript">
case 20:
var cb = ClipboardData.GetData();
document.selection.Text = insertQuote( s, cb );
break;
</source>
*ポップアップメニュー項目と引用符の定義配列 ''"q = new Array( … )"'' に20コ以上詰めこんでいるばあいは、追加コードのID '''20''' を適当な数字に変更してください。

行の先頭に貼り付け

2018-08-24T03:12:55Z

61.24.242.249: 新規作成

MeryWiki - 利用者の投稿記録 [ja]

タブが「縦書き」モードかチェックする

ファイルを読み直す・開きなおす

ファイルを読み直す・開きなおす

さいごに閉じたファイル を参照する

マクロライブラリ

行の先頭に貼り付け

行の先頭に貼り付け

さいごに閉じたファイルを参照する