Title: マクロで使うＤＬＬ

2.1 64bit hmjre.dllを使う際の注意

C/C++など、プログラミング言語から、64bit hmjre.dllを使う場合の注意点。

• 64bit対応で、JRE2構造体の定義が一部変更されているため、 jre.dll manualで配布されているJREUSR.Hを、 変更する必要があります。詳細はturukame.2:02359を、 参照してください。変更しない場合は、"Jre2Open"が、失敗します。

2.2 64bit版macrodll.dllmacrodll-x64

祝鳥に含まれている、「macrodll.dll」のx64版です。作者　あべのりゆき氏　の許可を得て公開しています。

• 祝鳥（のりてふ） 〜TeX用の秀丸マクロ〜

上記URLで、公開されているソースを元に、Visual Studio Community 2017(Ver.15.8.6) でコンパイルしています。

最新版(祝鳥 1.01)：macrodll.dll（x64）Ver.1.01　2018/10/06版

旧　版(祝鳥 1.00)：macrodll.dll（x64）Ver.1.00　2016/10/27版

• 動作確認は、Windows10(64bit)で行っています。
• 全ての機能の動作確認はしていません。CompleteXや、自前のマクロでの動作確認をしているだけです。
  (TeX は使用していないので、祝鳥の動作確認は行っていません。)
  最悪の場合、秀丸エディタ毎クラッシュする場合があります。
• このDLLを使用して、損害が生じても、損害に対する保証は出来かねますので、あらかじめご了承ください。 また、このDLL使用時に、不具合があった場合は、「h-tom」まで連絡してください。対処可能なら修正します。 連絡先は、トップページか添付文書を参照してください。 送信フォームもあります。

2.3 64bit版田楽DLLdengaku-x64

「田楽DLL」のx64版です。作者　杉浦まさき氏　の許可を得て公開しています。

• M. Sugiura Personal Web Page

上記URLで、公開されているソースを元に、VCEE2010SP1+Windows SDKでコンパイルしています。

田楽DLL（x64）Ver.3.22.1　2017/12/02

2017/12/01 Ver.3.22.1

• グローバル変数操作系の関数 SETVAR が動作していなかったのを修正。

2013/02/17 Ver.3.22.0

• x64対応のみ

2012/03/07 Ver.3.21.4

• *.sph関連修正(UNBYPASS.Hを参考に修正)
• グローバル変数操作系の関数で、定数シンボルを使うように修正(INVALID_HANDLE_VALUE) (colder氏からの連絡による。)

2011/10/23 Ver.3.21.3

• *.sph修正(構造体変更)

2011/10/16 Ver.3.21.2

• *.sphに対応

2011/10/08 Ver.3.21.1

• bregonig.dll Ver.3.00βを使用するように変更

2011/10/04 Ver.3.21.0

• x64対応のみ

• 動作確認は、Windows10(64bit)で行っています。
• 全ての機能の動作確認はしていません。dgdll.macや、自前のマクロでの動作確認をしているだけです。 最悪の場合、秀丸エディタ毎クラッシュする場合があります。
• このDLLは、64bitでコンパイルしているため、32bit DLLを、直接ロードはできません。 （一般的に流通している Susie Plug-in　は32bit DLLなので、ロードできない。）

• BREGEXP関数に関しては、K.Takata氏作成 bregonig.dll のx64版が使用できます。 bregonig.dll自体はUnicode(UTF-16LE)対応ですが、本DLLではANSI対応のみで、Unicodeには対応していません。

  K.Takata's Web Page

  x64版をコンパイルする場合には、bregonig.dllのソースに含まれる"BREGEXP.H"が必要です。

• Susie Plug-inに関しては、一応、"*.sph"に対応しています。 "*.sph"に関しては、以下のURLを参照して下さい。

  TORO's Library

  UNBYPASS.DLLに含まれる、 "ZBYPASSI.SPH"を使用すると、64bit田楽DLLから、32bit Susie Plug-in を使用することが出来ます。

• このDLLを使用して、損害が生じても、損害に対する保証は出来かねますので、あらかじめご了承ください。 また、このDLL使用時に、不具合があった場合は、「h-tom」まで連絡してください。 連絡先は、トップページか添付文書を参照してください。 送信フォームもあります。

3.1 ht_tools.dllht_tools

秀丸エディタ/秀丸メールで使用するマクロ拡張用DLLです。 マクロで（簡単には）実現できない（事もない？）各種機能(?)を提供します。

動作環境

• 秀丸エディタが必要です。秀丸メールでも動作します。 秀丸エディタはDLLをサポートしたVersion3.02以降、なるべく最新版を使用してください。
• Windows Vista SP2(32bit)、Windows 10(x86/x64)上での動作が確認されています。

詳細な説明はDLLの解説(Version 1.24.00b3)をみて下さい。

• 開発版

  • ht_tools.dll　Version 1.24.00β3(2017/05/08)
    32ビット/64ビットdll同梱(64ビットdllは、x64フォルダに格納されています。フォルダ構成を保った状態で解凍して下さい。)

    圧縮ファイルの内容
      ht_tools.dll              ：32bit DLL
      ht_tools.html             ：説明ファイル
      HidemaruMacroInstaller.lst：HidemaruMacroInstaller用スクリプト
      x64                       ：フォルダ
      └ht_tools.dll            ：64bit DLL

2017/05/05 Version 1.24.00β3

• 機能追加
  MOVEWINDOW関数を追加。
• 修正
• その他

2017/04/21 Version 1.24.00β2

• 機能追加
• 修正
  editorconfig-core-c を更新(master branch 2017.04.02)
  editorconfig-core-c で使用しているPCREを更新(8.39 --> 8.40)
• その他

2016/11/03 Version 1.24.00β1

• 機能追加
• 修正
  editorconfig-core-c を更新(master branch 2016.10.26)
• その他

• 正式版

  • ht_tools.dll　Version 1.23.00b(2016/08/01)
    32ビット/64ビットdll同梱(64ビットdllは、x64フォルダに格納されています。フォルダ構成を保った状態で解凍して下さい。)

    圧縮ファイルの内容
      ht_tools.dll           ：32bit DLL
      ht_tools.html          ：説明ファイル
      HidemaruMacroInstaller.lst：HidemaruMacroInstaller用スクリプト
      x64                    ：フォルダ
      └ht_tools.dll         ：64bit DLL

  hunspell関連に関数の実行には、ライブラリ(libhunspell.dll)と辞書ファイルが必要です。

  • ライブラリlibhunspell.dll改造版 Version 1.5.4 付属の文書(2017/04/22)
    (改造版は、標準DLLから、辞書ファイルの追加機能、バージョン情報取得関数を追加しただけ)

  辞書ファイルの入手先

  • スペルチェック辞書と言語パック :: Add-ons for Thunderbird (xpiは、ZIP形式の圧縮ファイルです。解凍して辞書ファイルを取り出して下さい)
  • Dictionaries - Apache OpenOffice Wiki

  "en_US"でしか動作確認していません。

  EditorConfig に関してはEditorConfigを参照してください。

2016/08/01 Version 1.23.00b(正式版)

• 機能追加
• 修正
• その他
  ドキュメント修正。 Windows10(x64)上の、rdtool がうまく動いてなかった。

2016/07/30 Version 1.23.00a(正式版)

• 機能追加
  UrlEncodeW関数、IsUTF16LE関数を追加。
  iniファイル関連のunicode版関数を追加。
  ReadSectionKeysW、ExistKeyW、GetKeyValueW、GetIniKeyDataW、GetIniKeyW、 GetIniKeyValueW、NextKeyW、ReadSectionNamesW、ExistSectionW、GetSectionNameW、 GetSectionW、NextSectionW
  WrFileLine、EditorConfigGetPcreVersionStr関数を追加。
• 修正
  editorconfig-core-c で使用しているPCREを更新(8.39)
  WriteIniStrW、WriteIniNumWで、UTF-16LE以外の場合は、失敗するように修正
• その他
  ドキュメント修正。 mecabのリンク先を変更。

2014/10/18 Version 1.22.00(正式版)

• 機能追加
  EditorConfig関連の関数を追加。
  EditorConfigExecute、 EditorConfigErrorMessage、 EditorConfigGetKey、 EditorConfigGetValue、 EditorConfigClear、 EditorConfigGetVersionStr

  hunspell関連の関数を追加。
  hunspell_GetVersion、 hunspell_Get_Dic_Encoding

  INIファイルのunicode関数の追加
  WriteIniNumW、GetIniNumW

• 修正
  WriteIniStrWを変更。引数のチェック追加および、 iniファイルが存在しない場合、UTF-16LEの空のファイルを作成するようにした。
  SetTimeでセットした日時が、TimeFormatに反映されていなかったバグの修正。
• その他

2013/06/23 Version 1.21.00(正式版)

• 機能追加
  hunspell関連の関数(unicode版)を追加。
  hunspell_SpellW、 hunspell_SuggestW、 hunspell_SuggestListW、 hunspell_AddW、 hunspell_RemoveW
• 修正
• その他

2013/05/28 Version 1.20.00a(正式版)

• 機能追加
• 修正
  ドキュメントの誤字等修正のみ
• その他

2013/05/06 Version 1.20.00

• 機能追加
  以下の関数を追加。
  SetUTF8ConvertString、SetUTF16ConvertString、 GetResult、GetResultW、 WriteIniStrW、GetIniStrW、 hunspell_load、 hunspell_free、 hunspell_Spell、 hunspell_Suggest、 hunspell_SuggestList、 hunspell_getmodulefilename、 hunspell_AddDictionary、 hunspell_Add、 hunspell_Remove、 hunspell_errormessage、 GetWindowRect_Top、 GetWindowRect_Bottom、 GetWindowRect_Left、 GetWindowRect_Right、 ScreenToClient_X、 ScreenToClient_Y
• 修正
  
  • 文字関数の最大バッファサイズを1Mへ拡大。
  • メモリ確保部分を修正。
  • DLL 読み込みに関する脆弱性に対応(Windows XP SP1 以降のみ対応)
  • NextActiveWindowの関数名が間違っていたのを修正。 (NextAvtiveWindow → NextActiveWindow)

  • InStr系関数で、全角文字を使用時に、検索文字があるのにマッチしない場合があるのを修正(完全ではないが)

    例)InStrEx(0,"Ｈｉｄｅｍａｒｕ Editor","ＭＡＲＵ", 1) 
    　 がマッチしない場合があった。

  • SetWindowStateの戻り値の説明が間違っていたので修正。
• その他
  • コンパイラを、Visual C++ 2008 Express Edition SP1から、Visual C++ 2010 Express Edition SP1へ 変更。

目次へ

3.2 hmonig.dllhmonig

hmonig.dll(命名IKKI氏)は秀丸エディタ/秀丸メールで使用する、hmjre.dll 互換の正規表現検索DLLです。 Ver.0.5.9 より、 正規表現エンジンに鬼雲(Ver.5.10.0以降)を使用しています。

鬼車の基本的な正規表現については、鬼車のドキュメント を参照してください。 hmjre.dll の互換性から、"\<"、"\>"は使用可能です。

鬼雲で拡張された正規表現については、鬼雲のドキュメントを参照してください。

• <URL:https://github.com/k-takata/Onigmo#readme>
• <URL:https://github.com/k-takata/Onigmo/blob/master/doc/RE.ja>

後方参照（タグ参照）は、\nの形式は、1〜9までが指定可能です。 \k<n>、\k'n'も使用可能で、10以上も指定可能ですが、秀丸エディタの置換で、16以上は使用できません。(秀丸エディタ/hmjre.dllの制限)

• 32ビット版はWindows Vista/7/10で動作確認しています。
• 64ビット版はWindows10 で動作確認しています。

hmonig.dllは、

• Unicode対応版(秀丸独自コード対応版) Ver.0.5.0〜
• Shift_JIS版 開発終了

の、２種類がありますが、Shift_JIS版は開発終了とし更新しません。今後はUnicode対応版のみになります。

• ご意見・要望・バグ報告などあれば、送信フォーム から送って下さい。

4.1 macrodll.dllの使い方

あべのりゆき氏が公開されているDLLです。秀丸エディタのTex用マクロである「祝鳥」に含まれています。 リストボックスの表示や各種ファイル操作が可能です。

• あべのりゆき氏のwebサイト

DLL単体でも公開もされています。単体で入手する場合は、「macrodll.dll関数一覧」もダウンロードしましょう。

ここのサンプルを動かす場合は、DLLを秀丸エディタ本体と同じ場所に置いてください。

'URLを取り込み
url = InputBox("URLを入力してください。","IEのテスト","https://hide.maruo.co.jp/")
Set WshIE = CreateObject("InternetExplorer.Application")
'非表示状態なので、表示状態へ
WshIE.Visible = true
'指定されたURLを表示
WshIE.Navigate(url)
'表示されるまでまつ
busy = WshIE.busy
state = WshIE.ReadyState
do while(busy = true and state <> 4)
    '1秒タイマー
    Wscript.Sleep(1000)
    busy = WshIE.busy
    state = WshIE.ReadyState
loop
msgbox "表示完了"
Set WshIE = Nothing
wscript.quit

loaddll hidemarudir + "\\macrodll.dll";
//URLを取り込み
$url = input("URLを入力して下さい。","https://hide.maruo.co.jp/");
#ie = dllfunc("OLE_INITIALIZE","InternetExplorer.Application");
//非表示状態なので、表示状態へ
#ret = dllfunc("OLE_SETPROPERTYINT",#ie, "Visible",1);
//指定されたURLを表示
#ret = dllfunc("OLE_INVOKE",#ie, "Navigate","s", $url );
//表示されるまでまつ
#busy = dllfunc("OLE_GETPROPERTYINT", #ie, "busy");
#state = dllfunc("OLE_GETPROPERTYINT", #ie, "ReadyState");
while(#busy != 0 && #state != 4){
    //1秒タイマー
    #en = tickcount + 1000;
    while(tickcount < #en){};
    #busy = dllfunc("OLE_GETPROPERTYINT", #ie, "busy");
    #state = dllfunc("OLE_GETPROPERTYINT", #ie, "ReadyState");
}
message "表示完了";
#ret = dllfunc("OLE_CLEAR");
freedll;
endmacro;

00017|#Browser = dllfunc("OLE_INITIALIZE", "Sleipnir.API");
00018|if(#Browser == 0){
00019|    $ERR =  "Sleipnirオブジェクト作成に失敗";
00020|    goto ERRMSG;
00021|}

00017|#Browser = dllfunc("OLE_INITIALIZE", "Lunascape2.LunascapeAPI")
00018|if(#Browser == 0){
00019|    $ERR =  "Lunascapeオブジェクト作成に失敗";
00020|    goto ERRMSG;
00021|}

4.2 秀丸パイプの使い方

秀丸パイプは、m.fujimoto氏作成の変換モジュールです。 秀まるおのホームページより、 変換モジュールライブラリ からダウンロード出来ます。

本来、秀丸パイプは変換モジュールなんですが、マクロからも呼び出せるように、関数が用意されています。 使い方は通常のdllを使う方法と同じです。("HmPipe.hmf"をloaddllする。)
filter文、filter関数からも使用可能です。

使い方は、以下のようになります。

dllfuncstrで呼び出す場合(秀丸パイプ付属のテキストファイルから抜粋)

■使い方(マクロ編)
　
  1.関数仕様
    HmPipeRun(instr, progname, param);
      instr     入力文字列
      progname  プログラム名
      param     プログラムの引数(省略可)
　
  2.使用例
    --------------------------------------------
    loaddll "HmPipe.hmf";
    $outstr = dllfuncstr("HmPipeRun", $instr, "sort");
    freedll;
    --------------------------------------------

filter文で呼び出す場合(秀丸パイプ付属のテキストファイルから抜粋)

○Ver1.02
・秀丸マクロのfilter関数から呼ばれたときに引数を取れるようにしました。
  引数では、秀丸パイプから起動するプログラム名と、その引数を指定するこ
  とができます。プログラム名と引数は"|"で区切って指定してください。
　
  filter $HmPipe, "HmPipe", "foo.exe|arg1 arg2";
　
・ワイドキャラクターを扱えるようになりました。
  ワイドキャラクターのプログラムを作成する場合、標準入力、標準出力はす
  べてUTF-16LE(BOMなしリトルエンディアンUTF16)として扱ってください。標
  準出力については、実行プログラムがASCIIやShift_JISでエラーを返すと思
  うので、Unicodeかどうかの判定をしています(厳密には判定できませんが)。
　
  秀丸マクロからfilterを使って呼び出すときは、関数名を"HmPipeW"とします。
　
  filter $HmPipe, "HmPipeW", "xxx.exe|arg1 arg2 arg3";

この、"秀丸パイプ"を使うことで何が出来るかというと、秀丸のマクロでは出来ないことを、 他のプログラムを使用して行う事が可能になります。

他のプログラム

sed、gawk、ruby、Perl、WSH等各種スクリプト言語や、標準入出力を使うプログラムなど。

他のプログラムと連携するには、run文等を使えば出来ますが、 標準出力をマクロで直接受け取れることが最大の利点です。

ただし、１つの文字列型変数は、8000文字(バイト？)程度が限界なので、注意が必要です。 出力が多い場合は、"run 〜 >con" を使い、秀丸エディタ上に出力させ、取り込むしかありません。 （tipsページのファイル一覧の取得を 参照してください。）

Ver.8

• 秀丸エディタ Ver.8より、文字列型変数のサイズが拡大されています。(管理領域まで含め1Mバイト) 文字列型変数のサイズに関しては、 [HMM0041A]●文字列型変数の扱う文字列の限界 を、参照して下さい。

例として、OSに標準搭載されている、WSH(cscript.exe)を使用した時間の計算です。 現在時刻から2時間後の時間を返します。

• WSHのスクリプト(時間計算処理の本体)　timeadd.vbs　結果を標準出力に出している。

Option Explicit
Dim n
'標準入力を取り込み、スペースで分割
n = split(trim(WScript.StdIn.ReadLine & " 0 0 0 0"), " ",4)
'時間の演算
Wscript.echo TimeSerial(Hour(now) + n(0), Minute(Now) + n(1), Second(Now) + n(2))

• 呼びだす秀丸マクロ　標準入力として"2 0 0"を送る。(2時間0分0秒)

loaddll "HmPipe.hmf";
$t = time;
$outstr = dllfuncstr("HmPipeRun", "2 0 0", "cscript.exe", "//nologo timeadd.vbs");
message "現在時：" + $t + "\n2時間後：" + $outstr;
freedll;
endmacro;

• 出力例

現在時：00:50:07
2時間後：2:50:08

目次へ

4.3 hmjre.dllの使い方

2010/03/22 マクロ関数を追加

hmjre.dllは、秀丸エディタVer.4.00から使用されている正規表現検索用のDLLです。 秀丸エディタの検索・置換で使用されています。 このDLLには、マクロから呼び出せる関数があります。

Fuzzy_OptionDialog関数

あいまい検索の設定ダイアログボックスを表示します。

JreGetVersion関数

hmjre.dllのバージョン番号を返します。

FindRegular, FindRegularNoCaseSense関数（V1.50以降から）

FindRegular関数は、特定の文字列から特定の正規表現パターンのマッチングをして、 ヒットした場合はその位置を返します。 FindRegularNoCaseSense関数は、大文字／小文字を区別しないで検索する以外は、 FindRegular関数とまったく同じです。

GetLastMatchLength関数（V1.50以降から）

FindRegularまたはFindRegularNoCaseSense関数で0以上の値が返った場合に、 マッチした文字列の長さを返します。

EnvChanged関数（V1.71以降から）

あいまい検索関係の設定を、レジストリから読み込み直しします。

GetLastMatchTagPosition（V1.91以降から）

FindRegularまたはFindRegularNoCaseSense関数で0以上の値が返り、 正規表現中にタグが指定されていた場合、指定されたタグの位置を返します。

GetLastMatchTagLength（V1.91以降から）

FindRegularまたはFindRegularNoCaseSense関数で0以上の値が返り、 正規表現中にタグが指定されていた場合、指定されたタグにマッチした文字列の長さを返します。

FindGeneral(V1.97以降から)

「大文字／小文字の区別」、「正規表現」、「あいまい検索」の３つをそれぞれについて、 ON/OFFをパラメータで指定して検索を実行。

ReplaceRegular, ReplaceRegularNoCaseSense(V1.98以降から)

文字列から、正規表現パターンのマッチングを行い、ヒットした場合は置換を実行します。 置換した結果の文字列を返します。ヒットしなかった場合や正規表現のコンパイルエラーの場合は""を返します。 ReplaceRegularNoCaseSense関数は、大文字／小文字を区別しないで検索する以外は、 ReplaceRegular関数とまったく同じです。

SetUnicodeIndexAutoConvert(V3.13以降)

Hmjre.dll側での文字コードインデックス自動変換をON/OFFする関数。 関数にユニコード文字を含む文字変数を渡す場合、ユニコード文字１文字が４バイトのデータとして渡される形となります。 その為、通常の文字操作関数で、Hmjre.dllの戻り値を、そのまま使用すると、通常の文字インデックスの値とずれることになります。 この関数を使用することにより、通常の文字操作関数で使用するのに問題のない値に、自動的に変換することが可能です。
(秀丸エディタ V8.00β45以上、および秀丸メール V5.34β9以上で対応)

実際の使い方は、turukame.3:05320を参照してください。

関数の詳細は、hmjre.dllのヘルプを参照してください。

マクロ作成時に、文字列変数に対して、正規表現を使った検索を行うには、

• FindRegular, FindRegularNoCaseSense関数
• FindGeneral関数
• GetLastMatchLength関数

を使用します。

置換を行うには、

• ReplaceRegular, ReplaceRegularNoCaseSense関数

を使用します。

"FindRegular"は見つけた位置(先頭は0)を、"GetLastMatchLength"はマッチした文字列の長さを返す為、 midstr関数を使えば、マッチした文字列を取得できます。

debuginfo 1;
//         012345 678901
$target = "a1111\nb2222";
loaddll "hmjre.dll";
if(!result){
  message "DLLのロードに失敗しました。";
  endmacro;
}
call hmjre_check "^";
call hmjre_check "$";
freedll;
endmacro;
hmjre_check:
#st = 0;
while(1){
  #ret = dllfunc("FindRegular",$$1, $target, #st);
  //正規表現にマッチすると-1より大きい値を返す。
  if(#ret > -1){
    //マッチした部分の長さを取得
    #len = dllfunc("GetLastMatchLength");
    debuginfo $$1 + ": #ret=" + str(#ret) + " #len=" + str(#len) + " #st=" + str(#st);
  }else{
    break;
  }
  #st = #ret + 1;
}
return;

//         012345 678901
$target = "a1111\nb2222";
^: #ret=0 #len=0 #st=0    --> 先頭にしかマッチしない。
$: #ret=5 #len=0 #st=0    --> 改行の前にマッチ
$: #ret=11 #len=0 #st=6   --> 検索対象の末尾にマッチ

$name = "C:\\Program Files\\Hidemaru\\hidemaru.exe";
loaddll "hmjre.dll";
if(!result){
    message "DLLのロードに失敗しました。";
    endmacro;
}
//ファイルの各要素を分割
// C:\Program Files\Hidemaru\hidemaru.exe
// 01234567890123456789012345678901234567
// 12 1234567890123 12345678 123456789012
// 0  0             1        2
// 0  3             7        6
#st = 0;
while(1){
    #ret = dllfunc("FindRegular","[^\\\\]+", $name, #st);
    //正規表現にマッチすると-1より大きい値を返す。
    if(#ret > -1){
        //マッチした部分の長さを取得
        #len = dllfunc("GetLastMatchLength");
        $match  = midstr($name, #ret, #len);
        message "match -> " + $match + "\n#ret=" + str(#ret) + " #len=" + str(#len);
    }else{
        break;
    }
    #st = #st + #len + 1;
}
freedll;
endmacro;

１回目
  match -> C:
  #ret=0 #len=2
２回目
  match -> Program Files
  #ret=3 #len=13
３回目
  match -> Hidemaru
  #ret=17 #len=8
４回目
  match -> hidemaru.exe
  #ret=26 #len=12

$name = "C:\\Program Files\\Hidemaru\\hidemaru.exe";
loaddll "hmjre.dll";
if(!result){
    message "DLLのロードに失敗しました。";
    endmacro;
}
//ファイル名部分を検索
#ret = dllfunc("FindRegular","[^\\\\]+$", $name, 0);
//正規表現にマッチすると-1より大きい値を返す。
if(#ret > -1){
    //マッチした部分の長さを取得
    #len = dllfunc("GetLastMatchLength");
    $basename  = midstr($name, #ret, #len);
    $directory = leftstr($name, #ret - 1);
}
//拡張子を検索
#ret = dllfunc("FindRegular","\\..+$", $name, 0);
//正規表現にマッチすると-1より大きい値を返す。
if(#ret > -1){
    //マッチした部分の長さを取得
    #len = dllfunc("GetLastMatchLength");
    $extention  = midstr($name, #ret, #len);
}
message "ファイルパス：" + $name + "\n" + 
        "フォルダ名  ：" + $directory + "\n" + 
        "ファイル名  ：" + $basename  + "\n" + 
        "拡張子      ：" + $extention;
freedll;
endmacro;

ファイルパス：C:\Program Files\Hidemaru\hidemaru.exe
フォルダ名  ：C:\Program Files\Hidemaru
ファイル名  ：hidemaru.exe
拡張子      ：.exe

loaddll "hmjre.dll";
if(!result){
    message "DLLのロードに失敗しました。";
    endmacro;
}
$input = input("ファイル名を入力してください。");
$regexp = "[\\/:,;*?\"<>|]";
//フルパスの場合は:\をチェックから外す
if((midstr($input,1,2) == ":\\") || (midstr($input,0,2) == "\\\\")){
    $regexp = "[/,;*?\"<>|]";
}
#ret = dllfunc("FindRegular",$regexp ,$input ,0);
if(#ret > -1){
    #len = dllfunc("GetLastMatchLength");
    $check = midstr($input, #ret, #len);
    message "ファイル名に使えない文字があります。\n「" + $check + "」";
}else{
    message "ファイル名に問題はありません。";
}
freedll;
endmacro;

$name = "  \t　  C:\\Program Files\\Hidemaru\\hidemaru.exe  　\t　 ";
loaddll "hmjre.dll";
if(!result){
    message "DLLのロードに失敗しました。";
    endmacro;
}
$regexp = "^([ 　\\t]+)(.+?)([ 　\\t]+$)(?\\2)";
#ret = dllfunc("FindRegular",$regexp ,$name ,0);
if(#ret > -1){
    #len = dllfunc("GetLastMatchLength");
    $check = midstr($name, #ret, #len);
    message "「" + $check + "」";
}else{
    message "検索に失敗しました。";
}
freedll;
endmacro;

4.4 田楽DLL（dengakudll.dll）の使い方

田楽DLLは、杉浦方紀氏が作成した、秀丸エディタ/秀丸メールのマクロから呼び出せる機能拡張DLLで、以下の機能があります。

• ダイアログの作成
• 多段メニューの作成
• ファイル・フォルダの操作
• 文字列操作
• BREGEXP.DLLのラッパー機能
• hmjre.dllのラッパー機能
• 画像(Susie Plug-in)操作
• グローバル関数操作

ダウンロード先：M. Sugiura Personal Web Page [Root]

関連項目

• 田楽DLLメモ

4.4.1 ダイアログの作成例

どんな、ダイアログが作成可能か知りたい場合は、配布ファイル内にある"dgdll.mac"を実行して下さい。 使用できるコントロールが全て使用されているので、サンプルとしても役に立ちます。

作成例として、「検索ボックス向け検索オプション変更マクロ」を使います。 チェックボックスと、ボタンを並べただけの、簡単なダイアログです。

マクロの構成としては、以下の３つから構成されています。

1. 田楽DLLのロード部分
2. 部品の配置と通知コードの設定
3. 通知コードの取得と対応した処理

4.4.1.1 田楽DLLのロード部分

00016|//田楽DLLを読込
00017|loaddll "DengakuDLL.dll";
00018|if (!result) loaddll hidemarudir + "\\DengakuDLL.dll";
00019|if (!result) loaddll macrodir + "\\DengakuDLL.dll";
00020|if (!result) loaddll currentmacrodirectory + "\\DengakuDLL.dll";
00021|if (!result){
00022|    message "DengakuDLL.dll がロードできません。\n 実行ファイルと同じフォルダかマクロファイル用のフォルダに置いてください";
00023|    endmacro;
00024|}

単純に、「loaddll "DengakuDLL.dll";」だけでもいいですが、ロードに失敗した場合は、 DLLのロードする場所を、

• 秀丸エディタ本体と同じ場所
• マクロフォルダ
• 実行しているマクロと同じ場所

に順次切り換えて、ロードを試みます。 それでも失敗した場合は、エラーで終了します。

4.4.1.2 部品の配置と通知コードの設定

使用する部品の配置や、表示内容などの設定を行います。

00025|    //ダイアログ作成
00026|    #w1 = 26;
00027|    if (dllfunc("NEWDIALOG", $title + str(#TIMEOUTSET), #w1) == 0 ||
00028|        //大文字/小文字の区別
00029|        dllfunc("NEWCONTROL","check", "casesense","大文字/小文字の区別(&C)") == 0 ||
00030|        dllfunc("SETCTRLSTATE","casesense", str(searchoption & 0x00000002 == 0x00000002)) == 0 ||
00031|        dllfunc("SETCTRLNOTIFY","casesense", "101") == 0 ||
00032|        //単語の検索
（省　略）
00063|        message "ダイアログ作成エラー！";freedll;endmacro;
00064|    }

簡単な各命令の説明です。

NEWDIALOG

ダイアログを作成する場合に、必ず必要な命令、ダイアログの作成の宣言です。 ダイアログ上部に表示させる文字列と、ダイアログの幅を設定します。

次に、部品を"NEWCONTROL"で配置して、各種設定(通知コードの設定と、検索フラグの状態をセット)を行います。

NEWCONTROL

部品の配置を行います。部品の種類と、部品名を設定します。 ここでは、

• "check" ==> チェックボックスを配置
• "casesense" ==> チェックボックスの識別名を、"casesense"に設定
• "大文字/小文字の区別(&C) ==> 表示する文字列を設定

を、行ってます。

SETCTRLSTATE

部品の状態の設定を行います。部品の識別名と、設定したい状態を指示します。 ここでは、チェックボックスなので、チェックの有無を指定します。

• "casesense" ==> 設定したいコントロールの識別名
• 状態の設定を文字列で行う。今回は、各オプションの各ビットの状態を設定。

SETCTRLNOTIFY

部品を操作した場合の、通知コードを設定します。 通知コードとは、そのコントロールを操作した事を通知する為のコードです。 （ボタンを押した場合、エディットボックスで入力した場合など）

• "casesense" ==> 設定したいコントロールの識別名
• "101" ==> 識別用の通知コード

田楽DLLで部品配置は、部品配置列の各行に対し、部品を置いておく事になります。

　　部品配置列
行┌─────────────────┐
１│□大文字/小文字の区別(&C)         │
　├─────────────────┤
２│□単語の検索(&W)                  │
　├─────────────────┤
３│□正規表現(&R)                    │
　├─────────────────┤
４│□あいまい検索(&F)                │
　├─────────────────┤
５│□次の秀丸エディタも続けて検索(&H)│
　├─────────────────┤
６│□一周する(&O)                    │
　├─────────────────┤
７│□検索文字の強調/検索(&I)         │
　├─────────────────┤
８│閉じる                            │
　└─────────────────┘

例では、行に１つの部品しか配置していませんが、複数の部品の配置も可能です。 複数の部品を配置する場合は、"SETCTRLWIDTH"を使用します。 "SETCTRLWIDTH"で幅を指定すると、次のコントロールは、幅を指定したコントロールの右側に、 幅を指定しない場合は、次行に配置する事になります。 また、幅を指定しない場合、"NEWDIALOG"で指定した幅を元に、コントロールの幅が、 自動的に設定されます。（「閉じる」ボタンを参照）

部品を配置し、設定したら、ダイアログを実際に表示します。

00066|    if (!dllfunc("SHOWDIALOG",hidemaruhandle(0),1)){
00067|        freedll;
00068|        message "ダイアログの表示に失敗しました。";
00069|        endmacro;
00070|    }

SHOWDIALOG

作成したダイアログを表示します。 失敗した場合は、DLLを解放し、マクロを終了します。

4.4.1.3 通知コードの取得と対応した処理

通知コードの待ち受け処理です。

00071|    //メインループ
00072|    #st = tickcount;
00073|    #timeout = #st + (1000 * #TIMEOUTSET);
00074|    #n = 1;
00075|    while (1) {
00076|        $retcode = "";
00077|        while (strlen($retcode) == 0){
00078|            $retcode = dllfuncstr("WAITCTRLNOTIFY",10);
00079|            //タイムアウト処理
00080|            if(tickcount > #timeout){
00081|                $retcode = "BREAK";
00082|                break
00083|            }
00084|            if((#st + (#n * 1000)) < tickcount){
00085|                #ret = dllfunc("SETDLGTITLE", $title + str(#TIMEOUTSET - #n));
00086|                #n = #n + 1;
00087|            }
00088|        }

77〜88行目が、通知コードの待ち受け部分です。 dllfuncstr("WAITCTRLNOTIFY",10)が、実際に通知コードを受け取る命令になります。 本来なら、１行で済みますが、今回はタイムアウト処理などがあるので、多くなってます。

タイムアウト処理がなければ、こんな感じです。

while (strlen($retcode) == 0) $retcode = dllfuncstr("WAITCTRLNOTIFY",10);

ここでは、何かしら、通知コードが入力されるまで（ダイアログが操作されるまで）、 ひたすら待ち続けます。

実際の処理部。 受け取った通知コードをみて、各種処理をおこないます。

00089|        if($retcode == "0" || $retcode == "BREAK"){
00090|            break;
00091|        }else if($retcode == "101"){
00092|            setsearch searchbuffer, (searchoption ^ 0x00000002);
00093|        }else if($retcode == "102"){
00094|            setsearch searchbuffer, (searchoption ^ 0x00000001);
00095|        }else if($retcode == "103"){
00096|            setsearch searchbuffer, (searchoption ^ 0x00000010);
00097|        }else if($retcode == "104"){
00098|            setsearch searchbuffer, (searchoption ^ 0x00000020);
00099|        }else if($retcode == "105"){
00100|            setsearch searchbuffer, (searchoption ^ 0x00000080);
00101|        }else if($retcode == "106"){
00102|            setsearch searchbuffer, (searchoption ^ 0x01000000);
00103|        }else if($retcode == "107"){
00104|            setsearch searchbuffer, (searchoption ^ 0x00000800);
00105|        }else if($retcode == "108"){
00106|            setsearch searchbuffer, (searchoption ^ 0x00001000);
00107|        }

例では、検索オプションの書き換えを行っています。

通知コードが"0"（閉じるボタン）または、"BREAK"(タイムアウト)の場合は、 待ち受けループを抜け、ダイアログを閉じ、終了します。

00111|    ##ret = dllfunc("ENDDIALOG");

目次へ

4.5 BRegIf.DLLのマクロ関数の使い方

BRegIf.DLLは、v0,1,3,0 以降、マクロから呼び出せる各種関数が実装されています。 その関数の使い方の例です。 というか、開発時に使っている動作確認用マクロです。新規秀丸を開き、結果を出力します。

• bregif_dllfunc_test.mac

出力結果

c:\program files\hidemaru\bregif.dll
BRegIf.dll Ver.1.32(bregonig.dll Ver.1.44 with Oniguruma 5.9.1)
          1         2         3         4         5         6         7
01234567890123456789012345678901234567890123456789012345678901234567890
 Yokohama 045-222-1111  Osaka 06-5555-6666  Tokyo 03-1111-9999 
FindRegularのテスト
FindRegular("(03|045)-(\d{3,4})-(\d{4})", $target, 0)
見つかった場所:10
マッチした長さ:12
マッチした文字:045-222-1111
見つかった場所1:10
マッチした長さ1:3
マッチした文字1:045
見つかった場所2:14
マッチした長さ2:3
マッチした文字2:222
見つかった場所3:18
マッチした長さ3:3
マッチした文字3:111
GetFunctionResultを使用した場合
見つかった場所0:045-222-1111
見つかった場所1:045
見つかった場所2:222
見つかった場所3:1111
Matchのテスト
Match("(03|045)-(\d{3,4})-(\d{4})","",$target, 0)
見つかった場所:10
マッチした長さ:12
マッチした文字:045-222-1111
見つかった場所1:10
マッチした長さ1:3
マッチした文字1:045
見つかった場所2:14
マッチした長さ2:3
マッチした文字2:222
見つかった場所3:18
マッチした長さ3:3
マッチした文字3:111
GetFunctionResultを使用した場合
見つかった場所0:045-222-1111
見つかった場所1:045
見つかった場所2:222
見つかった場所3:1111
FindRegularNoCaseSenseのテスト１
FindRegularNoCaseSense("(YOKOHAMA).+(OSAKA).+(TOKYO)", $target, 0)
見つかった場所:1
マッチした長さ:48
マッチした文字:Yokohama 045-222-1111  Osaka 06-5555-6666  Tokyo
GetFunctionResultを使用した場合
見つかった場所0:Yokohama 045-222-1111  Osaka 06-5555-6666  Tokyo
見つかった場所1:Yokohama
見つかった場所2:Osaka
見つかった場所3:Tokyo
FindRegularNoCaseSenseのテスト２
FindRegularNoCaseSense("(yoKoHaMa).+(oSAka).+(tOkYo)", $target, 0)
見つかった場所:1
マッチした長さ:48
マッチした文字:Yokohama 045-222-1111  Osaka 06-5555-6666  Tokyo
GetFunctionResultを使用した場合
見つかった場所0:Yokohama 045-222-1111  Osaka 06-5555-6666  Tokyo
見つかった場所1:Yokohama
見つかった場所2:Osaka
見つかった場所3:Tokyo
Matchのテスト２
Match("(yoKoHaMa).+(oSAka).+(tOkYo)", "i",$target, 0)
見つかった場所:1
マッチした長さ:48
マッチした文字:Yokohama 045-222-1111  Osaka 06-5555-6666  Tokyo
GetFunctionResultを使用した場合
見つかった場所0:Yokohama 045-222-1111  Osaka 06-5555-6666  Tokyo
見つかった場所1:Yokohama
見つかった場所2:Osaka
見つかった場所3:Tokyo
Transのテスト
base           :abcdefghijkl
tr/bdfj/BDFJ/  :aBcDeFghiJkl
tr/bdfj/_/     :a_c_e_ghi_kl
tr/bdfj/BD/d   :aBcDeghikl
tr/abcd/_/s    :_efghijkl
tr/abcd/_/c    :abcd________
tr/abcd/_/cs   :abcd_
データ変更
tr/012/零一弐/k: Yokohama 零45-弐弐弐-一一一一  Osaka 零6-5555-6666  Tokyo 零3-一一一一-9999 
Translateのテスト
tr/012/零一弐/k: Yokohama 零45-弐弐弐-一一一一  Osaka 零6-5555-6666  Tokyo 零3-一一一一-9999 
Splitのテスト
分割文字： *\d{2,3}-\d{3,4}-\d{4} *
split戻り値:3
エラー:
分割文字(0):[ Yokohama]
分割文字(1):[Osaka]
分割文字(2):[Tokyo]
Substのテスト
s/[0-9]/x/   :01--> Yokohama x45-222-1111  Osaka 06-5555-6666  Tokyo 03-1111-9999 
s/[0-9]/x/g  :30--> Yokohama xxx-xxx-xxxx  Osaka xx-xxxx-xxxx  Tokyo xx-xxxx-xxxx 
SubstExのテスト
s/[0-9]/x/   st = 0  :01--> Yokohama x45-222-1111  Osaka 06-5555-6666  Tokyo 03-1111-9999 
s/[0-9]/x/   st = 20 :01-->x1  Osaka 06-5555-6666  Tokyo 03-1111-9999 
s/[0-9]/x/g  st = 30 :20-->xx-xxxx-xxxx  Tokyo xx-xxxx-xxxx 
SubstEx2のテスト
s/[0-9]/x/   st = 0  :01--> Yokohama x45-222-1111  Osaka 06-5555-6666  Tokyo 03-1111-9999 
s/[0-9]/x/   st = 20 :01--> Yokohama 045-222-11x1  Osaka 06-5555-6666  Tokyo 03-1111-9999 
s/[0-9]/x/g  st = 30 :20--> Yokohama 045-222-1111  Osaka xx-xxxx-xxxx  Tokyo xx-xxxx-xxxx 
Replaceのテスト
s/[0-9]/x/   -->  Yokohama x45-222-1111  Osaka 06-5555-6666  Tokyo 03-1111-9999 
s/[0-9]/x/g  -->  Yokohama xxx-xxx-xxxx  Osaka xx-xxxx-xxxx  Tokyo xx-xxxx-xxxx 
Replace2のテスト
s/[0-9]/x/   st = 10 -->  Yokohama x45-222-1111  Osaka 06-5555-6666  Tokyo 03-1111-9999 
s/[0-9]/x/g  st = 20 -->  Yokohama 045-222-11xx  Osaka xx-xxxx-xxxx  Tokyo xx-xxxx-xxxx 

目次へ

4.6 外部DLL呼び出しとunicode

基本的に、従来のdllfunc/dllfuncstrで、外部DLLに対し、unicode文字列を渡すことはできません。 例外的に、hmjre.dll/Tkinfo.dllのみ、秀丸独自コードを使用し、unicode文字列を渡すことが可能です。

hmjre.dll/Tkinfo.dll以外のDLLでは、"Unicodeを取り除いた形式に変換"しているとのこと。 (秀丸エディタ本体側で処理。turukame.3:05331を参照)

Ver.8より、ワイド文字に対応した、dllfuncw/dllfuncstrwが追加されています。 外部DLLで、unicode文字列を扱う場合は、dllfuncw/dllfuncstrwを使用することになりますが、 DLL側の対応が必要です。

文字変数内に、Unicode文字が含まれるかどうかの、チェック方法はマクロヘルプに 記載されています。 (秀丸エディタ Ver.8 charindex_to_byteindex のページ)

目次へ

5.1 uniq.hmf 改造版

秀丸エディタの変換モジュールライブラリ にある Uniq の改造版です。 uniq(重複行削除)だけでなく、重複行を出力する機能も追加しています。 また、重複チェックを開始するフィールドを指定できます。(スペース区切り、CSV、TSV)

32bit版及び64bit版があります。

• uniq改造版Ver.1.2.0　2012/07/01

圧縮ファイルの内容

uniq.txt            変換モジュールの説明
uniq.hmf            32bit版変換モジュール
uniq.hmf64          64bit版変換モジュール
uniq_ex_src.zip     変更したソース(vcee 2010)

5.1.1 変換モジュールの機能

以下の3個の機能があります

• ユニーク
• 重複行出力
• ユニーク/重複行

「ユニーク」、「重複行出力」は、そのままの機能を実行します。 「ユニーク/重複行」は設定ダイアログを表示し、指定された機能を実行します。

設定できる内容は、以下になります。

• 機能選択
  ユニークか重複行出力。

• 比較開始するフィールドの位置
  比較を開始する位置を指定できます。 通常は半角スペース(0x20)が、フィールドの区切り文字になりますが、 CSV用に","、TSV用にタブコード(0x09)も指定できます。 フィールドの位置指定は、先頭が1で、最大255まで、指定できます。

  注)フィールドの区切りは、まじめに解析していないので、おまけ程度だと思ってください。

6.1 HidemaruMacroWscLib

Windows スクリプト コンポーネント で作成した、秀丸エディタマクロ用COMコンポーネントです。

COMコンポーネントといっても、XML と、VBScript、JScriptで構成されています。

このCOMコンポーネントを使う場合には、レジストリに登録が必要です。 登録時、Windows Vista以降では、管理者権限が必要になります。 登録を行った時のパスをレジストリに登録するので、あらかじめファイルを配置してから、登録を行ってください。 また、内部で .NET Framework の機能を使用しているので、.NET Framework のライブラリが必要です。 (開発環境は、 .NET Framework 4 になります。)

• HidemaruMacroWscLibVer.1.03　2018/01/04 　説明書

圧縮ファイルの内容

HidemaruMacroWscLib_setup.vbs     登録/登録解除用vbs
HidemaruMacroWscLib.html          説明書
HidemaruMacroWscLib.wsc           WSCファイル(COMコンポーネント本体)

7.1 HidemaruMacroInstaller

秀丸エディタ用マクロのインストール補助スクリプトです。

名前は立派ですが、たいしたことは出来ません。ZIP形式の圧縮ファイルを展開し、 ファイルを秀丸エディタのマクロフォルダに移動するだけです。

マクロフォルダの位置は自動で認識ます。以下の順番で秀丸エディタの検索を行います。

1. レジストリ
2. 実行中のプロセス

レジストリの検索結果と、プロセス実行中のパスが異なる場合は、プロセスから取得した情報を優先します。 その為、持ち出しキットで使用する場合は、無題でもいいので、秀丸エディタを起動しておく必要があります。 (常駐秀丸がいれば問題ないです。)

• HidemaruMacroInstaller　Ver.1.0.0β5(2016/08/11) (説明ファイル)

配布ファイルには、以下のファイルが格納されています。

HidemaruMacroInstaller.vbs                  ：メインモジュール
HidemaruMacroInstallerSubModule.vbs         ：サブモジュール(ファイルの移動処理)
HidemaruMacroInstaller.html                 ：説明ファイル
HidemaruMacroInstaller_UAC_Dialog_Vista.png ：説明ファイル用画像
HidemaruMacroInstaller_UAC_Dialog_7.png     ：説明ファイル用画像

スクリプトと同じ個所に、以下のファイルを作るので、書き込み権限のあるフォルダに展開してください。

HidemaruMacroInstaller.dat                  ：秀丸エディタの各種情報を保存
HidemaruMacroInstaller.mac                  ："HidemaruMacroInstaller.dat"作成用マクロ
HidemaruMacroInstaller.log                  ：動作ログを記録したファイル
HidemaruMacroInstaller.usrcmd               ：アプリケーション実行用データファイル