行の表示方法を切り替える - 版の履歴

MSY-07: 空行と改行の除去

2024-09-09T02:15:51Z

空行と改行の除去

← 古い版		2024年9月9日 (月) 11:15時点における版
3行目:		3行目:
	「オプション」ダイアログは自動的に閉じられて、「行の表示方法」の変更が適用されます。<br>		「オプション」ダイアログは自動的に閉じられて、「行の表示方法」の変更が適用されます。<br>

	~~<br>~~
	*非正規メソッド ''ExecuteCommandByID( 2177 )'' で「オプション」ダイアログを開き、VBScript 経由で「行の表示方法(&D)」のアクセラレータ '''Alt＋D''' と、ドロップダウンリストのアイテムを選択するための矢印キー '''↑'''／'''↓''' のいずれかと、設定の変更を確定するための '''Enter''' キーを送信します。		*非正規メソッド ''ExecuteCommandByID( 2177 )'' で「オプション」ダイアログを開き、VBScript 経由で「行の表示方法(&D)」のアクセラレータ '''Alt＋D''' と、ドロップダウンリストのアイテムを選択するための矢印キー '''↑'''／'''↓''' のいずれかと、設定の変更を確定するための '''Enter''' キーを送信します。
	~~<br>~~
	*マクロ本体となる JavaScript ファイルと、キーストロークを送信するための VBScript ファイル×２が必要です。		*マクロ本体となる JavaScript ファイルと、キーストロークを送信するための VBScript ファイル×２が必要です。
	:※'''「マクロのカスタマイズ」に登録する必要があるのは、"行の表示方法を切り替える.js" ファイルだけです。'''		:※'''「マクロのカスタマイズ」に登録する必要があるのは、"行の表示方法を切り替える.js" ファイルだけです。'''
12行目:		10行目:
	:※ VBScript ファイル×２のファイル名を変更する場合は、"行の表示方法を切り替える.js" 内のコードも書き替えなければなりません。		:※ VBScript ファイル×２のファイル名を変更する場合は、"行の表示方法を切り替える.js" 内のコードも書き替えなければなりません。
	:※ VBScript ファイル×２には、500 ミリ秒の遅延を仕込んでありますが、環境によってはもっと長い遅延が必要になる場合もあります（セキュリティソフトによるスクリプトチェック／ブロックなどが障害となる場合もあります）。<br> また、システムがビジー状態で「オプション」ダイアログが開かれるまでに 500 ミリ秒を経過してしまった場合も、「行の表示方法の切り替え」に失敗します。<br> → 失敗したときは「オプション」ダイアログが開かれたままになります。		:※ VBScript ファイル×２には、500 ミリ秒の遅延を仕込んでありますが、環境によってはもっと長い遅延が必要になる場合もあります（セキュリティソフトによるスクリプトチェック／ブロックなどが障害となる場合もあります）。<br> また、システムがビジー状態で「オプション」ダイアログが開かれるまでに 500 ミリ秒を経過してしまった場合も、「行の表示方法の切り替え」に失敗します。<br> → 失敗したときは「オプション」ダイアログが開かれたままになります。
	~~<br>~~
	*<b style="color:#c00;">このマクロは、Mery.ini の「読み込み」と「書き換え」をします。</b>		*<b style="color:#c00;">このマクロは、Mery.ini の「読み込み」と「書き換え」をします。</b>
	:※「'''読み込み'''」は、マクロ起動時点での「行の表示方法」を取得するためのものです。		:※「'''読み込み'''」は、マクロ起動時点での「行の表示方法」を取得するためのものです。
	:※「'''書き込み'''」は、「オプション」ダイアログで「行の表示方法」の変更をして「OK」ボタンを押したさいに発生するものです（← VBScript からの Enter キーの送信で自動的に「OK」を適用します）。		:※「'''書き込み'''」は、「オプション」ダイアログで「行の表示方法」の変更をして「OK」ボタンを押したさいに発生するものです（← VBScript からの Enter キーの送信で自動的に「OK」を適用します）。
	:※ 素早く連続でこのマクロを実行すると、ファイルアクセスに失敗してエラーを引き起こす可能性があります。		:※ 素早く連続でこのマクロを実行すると、ファイルアクセスに失敗してエラーを引き起こす可能性があります。
	~~<br>~~
	*将来的に Mery 本体の仕様変更によって「オプション」ダイアログの「行の表示方法」の変更のためのキー操作も変更される可能性があります。		*将来的に Mery 本体の仕様変更によって「オプション」ダイアログの「行の表示方法」の変更のためのキー操作も変更される可能性があります。


	== ダウンロード ==		== ダウンロード ==
26行目:		21行目:
	:*SendKeys( Alt+D, Up, Enter ).vbs		:*SendKeys( Alt+D, Up, Enter ).vbs
	:*SendKeys( Alt+D, Down, Enter ).vbs		:*SendKeys( Alt+D, Down, Enter ).vbs


	== ソースコード ==		== ソースコード ==

MSY-07: バージョンの表記を修正

2024-09-03T15:35:32Z

バージョンの表記を修正

← 古い版		2024年9月4日 (水) 00:35時点における版
39行目:		39行目:
	* 「オプション」ダイアログを開いて「行の表示方法」の設定値を切り替える		* 「オプション」ダイアログを開いて「行の表示方法」の設定値を切り替える
	*		*
	* ※ 推奨要件: Mery ~~ver~~ 2.7.5 ～		* ※ 推奨要件: Mery Ver 2.7.5 ～
	*		*
	* ※ 別途、キーストロークを送信するための VBScript ファイル×２が必要		* ※ 別途、キーストロークを送信するための VBScript ファイル×２が必要

MSY-07: /* 変更履歴 */ バージョン表記の追加

2024-09-03T07:54:43Z

変更履歴: バージョン表記の追加

← 古い版		2024年9月3日 (火) 16:54時点における版
160行目:		160行目:

	== 変更履歴 ==		== 変更履歴 ==
	* 2019-08-25		* 1.0.1 (2019-08-25)
	** システムがビジー状態のときにキー送信がエディタ内に作用して改行してしまう不具合に対策		** システムがビジー状態のときにキー送信がエディタ内に作用して改行してしまう不具合に対策
	** VBS ファイルが拡張子「.VBS」の既定のプログラムではなく、WScript.exe で実行されるよう修正		** VBS ファイルが拡張子「.VBS」の既定のプログラムではなく、WScript.exe で実行されるよう修正
	* 2019-08-24		* 1.0.0 (2019-08-24)
	** 初版		** 初版

MSY-07: 見出しの修正、箇条書きの修正

2024-09-03T00:03:17Z

見出しの修正、箇条書きの修正

← 古い版		2024年9月3日 (火) 09:03時点における版
159行目:		159行目:
	</syntaxhighlight>		</syntaxhighlight>

	=== 変更履歴 ===		== 変更履歴 ==
	*2019-08-25:		* 2019-08-25
	~~:・システムがビジー状態のときにキー送信がエディタ内に作用して改行してしまう不具合に対策~~		** システムがビジー状態のときにキー送信がエディタ内に作用して改行してしまう不具合に対策
	~~:・VBS~~ ファイルが拡張子「.VBS」の既定のプログラムではなく、WScript.exe で実行されるよう修正		** VBS ファイルが拡張子「.VBS」の既定のプログラムではなく、WScript.exe で実行されるよう修正
	*2019-08-24:		* 2019-08-24
	:初版		** 初版

MSY-07: 日付のフォーマットを変更

2024-09-02T20:34:38Z

日付のフォーマットを変更

← 古い版		2024年9月3日 (火) 05:34時点における版
22行目:		22行目:

	== ダウンロード ==		== ダウンロード ==
	「[[ファイル:行の表示方法を切り替える.zip]]」　(2019/08/25 更新）		「[[ファイル:行の表示方法を切り替える.zip]]」　(2019-08-25 更新）
	:*行の表示方法を切り替える.js		:*行の表示方法を切り替える.js
	:*SendKeys( Alt+D, Up, Enter ).vbs		:*SendKeys( Alt+D, Up, Enter ).vbs
35行目:		35行目:

	/**		/**
	* sukemaru, (2019/08/24 - 2019/08/25)		* sukemaru, (2019-08-24 - 2019-08-25)
	*		*
	* 「オプション」ダイアログを開いて「行の表示方法」の設定値を切り替える		* 「オプション」ダイアログを開いて「行の表示方法」の設定値を切り替える
160行目:		160行目:

	=== 変更履歴 ===		=== 変更履歴 ===
	*2019/08/25:		*2019-08-25:
	:・システムがビジー状態のときにキー送信がエディタ内に作用して改行してしまう不具合に対策		:・システムがビジー状態のときにキー送信がエディタ内に作用して改行してしまう不具合に対策
	:・VBS ファイルが拡張子「.VBS」の既定のプログラムではなく、WScript.exe で実行されるよう修正		:・VBS ファイルが拡張子「.VBS」の既定のプログラムではなく、WScript.exe で実行されるよう修正
	*2019/08/24:		*2019-08-24:
	:初版		:初版

MSY-07: 箇条書きの順番を変更

2024-09-01T21:09:06Z

箇条書きの順番を変更

← 古い版		2024年9月2日 (月) 06:09時点における版
160行目:		160行目:

	=== 変更履歴 ===		=== 変更履歴 ===
	*2019/08/24:
	~~:初版~~
	*2019/08/25:		*2019/08/25:
	:・システムがビジー状態のときにキー送信がエディタ内に作用して改行してしまう不具合に対策		:・システムがビジー状態のときにキー送信がエディタ内に作用して改行してしまう不具合に対策
	:・VBS ファイルが拡張子「.VBS」の既定のプログラムではなく、WScript.exe で実行されるよう修正		:・VBS ファイルが拡張子「.VBS」の既定のプログラムではなく、WScript.exe で実行されるよう修正
			*2019/08/24:
			:初版

MSY-07: 見出しの修正

2024-09-01T18:49:34Z

見出しの修正

← 古い版		2024年9月2日 (月) 03:49時点における版
159行目:		159行目:
	</syntaxhighlight>		</syntaxhighlight>

	=== ~~更新履歴~~ ===		=== 変更履歴 ===
	*2019/08/24:		*2019/08/24:
	:初版		:初版

MSY-07: タグをタグに置き換え

2023-05-16T19:38:12Z

<source>タグを<syntaxhighlight>タグに置き換え

← 古い版		2023年5月17日 (水) 04:38時点における版
30行目:		30行目:
	== ソースコード ==		== ソースコード ==
	=== 行の表示方法を切り替える.js ===		=== 行の表示方法を切り替える.js ===
	<~~source~~ lang="javascript">		<syntaxhighlight lang="javascript">
	#title = "行の表示方法を切り替える"		#title = "行の表示方法を切り替える"
	#tooltip = "論理行表示と物理行表示を切り替える"		#tooltip = "論理行表示と物理行表示を切り替える"
137行目:		137行目:
	return ( editorVer >= requirement );		return ( editorVer >= requirement );
	}		}
	</~~source~~>		</syntaxhighlight>

	=== SendKeys( Alt+D, Up, Enter ).vbs ===		=== SendKeys( Alt+D, Up, Enter ).vbs ===
	<~~source~~ lang="vb">		<syntaxhighlight lang="vb">
	set WshShell = WScript.CreateObject("WScript.Shell")		set WshShell = WScript.CreateObject("WScript.Shell")

147行目:		147行目:
	' Alt+D, Up, Enter		' Alt+D, Up, Enter
	WshShell.SendKeys "%D{UP}~"		WshShell.SendKeys "%D{UP}~"
	</~~source~~>		</syntaxhighlight>

	=== SendKeys( Alt+D, Down, Enter ).vbs ===		=== SendKeys( Alt+D, Down, Enter ).vbs ===
	<~~source~~ lang="vb">		<syntaxhighlight lang="vb">
	set WshShell = WScript.CreateObject("WScript.Shell")		set WshShell = WScript.CreateObject("WScript.Shell")

157行目:		157行目:
	' Alt+D, Up, Enter		' Alt+D, Up, Enter
	WshShell.SendKeys "%D{DOWN}~"		WshShell.SendKeys "%D{DOWN}~"
	</~~source~~>		</syntaxhighlight>

	=== 更新履歴 ===		=== 更新履歴 ===

Sukemaru: 更新第2版

2019-08-25T06:56:46Z

更新第2版

差分を表示

Sukemaru: ページを新規作成

2019-08-23T18:01:58Z

ページを新規作成

新規ページ

== 概要 ==
「オプション」ダイアログを開いて「行の表示方法」の設定を切り替えます。 
「オプション」ダイアログは自動的に閉じられて、「行の表示方法」の変更が適用されます。

 
*非正規メソッド ''ExecuteCommandByID( 2177 )'' で「オプション」ダイアログを開き、VBScript 経由で「行の表示方法(&D)」のアクセラレータ '''Alt＋D''' と、ドロップダウンリストのアイテムを選択するための矢印キー '''↑'''／'''↓''' のいずれかと、設定の変更を確定するための '''Enter''' キーを送信します。
 
*マクロ本体となる JavaScript ファイルと、キーストロークを送信するための VBScript ファイル×２が必要です。
:※'''「マクロのカスタマイズ」に登録する必要があるのは、"行の表示方法を切り替える.js" ファイルだけです。'''
:※ VBScript ファイル×２は、JS ファイルと同じディレクトリに配置してください。
:※ Windows Explorer の設定（フォルダオプション）でファイル拡張子「.VBS」を開くための「既定のプログラム」にテキストエディタなどを割りあてている場合、「行の表示方法」の切り替えはできません。
:※ VBScript ファイル×２のファイル名を変更する場合は、"行の表示方法を切り替える.js" 内のコードも書き替えなければなりません。
:※ VBScript ファイル×２には、500 ミリ秒の遅延を仕込んでありますが、環境によってはもっと長い遅延が必要になる場合もあります（セキュリティソフトによるスクリプトチェック／ブロックなどが障害となる場合もあります）。
 
*このマクロは、Mery.ini の「読み込み」と「書き換え」をします。
:※ 素早く連続でマクロを実行すると、ファイルアクセスに失敗してエラーを引き起こす可能性があります。
:※「読み込み」は、マクロ起動時点での「行の表示方法」を取得するためのものです。
:※「書き込み」は、「オプション」ダイアログで「行の表示方法」の変更をして「OK」ボタンを押したさいに発生するものです（VBScript からの Enter キーの送信で自動的に「OK」を適用します）。
 
*将来的に Mery 本体の仕様変更によって「オプション」ダイアログの「行の表示方法」の変更のためのキー操作も変更される可能性があります。

== ダウンロード ==
「[[ファイル:行の表示方法を切り替える.zip]]」
:*行の表示方法を切り替える.js
:*SendKeys( Alt+D, Up, Enter ).vbs
:*SendKeys( Alt+D, Down, Enter ).vbs

== ソースコード ==
=== 行の表示方法を切り替える.js ===
<source lang="javascript">
#title = "行の表示方法を切り替える"
#tooltip = "論理行表示と物理行表示を切り替える"

/**
* 「オプション」ダイアログを開いて「行の表示方法」の設定値を切り替える
*
* ※ 別途、キーストロークを送信するための VBScript ファイル×２が必要
* （このマクロの実体ファイルと同じフォルダに配置すること）
*/

// 行の表示方法を取得
var lineColumnView = ( GetIniOptionNum( "LineColumnView" ) == 1 );

// このマクロの親フォルダのパス
var scriptFolderPath = ScriptFullName.slice( 0, - ScriptName.length );

// Sleep(500) と SendKeys() を仕込んだ VBS ファイルのパス
var upVbs = scriptFolderPath + "SendKeys( Alt+D, Up, Enter ).vbs";
var dnVbs = scriptFolderPath + "SendKeys( Alt+D, Down, Enter ).vbs";

var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
var WshShell = new ActiveXObject( "WScript.Shell" );
if ( Fso.FileExists( upVbs ) && Fso.FileExists( upVbs ) ) {
// VBS ファイルを呼び出す
WshShell.Run( "\"" + ( lineColumnView ? dnVbs : upVbs ) + "\"" );
// 「オプション」パネルを開く
editor.ExecuteCommandByID( MEID_TOOLS_OPTIONS = 2177 );
}

/**
* 【改造版】組み込み関数 GetIniOption( key )
*/
function GetIniOptionNum( key ) {
// Mery.ini を探す
var iniPath = editor.FullName.replace( /\.exe$/i, ".ini" );
var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
if ( ! Fso.FileExists( iniPath ) ) {
var iniName = /\\([^\\]+)\.exe$/.exec( editor.FullName )[1];
var WshShell = new ActiveXObject( "WScript.Shell" );
iniPath = WshShell.SpecialFolders( "APPDATA" )
+ "\\Mery\\" + iniName + ".ini";
}
// 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 );
Adodb.Close();

// ini から引数で指定したオプションの値を取得する
var reg = new RegExp( "^" + key + "=[^\\r\\n]*$", "gm" );
var value = iniText.match( reg )[0].substr( key.length + 1 );
iniText = "";
// Number 型で返す
return Number( value );
}
</source>

=== SendKeys( Alt+D, Up, Enter ).vbs ===
<source lang="vb">
set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 500
'' Alt+D, Up, Enter
WshShell.SendKeys "%D{UP}~"
</source>

=== SendKeys( Alt+D, Down, Enter ).vbs ===
<source lang="vb">
set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 500
'' Alt+D, Up, Enter
WshShell.SendKeys "%D{DOWN}~"
</source>