https://www.haijin-boys.com/wiki/api.php?action=feedcontributions&feedformat=atom&user=219.101.174.58
MeryWiki - 利用者の投稿記録 [ja]
2026-04-16T01:56:55Z
利用者の投稿記録
MediaWiki 1.43.6
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9349
テーマの自動変更
2025-12-11T04:17:07Z
<p>219.101.174.58: /* ソースコード */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
[https://apps.microsoft.com/detail/xp89dcgq3k6vld?hl=ja-JP&gl=JP Microsoft PowerToys]の Light Switch や、[https://apps.microsoft.com/detail/xp8jk4hzbvf435?hl=ja-JP&gl=JP Auto Dark Mode]などを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
* マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
:イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#Custom-Light";<br />
var darkModeTheme = "#Custom-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
// Meryの現在のテーマ<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
// Windowsのテーマ状態<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
// 表示設定項目一覧取得<br />
var iniKeys = enumKeysInSection("Theme\\" + newTheme);<br />
if(iniKeys.length > 0){<br />
editor.WriteSettings();<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if(! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject("WScript.Shell")).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp("^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m"));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9348
テーマの自動変更
2025-12-11T04:09:30Z
<p>219.101.174.58: /* 概要 */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
[https://apps.microsoft.com/detail/xp89dcgq3k6vld?hl=ja-JP&gl=JP Microsoft PowerToys]の Light Switch や、[https://apps.microsoft.com/detail/xp8jk4hzbvf435?hl=ja-JP&gl=JP Auto Dark Mode]などを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
* マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
:イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#Custom-Light";<br />
var darkModeTheme = "#Custom-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
// Meryの現在のテーマ<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
// Windowsのテーマ状態<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
// 表示設定項目一覧取得<br />
var iniKeys = enumKeysInSection("Theme\\" + newTheme);<br />
if(iniKeys.length > 0){<br />
editor.WriteSettings();<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9347
テーマの自動変更
2025-12-11T04:03:14Z
<p>219.101.174.58: /* ソースコード */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
[https://apps.microsoft.com/detail/xp89dcgq3k6vld?hl=ja-JP&gl=JP Microsoft PowerToys]の Light Switch や、[https://apps.microsoft.com/detail/xp8jk4hzbvf435?hl=ja-JP&gl=JP Auto Dark Mode]などを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#Custom-Light";<br />
var darkModeTheme = "#Custom-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
// Meryの現在のテーマ<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
// Windowsのテーマ状態<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
// 表示設定項目一覧取得<br />
var iniKeys = enumKeysInSection("Theme\\" + newTheme);<br />
if(iniKeys.length > 0){<br />
editor.WriteSettings();<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9346
テーマの自動変更
2025-12-10T03:56:01Z
<p>219.101.174.58: /* 概要 */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
[https://apps.microsoft.com/detail/xp89dcgq3k6vld?hl=ja-JP&gl=JP Microsoft PowerToys]の Light Switch や、[https://apps.microsoft.com/detail/xp8jk4hzbvf435?hl=ja-JP&gl=JP Auto Dark Mode]などを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#Custom-Light"<br />
var darkModeTheme = "#Custom-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
// Meryの現在のテーマ<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
// Windowsのテーマ状態<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
// 表示設定項目一覧取得<br />
var iniKeys = enumKeysInSection("Theme\\" + newTheme);<br />
if(iniKeys.length > 0){<br />
editor.WriteSettings();<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9345
テーマの自動変更
2025-12-10T03:27:20Z
<p>219.101.174.58: /* ソースコード */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
PowerToysのLight Switchや、Auto Dark Modeなどを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#Custom-Light"<br />
var darkModeTheme = "#Custom-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
// Meryの現在のテーマ<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
// Windowsのテーマ状態<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
// 表示設定項目一覧取得<br />
var iniKeys = enumKeysInSection("Theme\\" + newTheme);<br />
if(iniKeys.length > 0){<br />
editor.WriteSettings();<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9344
テーマの自動変更
2025-12-10T03:25:13Z
<p>219.101.174.58: /* ソースコード */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
PowerToysのLight Switchや、Auto Dark Modeなどを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#Custom-Light"<br />
var darkModeTheme = "#Custom-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
// Meryの現在のテーマ<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
// Windowsのテーマ状態<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
// 表示設定項目一覧取得<br />
var iniKeys = enumKeysInSection("Theme\\" + newTheme);<br />
if(iniKeys.length > 0){<br />
editor.WriteSettings();<br />
<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9343
テーマの自動変更
2025-12-10T01:53:39Z
<p>219.101.174.58: /* ソースコード */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
PowerToysのLight Switchや、Auto Dark Modeなどを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#Custom-Light"<br />
var darkModeTheme = "#Custom-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
// Meryの現在のテーマ<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
// Windowsのテーマ状態<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
// 表示設定項目一覧取得<br />
var iniKeys = enumKeysInSection("Theme\\" + newTheme);<br />
if(iniKeys.length > 0 && editor.ReadSettingString("Theme\\" + newTheme, "GeneralForeColor", "") !== ""){<br />
editor.WriteSettings();<br />
<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%9E%E3%82%AF%E3%83%AD%E3%83%A9%E3%82%A4%E3%83%96%E3%83%A9%E3%83%AA&diff=9342
マクロライブラリ
2025-12-10T01:50:34Z
<p>219.101.174.58: /* おもしろ */</p>
<hr />
<div>Mery 用のマクロ ライブラリです。<br />
<br />
スクリプトを拡張子 "js"（JavaScript、JScript の場合）にして Macros フォルダーなどに保存し、[マクロ] メニューの [選択] や [カスタマイズ] から読み込んで使用してください。<br />
<br />
このマクロ ライブラリはどなたでも自由に編集可能ですので、ご自身が開発した便利なマクロをどんどん共有してください。<br />
<br />
また、[[隠しオプション一覧]]に希望するオプションがあるかもしれませんので、そちらも参照してみてください。<br />
<br />
== テキスト操作補助 ==<br />
* [https://github.com/haijinboys/mery-macro-emmet/blob/master/emmet.js Emmet] (Kuro)<br />
* [[Zen Coding]] (Kuro)<br />
* [[バイト数]] (Kuro, ks)<br />
* [[日付と時刻を挿入]] (n, masme, isari)<br />
* [[日付と時刻を挿入（カレンダー版）]] (papagoat)<br />
* [[選択範囲を上下に移動]] (ks)<br />
* [[TeraPadのCtrl↑と同じような動作をするマクロ]] (suke)<br />
* [[TeraPadのCtrl↓と同じような動作をするマクロ]] (suke)<br />
* [[Vz 風テキストスタック 2 ストロークキー]] (papagoat)<br />
* [[ラクラク罫線]] (手石)<br />
* [[矩形ペースト]] (手石)<br />
* [[自動箇条書き]] (手石)<br />
* [[特殊改行]] (FuG)<br />
* [[部分編集]] (ks)<br />
* [[文字カウント]] (masme)<br />
* [[字下げ・字上げ]] (masme)<br />
* [[数値を増減]] (masme)<br />
* [[上に行挿入]] (yuko)<br />
* [[選択範囲を広げる]] (yuko)<br />
* [[貼付け実行後のカーソル位置を貼付け文字列の先頭にする]] (yuko)<br />
* [[選択した文字列を文書からすべて削除]] (Noah)<br />
* [[文章で使用されている文字をユニーク抽出]] (Kuro)<br />
* [[CSV のカーソル位置の列を削除]] (MSY-07)<br />
* [[XHTML入力補助]] (アラフォー親父)<br />
* [[Markdown文書で改行時にリスト、引用ブロック開始記号を自動入力する]] (catfist, yuko)<br />
* [[Markdown 向け、リスト記号 (*) のトグル]] (yuko)<br />
* [[Markdown 向け、タスクリスト (* ［］) のチェック状態をトグル]] (yuko)<br />
* [[Markdown入力補助]] (急急如律令)<br />
* [[青空文庫用整形補助]] (ks, 急急如律令)<br />
* [[自動ルビ振り]] (急急如律令)<br />
* [[ドイツ語特殊文字]] (鯉)<br />
* [[何年生で習う漢字？]] (シリル)<br />
* [[操作の繰り返し]] (Kuro)<br />
<br />
== ファイル操作補助 ==<br />
* [[フォルダ内のファイルをすべて開く]] (Kuro)<br />
* [[ファイルを比較]] (Kuro, MSY-07)<br />
* [[ファイル名を引数にしてアプリ起動]] (Kuro, miso)<br />
* [[文字列中のパス起動]] (ks)<br />
* [[パス・URLを開く コマンドを実行する]] (yuko)<br />
* [[開いている文書のファイル名を変更する]] (yuko)<br />
* [[上書き保存(UAC対応)]] (ks)<br />
* [[含んでいるフォルダを開く]] (ks)<br />
* [[フォルダを開く]] (n)<br />
* [[拡張子の違うファイルを開く]] (n)<br />
* [[コマンドプロンプトを開く]] (n)<br />
* [[ブックマーク一覧ジャンプ]] (goat)<br />
* [[よく使うフォルダ]] (手石)<br />
* [[ファイル（選択範囲）の仮保存]] (手石)<br />
* [[ポップアップメニューでファイル選択]] (手石)<br />
* [[フォルダツリーをポップアップ表示]] (n)<br />
* [[タグジャンプ]] (o)<br />
* [[ウィンドウの位置とサイズを拡張子で指定]] (papagoat)<br />
* [[編集モードの自動選択]] (Bleat)<br />
* [[書き換え禁止モード色反転]] (Bleat)<br />
* [[変更なしのタブをすべて閉じる]] (Noah)<br />
<br />
== 変換・ソート・整形 ==<br />
* [[標準変換]] (Kuro, MSY-07)<br />
* [[テキスト変換]] (ks)<br />
* [[テキスト整形]] (masme)<br />
* [[旧漢字から新漢字に変換]] (furu)<br />
* [[Unicode正規化]] (ucky)<br />
* [[Wikipediaマークアップ修正]] (MSY-07)<br />
* [[SHA でハッシュ化]] (Kuro)<br />
* [[ブックマーク系コマンド集]] (ks)<br />
* [[clustalw を用いてアライメントを実行]] (suke)<br />
* [[clustal-omegaを用いてアライメントを実行]] (suke)<br />
* [[連番の挿入]] (手石)<br />
* [[連番を挿入]] (masme)<br />
* [[マルチカーソルに連番を入力]] (yuko)<br />
* [[行並べ替え]] (masme)<br />
* [[自然数ソート]] (tak)<br />
* [[可変長を固定長に変換]] (MSY-07)<br />
* [[TSV(CSV) ⇒ 固定長]] (手石)<br />
* [[GFMをHTMLに変換]] (noonworks)<br />
* [[基数変換10 16]] (シリル)<br />
* [[スネークケース ⇔ キャメルケースの変換]] (Noah)<br />
<br />
== 検索・置換 ==<br />
* [[文書から検索]] (Kuro)<br />
* [[単語を抽出]] (Kuro)<br />
* [[タグの外側（内側）だけ置換]] (手石)<br />
* [[ポップアップメニューで検索先にジャンプ]] (手石)<br />
* [[検索(SJIS以外)]] (masme)<br />
* [https://github.com/TakamiChie/mery-scripts/blob/master/SearchWithMode.js 現在開いているファイルの言語名をつけてWeb検索] (高見知英)<br />
* [https://github.com/GunseiKPaseri/Mery_macro/blob/master/count.js 文字出現量ランキング] (群生系パセリ)<br />
* [[検索ヒット数表示]] (ks)<br />
* [[任意の検索エンジンで検索]] (Noah)<br />
* [[任意の検索エンジンで検索ー改良版]] (Takeshi)<br />
* [[デフォルトの検索フラグを設定して検索ウィンドウ表示]] (yuko)<br />
* [[複数置換]] (Noah)<br />
* [[類義語アウトプット【Python】]] (シリル)<br />
* [[校正支援アウトプット]] (シリル)<br />
* [[見出しジャンプ]] (yuko)<br />
* [[CSV/TSVでアクティブ列選択]] (yuko)<br />
<br />
== プログラミング補助 ==<br />
* [[Eclipse風コメントアウト]] (ks)<br />
* [[Eclipse風コメントアウト(改)]] (pizz)<br />
* [[コメントマーク付け外し]] (手石, masme)<br />
* [[スマートインデント(C 構文)]] (ks)<br />
* [[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)<br />
* [[タグファイルから補完]] (n)<br />
* [[コードスニペットもどき]] (手石)<br />
* [[TeX文書のコンパイル]] (手石, isari)<br />
* [[簡易数式計算]] (ks)<br />
* [[定義へ移動]] (ks)<br />
* [[タブの桁数]] (手石)<br />
* [[行末の空白を削除]] (n)<br />
* [https://github.com/TakamiChie/mery-scripts/blob/master/FileExecutor.js 開いているスクリプトファイルを実行] (高見知英)<br />
* [https://github.com/TakamiChie/mery-scripts/blob/master/SyntaxChecker.js 開いているスクリプトファイルを構文チェック] (高見知英)<br />
* [[説明を出力]] (s)<br />
* [[JSON整形]] (Ovis)<br />
* [[コンソール実行]] (YOS G-spec)<br />
* [[拡張子からコンソール実行]] (YOS G-spec)<br />
* [[ScriptRun]] (fuka)<br />
* [[JavaScript を実行]] (n)<br />
* [[Ruby を実行]] (n)<br />
* [[HSPキーワード検索]] (SSSE)<br />
<br />
== おもしろ ==<br />
* [[メール送信]] (ks)<br />
* [[あつまれ☆みんなのおもしろアイコン]] (シリル, ucky)<br />
* [[テーマのトグル]] (ucky)<br />
* [[テーマの自動変更]] (pizz)<br />
* [[お気に入りフォント]] (ucky)<br />
* [[Google Gemini に相談]] (yuko)<br />
* [[OpenAI GPT に相談]] (yuko)<br />
* [[Groq に相談]] (yuko)<br />
* [[Google Gemini で執筆支援]] (Kuro)<br />
* [[MeryToys]] (Kuro)<br />
<br />
== その他 ==<br />
* [[最新版を確認]] (diaphragm)<br />
* [[SAPI 使って単語読み上げ]] (miso)<br />
* [[フォルダ選択ダイアログ]] (手石)<br />
* [[HTA(HTML)の自作ダイアログを表示]] (noonworks)<br />
* [[ポップアップメニューを手軽に扱う]] (komorebikoboshi)<br />
* [[ポップアップメニューでチェックボックス]] (手石)<br />
* [[ポップアップメニューでラジオボタン]] (手石)<br />
* [[マクロ・関数をメニューで呼び出す]] (aliquis)<br />
* [[階層化マクロメニュー]] (ks)<br />
* [[シェルコマンドを実行]] (sasaki)<br />
* [[Editor.OpenFile()のポリフィル]] (kazy)<br />
* [[折り返しトグル切り替え]] (Bleat)<br />
* [[Beep音の例]] (star0worshipper)<br />
* [[ブラウザ風タブ移動]] (yuko)<br />
* [[タブ位置を先頭/末尾に移動]] (yuko)<br />
* [[Mery 電卓]] (yuko)<br />
* [[Mery 電卓 (bc コマンド使用版)]] (yuko)<br />
<br />
== 開発者向け ==<br />
* [[キーアサイン集]] (ks, masme, isari)<br />
* [[includeライブラリ]] (ks)<br />
* [[マクロ覚え書き（開発者向け）]] (ks, papagoat)<br />
<br />
== 注意事項 ==<br />
[https://www.haijin-boys.com/software/mery/mery-2-6-6#5 Mery Ver 2.6.6]以前に作成されたマクロが動作しない場合は下記のページを参照してください。<br />
<br />
* [https://www.haijin-boys.com/wiki/%E3%83%9E%E3%82%AF%E3%83%AD%E3%83%AA%E3%83%95%E3%82%A1%E3%83%AC%E3%83%B3%E3%82%B9:3:%E3%83%87%E3%82%A3%E3%83%AC%E3%82%AF%E3%83%86%E3%82%A3%E3%83%96##language マクロリファレンス:3:ディレクティブ]<br />
* [https://www.haijin-boys.com/discussions/6929 公式のマクロ 箇条書きが最新メリーで動作するかチェックいただけませんか？]</div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9341
テーマの自動変更
2025-12-10T01:48:45Z
<p>219.101.174.58: /* ソースコード */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
PowerToysのLight Switchや、Auto Dark Modeなどを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#Custom-Light"<br />
var darkModeTheme = "#Custom-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
// Meryの現在のテーマ<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
// Windowsのテーマ状態<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
// 表示設定項目一覧取得<br />
var iniKeys = enumKeysInSection("Theme\\" + newTheme);<br />
if(iniKeys.length > 0 && editor.ReadSettingString("Theme\\" + newTheme, "GeneralForeColor", "") !== ""){<br />
editor.WriteSettings();<br />
<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9340
テーマの自動変更
2025-12-10T01:44:16Z
<p>219.101.174.58: /* ソースコード */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
PowerToysのLight Switchや、Auto Dark Modeなどを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#Custom-Light"<br />
var darkModeTheme = "#Custom-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
var iniKeys = enumKeysInSection("Theme\\" + newThem);<br />
if(iniKeys.length > 0 && editor.ReadSettingString("Theme\\" + newThem, "GeneralForeColor", "") !== ""){<br />
editor.WriteSettings();<br />
<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9339
テーマの自動変更
2025-12-10T01:39:35Z
<p>219.101.174.58: /* 概要 */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせて、Meryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
PowerToysのLight Switchや、Auto Dark Modeなどを使用すると、Windowsのテーマを時間で自動変更するなどができますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#MyTheme-Light"<br />
var darkModeTheme = "#MyTheme-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
var iniSection = "Theme\\" + newTheme;<br />
var iniKeys = enumKeysInSection(iniSection);<br />
if(iniKeys.length > 0 && editor.ReadSettingString(iniSection, "GeneralForeColor", "") !== ""){<br />
editor.WriteSettings();<br />
<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9338
テーマの自動変更
2025-12-10T01:38:09Z
<p>219.101.174.58: /* 概要 */</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせてMeryのエディタ部のテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
PowerToysのLight Switchや、Auto Dark Modeなどでは、Windowsのテーマを時間で自動変更するなどの機能がありますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#MyTheme-Light"<br />
var darkModeTheme = "#MyTheme-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
var iniSection = "Theme\\" + newTheme;<br />
var iniKeys = enumKeysInSection(iniSection);<br />
if(iniKeys.length > 0 && editor.ReadSettingString(iniSection, "GeneralForeColor", "") !== ""){<br />
editor.WriteSettings();<br />
<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E8%87%AA%E5%8B%95%E5%A4%89%E6%9B%B4&diff=9337
テーマの自動変更
2025-12-10T01:37:22Z
<p>219.101.174.58: ページの作成:「== 概要 == Windowsのテーマ設定に合わせてMeryのテーマを自動変更します。 Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。 PowerToysのLight Switchや、Auto Dark Modeなどでは、Windowsのテーマを時…」</p>
<hr />
<div>== 概要 ==<br />
Windowsのテーマ設定に合わせてMeryのテーマを自動変更します。<br />
<br />
Meryのオプションで、「アプリのテーマ」を「システム設定を使用する」とすると、Windowsに合わせてMeryのテーマが変更されるようになりますが、エディタ部のテーマはこれとは別に設定変更する必要があります。<br />
<br />
PowerToysのLight Switchや、Auto Dark Modeなどでは、Windowsのテーマを時間で自動変更するなどの機能がありますが、Mery本体はこれに追随するのに、エディタ部のテーマだけ置き去りになって、なんか悲しかったので作りました。<br />
<br />
* Meryのオプション->「基本」->「アプリのテーマ」で、「システム設定を使用する」としている場合のみ動作するようにしてあります。<br />
* ライトモード/ダークモード用のテーマを用意しておき、マクロ先頭でテーマ名を指定します<br />
:(Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
<br />
テーマを書き換えるアイディアは、ucky様の「[https://www.haijin-boys.com/wiki/%E3%83%86%E3%83%BC%E3%83%9E%E3%81%AE%E3%83%88%E3%82%B0%E3%83%AB テーマのトグル]」マクロからいただきましたが、表示設定項目が増えた場合などのメンテナンスが面倒だったので、別途対応を行っています。<br />
<br />
== 変更履歴 ==<br />
* 2025-12-10<br />
** 新規作成<br />
<br />
== ソースコード ==<br />
<syntaxhighlight lang="javascript" copy><br />
#title = "テーマの自動変更"<br />
<br />
// ライトモード/ダークモード用のテーマを用意しておき、ここでテーマ名を指定します<br />
// (Mery標準のテーマは使えません、「名前を付けて保存」したテーマを使用します)<br />
var lightModeTheme = "#MyTheme-Light"<br />
var darkModeTheme = "#MyTheme-Dark";<br />
<br />
// マクロのカスタマイズ画面のリストに登録したら、イベントを有効にします<br />
// イベントはお好みで...(「フォーカスを受け取った時」「フォーカスを失った時」くらいが妥当だと思います)<br />
// Meryのオプション->「基本」->「アプリのテーマ」で、<br />
// 「システム設定を使用する」としている場合のみ動作するようにしてあります<br />
<br />
if ("ReadSettings" in editor) {<br />
if(editor.ReadSettingInteger("General", "DarkMode", -1) == 2){<br />
var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");<br />
var regKey = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Themes\\Personalize\\AppsUseLightTheme";<br />
var isLight = (new ActiveXObject("WScript.Shell")).RegRead(regKey);<br />
var newTheme;<br />
if(isLight == 0){<br />
newTheme = darkModeTheme;<br />
}else{<br />
newTheme = lightModeTheme;<br />
}<br />
if(currentTheme != newTheme){<br />
var iniSection = "Theme\\" + newTheme;<br />
var iniKeys = enumKeysInSection(iniSection);<br />
if(iniKeys.length > 0 && editor.ReadSettingString(iniSection, "GeneralForeColor", "") !== ""){<br />
editor.WriteSettings();<br />
<br />
editor.WriteSettingString("Themes", "ThemeName", newTheme);<br />
<br />
// テーマを「名前を付けて保存」したときに設定ファイルに追加される<br />
// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える<br />
for(var i = 0; i < iniKeys.length; i++){<br />
editor.WriteSettingString("Display", iniKeys[i],<br />
editor.ReadSettingString("Theme\\" + newTheme, iniKeys[i], "")<br />
);<br />
}<br />
<br />
editor.ReadSettings();<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("指定されたテーマが見つかりません: " + newTheme);<br />
}<br />
}<br />
}<br />
}else{<br />
window.OutputBar.Clear();<br />
window.OutputBar.Visible = true;<br />
window.OutputBar.Writeln("動作対象外のMeryです: Ver." + editor.Version);<br />
}<br />
<br />
// Mery.iniから指定セクションのキー名一覧を取得する<br />
function enumKeysInSection(sectionName){<br />
var keys = [];<br />
<br />
// Mery.ini を探す<br />
var iniPath = editor.FullName.replace(/\.exe$/i, ".ini");<br />
if (! (new ActiveXObject("Scripting.FileSystemObject")).FileExists(iniPath)){<br />
var iniName = /\\([^\\]+)\.exe$/.exec(editor.FullName)[1];<br />
iniPath = (new ActiveXObject( "WScript.Shell" )).SpecialFolders("APPDATA") + "\\Mery\\" + iniName + ".ini";<br />
}<br />
// Mery.ini を読みこむ<br />
var adodb = new ActiveXObject("adodb.Stream");<br />
var adTypeText = 2, adReadAll = -1;<br />
adodb.Type = adTypeText, adodb.Charset = "UTF-8";<br />
adodb.Open();<br />
adodb.LoadFromFile(iniPath);<br />
var iniText = adodb.ReadText(adReadAll);<br />
adodb.Close();<br />
<br />
var start = iniText.search(new RegExp( "^\\[" + sectionName.replace(/\W/g, "\\$&") + "\\]$", "m" ));<br />
if(start >= 0){<br />
start = start + sectionName.length + 4;<br />
var end = iniText.indexOf("\r\n[", start);<br />
if(end < 0) end = iniText.length;<br />
<br />
var rows = iniText.slice(start, end).split("\r\n");<br />
for(var i = 0; i < rows.length; i++){<br />
var keyEnd = rows[i].indexOf("=");<br />
if(keyEnd > 0){<br />
keys.push(rows[i].slice(0, keyEnd));<br />
}<br />
}<br />
}<br />
return keys;<br />
}<br />
</syntaxhighlight></div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=GetKeyState.exe(%E3%82%AD%E3%83%BC%E7%8A%B6%E6%85%8B%E5%8F%96%E5%BE%97%E5%AE%9F%E8%A1%8C%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB)&diff=7507
GetKeyState.exe(キー状態取得実行ファイル)
2024-07-02T07:09:14Z
<p>219.101.174.58: /* 概要 */</p>
<hr />
<div>== 概要 ==<br />
----------<br />
Mery Ver 3.7.2 から、shell.GetKeyStateメソッドが使えるようになりました。<br />
プロセス起動のタイムラグなど、パフォーマンス面でも有利ですし、柔軟性も高いので、該当バージョンが利用できるなら、上記メソッドの利用も検討してください。<br />
----------<br />
<br />
修飾キーの押下状態を取得する実行ファイルです。<br />
<br />
Shift、Ctrl、Alt いずれかのキーの押下状態を取得できます。マクロスクリプトからキー状態を取得し、状態に応じて動作をコントロールしたくて作成しました。<br />
<br />
作成されたマクロから利用できますので、ご自由にお使いください。<br />
<br />
zipファイルをダウンロードしたら、ファイルのプロパティ画面で「ブロックの解除」を行ってください（これをしないと実行時に警告が表示されることがあります）。<br />
<br />
その後、zipファイルを展開して、マクロから実行されるフォルダーに配置してください（推奨は '''"Macros"フォルダー'''とします）。<br />
<br />
== ダウンロード ==<br />
[[ファイル:GetKeyState.zip]]<br />
<br />
== 更新履歴 ==<br />
2019/3/4 新規作成<br />
<br />
2019/3/23 公開ページの変更（中身に変更はありません）<br />
<br />
== 使い方 ==<br />
コマンドライン引数で、"Shift" "Ctrl" "Alt" のいずれかを渡してください。<br />
<br />
<pre><br />
GetKeyState.exe shift // Shiftキーの押下状態を取得する場合<br />
</pre><br />
<br />
* 大文字小文字は区別しません<br />
* 実は先頭の1文字しか判断していませんので、"s"のみとかでも大丈夫です<br />
<br />
戻り値（終了コード）<br />
* 1: キーが押されている<br />
* 0: キーは押されていない<br />
* -1: エラー（引数間違い、メッセージボックスを表示します）<br />
<br />
マクロにショートカットキーを割り当てる際は、該当する修飾キー "あり" と "なし" の両方を割り当ててください<br />
* Shift+F8 / F8 など<br />
<br />
ツールバーにアイコン化しているマクロの場合は、"修飾キー＋クリック" か "ふつうの左クリック" かでマクロの動作を切り替えることができます。<br />
<br />
ツールバーの [マクロ] メニューや右クリックメニューから実行する際は、Shift または Ctrl キーを押しながら実行することができますが、Alt キーを押しながら実行することはできません（Alt キーでメニューのポップアップ表示がキャンセルされるため）。<br />
<br />
起動までに若干のタイムラグがありますので、すばやく操作すると取りこぼすことがあります。そういう意味では、ショートカットキーにはあまり向かないかもしれません。私は、ツールバー起動で使っています。<br />
<br />
: ※マクロの処理が開始するか終了するまで修飾キーを押しつづければ、取りこぼしはなくなります。また、マクロの処理が全体的に重い／長いソースコードの場合は、[[#実装例|実装例]] にあるような修飾キー取得コードの部分をソースコードの先頭に配置するとよいでしょう。<br />
<br />
== 実装例 ==<br />
サンプルコードの<br />
<br />
<syntaxhighlight lang="javascript"><br />
window.Alert( "XXキーが押されています" );<br />
</syntaxhighlight><br />
<br />
の部分を任意の動作コードに置きかえてください。マクロの動作内容に変化をつけたり、複数のマクロの実行コードを振り分けてひとつのマクロにまとめたりすることができます。<br />
<br />
;サンプルコード1<br />
<syntaxhighlight lang="javascript"><br />
var wshShell = new ActiveXObject("WScript.Shell");<br />
<br />
// カレントディレクトリをマクロディレクトリに変更<br />
wshShell.CurrentDirectory = editor.FullName.match(/^.*\\/)[0] + 'Macros';<br />
<br />
// SHIFTキー状態を取得<br />
var shift = wshShell.Run("GetKeyState.exe shift", 0, true);<br />
<br />
if(shift != -1){<br />
if(shift == 1) window.Alert("Shiftキーが押されています");<br />
}<br />
</syntaxhighlight><br />
<br />
;サンプルコード2<br />
* 実行ファイル GetKeyState.exe の実在確認をします（GetKeyState がない場合でも動作する）<br />
* カレントディレクトリ（Mery.exe の作業フォルダ）を変更しません<br />
<syntaxhighlight lang="javascript"><br />
var ctrl = 0, alt = 0;<br />
<br />
// GetKeyState.exe のフルパスを " " で囲う<br />
var gks = '"' + editor.FullName.replace( /[^\\]+$/ , '' )<br />
+ 'Macros\\GetKeyState.exe"';<br />
<br />
// 半角空白＋コマンドライン引数をつけて GetKeyState を実行する（実行ファイルの実在確認をする）<br />
if ( new ActiveXObject( "Scripting.FileSystemObject" ).FileExists( gks ) ) {<br />
var wshShell = new ActiveXObject('WScript.Shell');<br />
<br />
// Ctrl キーの状態を取得<br />
ctrl = wshShell.Run( gks + ' control', 0, true );<br />
// Alt キーの状態を取得<br />
alt = WshShell.Run( gks + ' alt' , 0, true );<br />
}<br />
<br />
// 修飾キーによる動作の切り替え<br />
if ( ctrl > 0 && alt > 0 ) {<br />
window.Alert( "CtrlキーとAltキーが押されています" );<br />
}<br />
else if ( ctrl > 0 ) {<br />
window.Alert( "Ctrlキーが押されています" );<br />
}<br />
else if ( Alt > 0 ) {<br />
window.Alert( "Altキーが押されています" );<br />
}<br />
else {<br />
window.Alert( "修飾キーは押されていません" ); // ← GetKeyState.exe がない場合も<br />
}<br />
</syntaxhighlight><br />
<br />
;サンプルコード3<br />
ポップアップメニューマクロへの導入サンプル<br />
*メニューに表示する内容や、選択した項目から実行するコマンドを切り替えます<br />
<syntaxhighlight lang="javascript"><br />
var gks = editor.FullName.replace( /[^\\]+$/i , "" )<br />
+ "Macros\\GetKeyState.exe";<br />
var WshShell = new ActiveXObject( "WScript.Shell" );<br />
<br />
// マクロ開始時の Ctrl キーの状態を取得<br />
var $ctrl1 = WshShell.Run( "\"" + gks + "\" ctrl", 0, true );<br />
<br />
var menu = CreatePopupMenu();<br />
menu.Add( "ほげ", 1 );<br />
<br />
// Ctrl キーを押しながら実行したときは、項目を追加表示する<br />
if ( $ctrl1 == 1 ) {<br />
menu.Add( "ほげほげ", 2 );<br />
}<br />
<br />
// ポップアップメニューを表示<br />
var r = menu.Track( mePosMouse );<br />
<br />
// Ctrl キーを押しながら項目を選択したときは、動作をを変更する<br />
var $ctrl2 = WshShell.Run( "\"" + gks + "\" ctrl", 0, true );<br />
<br />
switch( r ) {<br />
case 1:<br />
if ( $ctrl2 === 0 ) window.Alert( "ほげ" );<br />
else if ( $ctrl2 === 1 ) window.Alert( "ふが" );<br />
break;<br />
<br />
case 2:<br />
if ( $ctrl2 === 0 ) window.Alert( "ほげほげ" );<br />
else if ( $ctrl2 === 1 ) window.Alert( "ふがふが" );<br />
break;<br />
<br />
default:<br />
break;<br />
}<br />
</syntaxhighlight><br />
<br />
== その他 ==<br />
ソースも置いときます(VS2005 C++)（こちらは通常ダウンロードの必要はありません）<br />
<br />
[[ファイル:GetKeyStateSrc.zip]]<br />
<br />
※ 著作権は放棄します。悪意のない公序良俗の範囲内でしたら、ソースを含めご自由にお使いください（そのかわり、一切の責任も放棄します...まぁ、こんなもので誤動作もあったもんじゃないですが、派生版まで責任が持てないので）。<br />
<br />
----<br />
* ページ内の説明文、サンプルコードに加筆させていただきました (2019/03/23 - 2019/12/02, sukemaru)</div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=GetKeyState.exe(%E3%82%AD%E3%83%BC%E7%8A%B6%E6%85%8B%E5%8F%96%E5%BE%97%E5%AE%9F%E8%A1%8C%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB)&diff=7506
GetKeyState.exe(キー状態取得実行ファイル)
2024-07-02T07:08:25Z
<p>219.101.174.58: </p>
<hr />
<div>== 概要 ==<br />
----------<br />
Mery Ver 3.7.2 から、shell.GetKeyStateメソッドが使えるようになりました。<br />
プロセス起動のタイムラグなど、パフォーマンス面でも有利ですし、柔軟性も高いので、上記以降のバージョンが利用できるなら、上記メソッドの利用も検討してください。<br />
----------<br />
<br />
修飾キーの押下状態を取得する実行ファイルです。<br />
<br />
Shift、Ctrl、Alt いずれかのキーの押下状態を取得できます。マクロスクリプトからキー状態を取得し、状態に応じて動作をコントロールしたくて作成しました。<br />
<br />
作成されたマクロから利用できますので、ご自由にお使いください。<br />
<br />
zipファイルをダウンロードしたら、ファイルのプロパティ画面で「ブロックの解除」を行ってください（これをしないと実行時に警告が表示されることがあります）。<br />
<br />
その後、zipファイルを展開して、マクロから実行されるフォルダーに配置してください（推奨は '''"Macros"フォルダー'''とします）。<br />
<br />
== ダウンロード ==<br />
[[ファイル:GetKeyState.zip]]<br />
<br />
== 更新履歴 ==<br />
2019/3/4 新規作成<br />
<br />
2019/3/23 公開ページの変更（中身に変更はありません）<br />
<br />
== 使い方 ==<br />
コマンドライン引数で、"Shift" "Ctrl" "Alt" のいずれかを渡してください。<br />
<br />
<pre><br />
GetKeyState.exe shift // Shiftキーの押下状態を取得する場合<br />
</pre><br />
<br />
* 大文字小文字は区別しません<br />
* 実は先頭の1文字しか判断していませんので、"s"のみとかでも大丈夫です<br />
<br />
戻り値（終了コード）<br />
* 1: キーが押されている<br />
* 0: キーは押されていない<br />
* -1: エラー（引数間違い、メッセージボックスを表示します）<br />
<br />
マクロにショートカットキーを割り当てる際は、該当する修飾キー "あり" と "なし" の両方を割り当ててください<br />
* Shift+F8 / F8 など<br />
<br />
ツールバーにアイコン化しているマクロの場合は、"修飾キー＋クリック" か "ふつうの左クリック" かでマクロの動作を切り替えることができます。<br />
<br />
ツールバーの [マクロ] メニューや右クリックメニューから実行する際は、Shift または Ctrl キーを押しながら実行することができますが、Alt キーを押しながら実行することはできません（Alt キーでメニューのポップアップ表示がキャンセルされるため）。<br />
<br />
起動までに若干のタイムラグがありますので、すばやく操作すると取りこぼすことがあります。そういう意味では、ショートカットキーにはあまり向かないかもしれません。私は、ツールバー起動で使っています。<br />
<br />
: ※マクロの処理が開始するか終了するまで修飾キーを押しつづければ、取りこぼしはなくなります。また、マクロの処理が全体的に重い／長いソースコードの場合は、[[#実装例|実装例]] にあるような修飾キー取得コードの部分をソースコードの先頭に配置するとよいでしょう。<br />
<br />
== 実装例 ==<br />
サンプルコードの<br />
<br />
<syntaxhighlight lang="javascript"><br />
window.Alert( "XXキーが押されています" );<br />
</syntaxhighlight><br />
<br />
の部分を任意の動作コードに置きかえてください。マクロの動作内容に変化をつけたり、複数のマクロの実行コードを振り分けてひとつのマクロにまとめたりすることができます。<br />
<br />
;サンプルコード1<br />
<syntaxhighlight lang="javascript"><br />
var wshShell = new ActiveXObject("WScript.Shell");<br />
<br />
// カレントディレクトリをマクロディレクトリに変更<br />
wshShell.CurrentDirectory = editor.FullName.match(/^.*\\/)[0] + 'Macros';<br />
<br />
// SHIFTキー状態を取得<br />
var shift = wshShell.Run("GetKeyState.exe shift", 0, true);<br />
<br />
if(shift != -1){<br />
if(shift == 1) window.Alert("Shiftキーが押されています");<br />
}<br />
</syntaxhighlight><br />
<br />
;サンプルコード2<br />
* 実行ファイル GetKeyState.exe の実在確認をします（GetKeyState がない場合でも動作する）<br />
* カレントディレクトリ（Mery.exe の作業フォルダ）を変更しません<br />
<syntaxhighlight lang="javascript"><br />
var ctrl = 0, alt = 0;<br />
<br />
// GetKeyState.exe のフルパスを " " で囲う<br />
var gks = '"' + editor.FullName.replace( /[^\\]+$/ , '' )<br />
+ 'Macros\\GetKeyState.exe"';<br />
<br />
// 半角空白＋コマンドライン引数をつけて GetKeyState を実行する（実行ファイルの実在確認をする）<br />
if ( new ActiveXObject( "Scripting.FileSystemObject" ).FileExists( gks ) ) {<br />
var wshShell = new ActiveXObject('WScript.Shell');<br />
<br />
// Ctrl キーの状態を取得<br />
ctrl = wshShell.Run( gks + ' control', 0, true );<br />
// Alt キーの状態を取得<br />
alt = WshShell.Run( gks + ' alt' , 0, true );<br />
}<br />
<br />
// 修飾キーによる動作の切り替え<br />
if ( ctrl > 0 && alt > 0 ) {<br />
window.Alert( "CtrlキーとAltキーが押されています" );<br />
}<br />
else if ( ctrl > 0 ) {<br />
window.Alert( "Ctrlキーが押されています" );<br />
}<br />
else if ( Alt > 0 ) {<br />
window.Alert( "Altキーが押されています" );<br />
}<br />
else {<br />
window.Alert( "修飾キーは押されていません" ); // ← GetKeyState.exe がない場合も<br />
}<br />
</syntaxhighlight><br />
<br />
;サンプルコード3<br />
ポップアップメニューマクロへの導入サンプル<br />
*メニューに表示する内容や、選択した項目から実行するコマンドを切り替えます<br />
<syntaxhighlight lang="javascript"><br />
var gks = editor.FullName.replace( /[^\\]+$/i , "" )<br />
+ "Macros\\GetKeyState.exe";<br />
var WshShell = new ActiveXObject( "WScript.Shell" );<br />
<br />
// マクロ開始時の Ctrl キーの状態を取得<br />
var $ctrl1 = WshShell.Run( "\"" + gks + "\" ctrl", 0, true );<br />
<br />
var menu = CreatePopupMenu();<br />
menu.Add( "ほげ", 1 );<br />
<br />
// Ctrl キーを押しながら実行したときは、項目を追加表示する<br />
if ( $ctrl1 == 1 ) {<br />
menu.Add( "ほげほげ", 2 );<br />
}<br />
<br />
// ポップアップメニューを表示<br />
var r = menu.Track( mePosMouse );<br />
<br />
// Ctrl キーを押しながら項目を選択したときは、動作をを変更する<br />
var $ctrl2 = WshShell.Run( "\"" + gks + "\" ctrl", 0, true );<br />
<br />
switch( r ) {<br />
case 1:<br />
if ( $ctrl2 === 0 ) window.Alert( "ほげ" );<br />
else if ( $ctrl2 === 1 ) window.Alert( "ふが" );<br />
break;<br />
<br />
case 2:<br />
if ( $ctrl2 === 0 ) window.Alert( "ほげほげ" );<br />
else if ( $ctrl2 === 1 ) window.Alert( "ふがふが" );<br />
break;<br />
<br />
default:<br />
break;<br />
}<br />
</syntaxhighlight><br />
<br />
== その他 ==<br />
ソースも置いときます(VS2005 C++)（こちらは通常ダウンロードの必要はありません）<br />
<br />
[[ファイル:GetKeyStateSrc.zip]]<br />
<br />
※ 著作権は放棄します。悪意のない公序良俗の範囲内でしたら、ソースを含めご自由にお使いください（そのかわり、一切の責任も放棄します...まぁ、こんなもので誤動作もあったもんじゃないですが、派生版まで責任が持てないので）。<br />
<br />
----<br />
* ページ内の説明文、サンプルコードに加筆させていただきました (2019/03/23 - 2019/12/02, sukemaru)</div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%82%B5%E3%83%B3%E3%83%89%E3%83%9C%E3%83%83%E3%82%AF%E3%82%B9&diff=3737
サンドボックス
2019-02-27T04:34:28Z
<p>219.101.174.58: /* ここから下に書き込んでください */</p>
<hr />
<div>ここは MeryWiki で編集・執筆をするための練習や実験などに使用できるページです。初心者の方はまずこちらで Wiki の編集をしてみてください。<br />
<br />
== ここから下に書き込んでください ==<br />
<br />
=== <nowiki>===</nowiki>の見出し。 ===<br />
<br />
http://www.mediawiki.org/wiki/Help:Formatting/ja を見た。<br />
<br />
<nowiki><pre></nowiki>の表示が違ってた。<br />
<br />
ソースの表示は<nowiki><pre>と<script></nowiki>があるのかな？<br />
行頭半角空けでもいいみたい。<br />
<br />
<br />
'''太字は<nowiki>'''</nowiki>で囲う'''<br />
<br />
''斜体は<nowiki>''</nowiki>で囲う''<br />
<br />
内部リンク（例：[[ダウンロード]]）は<nowiki>[[～]]</nowiki>で囲う。<br />
<br />
秀丸と同じgrep<br />
ファイルじゃなくて、(現在の内容)で出来れば<br />
完璧なのに<br />
<br />
↑<br />
[[このファイルから検索(マッチする行)]]<br />
<br />
ゲッツ<br />
<br />
[[ファイル:アップロードはどうやるんだろ.zip]]</div>
219.101.174.58
https://www.haijin-boys.com/wiki/index.php?title=%E3%82%B5%E3%83%B3%E3%83%89%E3%83%9C%E3%83%83%E3%82%AF%E3%82%B9&diff=3736
サンドボックス
2019-02-27T04:33:00Z
<p>219.101.174.58: /* ここから下に書き込んでください */</p>
<hr />
<div>ここは MeryWiki で編集・執筆をするための練習や実験などに使用できるページです。初心者の方はまずこちらで Wiki の編集をしてみてください。<br />
<br />
== ここから下に書き込んでください ==<br />
<br />
=== <nowiki>===</nowiki>の見出し。 ===<br />
<br />
http://www.mediawiki.org/wiki/Help:Formatting/ja を見た。<br />
<br />
<nowiki><pre></nowiki>の表示が違ってた。<br />
<br />
ソースの表示は<nowiki><pre>と<script></nowiki>があるのかな？<br />
行頭半角空けでもいいみたい。<br />
<br />
<br />
'''太字は<nowiki>'''</nowiki>で囲う'''<br />
<br />
''斜体は<nowiki>''</nowiki>で囲う''<br />
<br />
内部リンク（例：[[ダウンロード]]）は<nowiki>[[～]]</nowiki>で囲う。<br />
<br />
秀丸と同じgrep<br />
ファイルじゃなくて、(現在の内容)で出来れば<br />
完璧なのに<br />
<br />
↑<br />
[[このファイルから検索(マッチする行)]]<br />
<br />
ゲッツ<br />
[[ファイル:test.zip]]</div>
219.101.174.58