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.dll

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

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

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

macrodll.dll（x64）Ver.0.86　2011/11/28版(祝鳥0.86)

macrodll.dll（x64）開発版(2012.05.01)　2012/05/06版

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

2.3 64bit版田楽DLL

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

• M. Sugiura Personal Web Page

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

田楽DLL（x64）Ver.3.21.4　2012/03/07

2011/10/04 Ver.3.21.0

• x64対応のみ

2011/10/08 Ver.3.21.1

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

2011/10/16 Ver.3.21.2

• *.sphに対応

2011/10/23 Ver.3.21.3

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

2012/03/07 Ver.3.21.4

• *.sph関連修正(UNBYPASS.Hを参考に修正)
• グローバル変数操作系の関数で、秀丸ごとクラッシュするバグの修正(x64版のみ) (colder氏からの連絡による。)

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

• BREGEXP関数に関しては、K.Takata氏作成の、bregonig.dll Ver.3.00βの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 Version 1.5に含まれる、 "ZBYPASSI.SPH"を使用すると、64bit田楽DLLから、32bit Susie Plug-in を使用することが出来ます。

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

3.1 ht_tools.dll

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

• 開発版
  • 32bit版　ht_tools.dll　Version 1.20.00β2 (2010/10/24)
  • 64bit版　ht_tools.dll（x64）　Version 1.20.00β2 (2010/10/24)
    • DLL 読み込みに関する脆弱性に対応(Windows XP SP1 以降のみ対応)
• 通常版
  • 32bit版　ht_tools.dll　Version 1.19.00 (2009/12/31)
  • 64bit版　ht_tools.dll（x64）　Version 1.19.00 (2009/12/31)
    • mecab関連のコマンド追加。動作確認は0.96。(Windowsインストーラ版) namazuでmacabを使用している場合は、読み込む辞書の設定に注意して下さい。
    • hmjre関連の関数を追加
    • FINDWINDOW関数追加
    • GetAncestorWindow関数追加
    • GetWindowClassが正常に動作していなかったのを修正。
    • nkf_load、mecab_loadで、読み込む"dll"を指定できるようにした。
    • ロードしたDLLのパスを返す関数を追加。
      • nkf_getmodulefilename
      • mecab_getmodulefilename
    • クリップボード関連の関数追加
      • GetClipboardOwnerHandle、
      • GetClipboardDSPTEXT
    • ドキュメント修正
      • mecab_strerror → mecab_getstrerror
      • mecab_getyomi、mecab_wakati の関数の説明で、 追加オプションの記述が抜けていたのを修正。
    • コンパイラを、Borland C++ Compiler 5.5から、Visual C++ 2008 Express Edtion SP1へ 変更。
    • コンパイラ変更に伴い、NumToKanjiが正常に動作していないバグの修正。
    • GetFileNameFromHwnd失敗時に、戻り値がおかしくなる場合があるのを修正。
    • nkf_tohankaku等、nkf関連コマンドが正常に動作していないので対処(nkf32.dll側の問題？)
    • 64bit対応
      • nkf、mecabを使う機能がありますが、動作させるには、64bit版が必要です。

動作環境

• 秀丸エディタが必要です。秀丸メールでも動作します。 秀丸エディタはDLLをサポートしたVersion3.02以降、なるべく最新版を使用してください。
• Windows2000 SP4、WindowsXP SP2、Windows Vista SP1(32bit)上での動作が確認されています。
• Windows NT4.0、Windows95ではインターネットエクスプローラー４以上がインストールされている必要があります。

詳細な説明はDLLの解説(Version 1.20.00β2)をみて下さい。

2007/07/16 Version 1.19.00β1

• 機能追加
  mecab関連の関数を追加。
  mecab_load、 mecab_free、 mecab_version、 mecab_getyomi、 mecab_wakati、 mecab、 mecab_nbest、 mecab_error、 mecab_errormessage、 mecab_strerror
• 修正
• その他

2007/08/11 Version 1.19.00β2

• 機能追加
  hmjre関連の関数を追加。
  hmjre_match_tag_string
• 修正
• その他

2007/10/21 Version 1.19.00β3

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

2007/10/27 Version 1.19.00β4

• 機能追加
  GetAncestorWindow関数を追加
• 修正
  GetWindowClassが正常に動作していなかったのを修正。
• その他

2008/01/16 Version 1.19.00β5

• 機能追加
  
• 修正
  mecab_loadで、読み込む"libmecab.dll"を指定できるようにした。
• その他

2008/01/20 Version 1.19.00β6

• 機能追加
  nkf_getmodulefilename、mecab_getmodulefilename、 GetClipboardOwnerHandle、 GetClipboardDSPTEXTを追加
• 修正
  nkf_loadで、読み込む"nkf32.dll"を指定できるようにした。
• その他

2008/09/01 Version 1.19.00β7

• 機能追加
• 修正
  ドキュメント修正
  • mecab_strerror → mecab_getstrerror
  • mecab_getyomi、mecab_wakati の関数の説明で、 追加オプションの記述が抜けていたのを修正。
• その他
  コンパイラを、Borland C++ Compiler 5.5から、Visual C++ 2008 Express Edtion SP1へ 変更。 コンパイラ変更に伴い、多少コードを修正。

2009/12/30 Version 1.19.00(正式版)

• 機能追加
• 修正
  • NumToKanjiが正常に動作していないバグの修正(コンパイラ変更に伴うバグ)。
  • GetFileNameFromHwndの失敗時に、戻り値がおかしくなる場合があるのを修正。
  • nkf_tohankaku等、nkf関連コマンドが正常に動作していないので対処(nkf32.dll側の問題？)
• その他
  64bit対応

2010/04/03 Version 1.20.00β1

• 機能追加
  SetUTF8ConvertString、SetUTF16ConvertString、 GetResult、GetResultW、 WriteIniStrW、GetIniStrWを追加
• 修正
  
  • 文字関数の最大バッファサイズを1Mへ拡大。
  • メモリ確保部分を修正。
• その他

2010/10/24 Version 1.20.00β2

• 機能追加
• 修正
  • DLL 読み込みに関する脆弱性に対応(Windows XP SP1 以降のみ対応)
• その他

目次へ

3.2 hmonig.dll

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

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

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

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

現在、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のテスト","http://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を入力して下さい。","http://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バイト)

例として、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 のページ)

目次へ