=== tagl_f5.def v.06 === ; [F05] 検索文字列の取得 は私家版[F05]のtaglight.exe対応版です。 ; 標準の[F05]との違いは,スペース,→で検索文字列範囲拡大出来ます。 ; taglight.exe を使用して複数の指定文字列に手軽に色付けできるマクロです。 ; 環境変数VZDEFのフォルダにtaglight.exeとtaglight.patが必要です。 ; taglight.patは、tagl.def用に拡張子の後ろにカンマの追加が必要です。 ; 例 ; #C,C++コード用 ; :C,CP,H, ; [F06]はtagl.def で連携します。 * M ;24 ^L [F05] "検索文字列の取得" 24 [F05] "検索文字列の取得" (s==1||s==2)? { &z("expand") >* } ; コマンドライン (s==3)? { #R #[ &Sh(ps,pr) &m(ps) } ; ファイラー (s)?. (cm)?? { cm-, &q >J } ; 2度目の[F05]なら :J へ xx=ci, ep+, ; ※1 [ESC]で中止 (mb)? { #G >E } ; ブロックモード? なら終了 ci=6, &m("検索文字列の取得 ([F05],^L,スペース,→で拡大)") :J (mb)?? #b :A &s (ct<2)? >C c=ct, :N #d (ct>=c)? >A ; VZDEF :C &d #] :D cm-, mx+, ; ※2 &p でのマクロコマンドの実行禁止 &p c=r, ; 1文字入力 (r==#[)?{ #B #b &m("") #] >Q } ; ※1 [ESC]で中止 (c==$20||c==$8140||c==#G)? >A (c==#d||c==#s||c==#a||c==#f)? { &o(c) >D } #B #G &m("検索文字列:%s",ps) (c==#r||c==#c) ?>E ;Q ci=xx, ep-, mx-, &o(c) ;. :E &m("%64s",ps) ; 終了表示 ; :Q #if 98 LX . #endif ss2, ;&s ; サイレントモード ; #] ;ステータスラインの再描画 e=ne, ;編集ファイルの拡張子を保持 a=wa..47, ;v6 編集ファイルのIDを保持 sn[+, #O &?("%staglight.pat",pi) #m ;patファイルオープン sn], ; (s)?{#[ #[ &m("taglight.pat無し!!") >q };patファイル無ければ中止 mp[2, ps[=pa, ;ページングモード,psすり替え #F &?("\n\n") #m #c ;v2 空行まで進める ps], ;psの復帰 "D$(9)" #I #m ;★D=色指定,TAB,文字列挿入 ps[=pa, ;psすり替え (e)? {#F &?("%c",e) #m #c} ;拡張子があれば検索 #F &?("\n\n") #m #c ;v2 空行まで進める ps], mp], #] e-, ;ps等の復帰 :F c-, ; "D$(9)" #I #m ;★D=色指定,TAB,文字列挿入 e++, ; D が色指定(紫) 0〜7 A〜F を指定できる :a #82 #s #s #s #s #h #h #h #h #m ;ファイル名変更(tagl.pat) #C (s)? 'y' ;クローズ :k #E &?("Taglight.EXE /ptagl.pat >nul",pi) #m ;専用pat読み込み実行 #[ ;編集画面に戻る &#T(-a) ;v6 編集ファイルの復帰 ;:z (k)??mp2, ;★ :e &m("") :q &d . ;終了 ci=xx, ep-, mx-, #] ; 終了 ; (c==#r)?&71 ;71 [PGUP] "ページアップ" ; (c==#c)?&72 ;72 [PGDN] "ページダウン" :Q &d . * v.06 151112 tagl.def から[F05]用作成、いきなりv06に。(^^;