home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMAC6.LZH / K_ALAS31.MAC next >
Text File  |  1994-08-29  |  5KB  |  79 lines
  1. //【マクロ名】 k_ALAS31.mac by 水銀水(Suigwinsui)/小田 明夫 (HGD01603)1994年08月28日(日曜日) 午後11時23分51秒
  2. //             日本語文書作成支援「書きマクロ」シリーズ Vol.6.#K1/5 Ver.2
  3. //【主な用途】 秀丸に、エイリアス的機能(ディレクトリの別名定義+ファイルのワイルドカード指定)を付加する。
  4. //【使用対象】秀丸 for Windows 上で日本語文章を快適に処理したい全てのみなさま。
  5. //【機能概略】(1)ファイルオープン時のディレクトリを別名定義する。
  6. //            (2)選択ダイアログに表示されるファイルを複数ワイルドカード指定できる。ただし、現在の所、「共通ダイアログ」だけは除く(^_^;)
  7. //            (3)一世代前に限り、エイリアス状態を記憶、復帰できる安心感を提供(保健会社のＣＭみたいかな?)
  8. //【マクロ構成(k_ALAS Ver.2は全５マクロで構成)】
  9. //            ・メインマクロ:k_ALAS31,mac このマクロを実行して下さい(マクロ登録もこのマクロだけでＯＫ)
  10. //            ・従属マクロ:k_ALAS32,mac k_ALAS34,mac k_ALAS36,mac k_ALAS38,mac 
  11. $kFB=hidemarudir+"\\kakimac\\k_FILE00.kdf";
  12. top:
  13. call kFILEini;
  14. $1="●開きたい文書のエイリアスを指定!! k_ALAS Ver.1.32 (C)水銀水";
  15. $E="━━━━━━━━━━━ 拡張機能 &Option ━━━━━━━━━━━";
  16. $EE="━━━━━━━━━━━━━━━━━━━━━━━終了 &End━━━";
  17.  
  18.     menu $1,$DN1,$DN2,$DN3,$DN4,$DN5,$DN6,$DN7,$DN8,$DN9,$DN10,$DN11,$DN12,$DN13,$DN14,$DN15,$DN16,$DN17,$DN18,$DN19,$DN20,$E,$EE;
  19.     if(result==0||result==23)endmacro;
  20.     if(result==1){message "●k_ALAS Ver.2 ﾌｧｲﾙ選択の際のﾃﾞｨﾚｸﾄﾘに、エイリアス(別名定義)機能を持たせたマクロです\n●開きたい文書のあるﾃﾞｨﾚｸﾄﾘにわかりやすい名前を付け、そのﾃﾞｨﾚｸﾄﾘをｸﾘｯｸ一発で指定できます(^o^)\n●開きたい文書候補群にﾜｲﾙﾄﾞｶｰﾄﾞが指定でき、複数のエイリアス指定も自由なので、同一ﾃﾞｨﾚｸﾄﾘ内のﾌｧｲﾙ選択が柔軟＆多角的＆簡単に!!\n●さらに、ﾌｧｲﾙ選択ﾀﾞｲｱﾛｸﾞで、『ﾜｲﾙﾄﾞｶｰﾄﾞの複数設定』も可能(^o^)\n"+
  21.     "　　　────────────────────────\n"+
  22.     "　　(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";
  23.     message "●k_ALAS Ver.2 における「エイリアス」とは\n便宜上、「エイリアス(別名定義)」＝「ﾃﾞｨﾚｸﾄﾘ名＋ﾜｲﾙﾄﾞｶｰﾄﾞ指定されたﾌｧｲﾙ名(複数可)」とします。ファイルオープン時にだけ有効とお考え下さい(^^;\n●ﾜｲﾙﾄﾞｶｰﾄﾞの複数指定が可能とは\n     たとえば､エイリアス名｢7&8月分ﾃﾞｰﾀ｣として､同一ﾃﾞｨﾚｸﾄﾘのﾌｧｲﾙ群から DATA08*.TXT;DATA07*.TXT だけをﾀﾞｲｱﾛｸﾞに選択表示できます。｢;｣で区切る!!\n●注意!!!\n  ﾌｧｲﾙの複数指定は｢開く｣のﾀﾞｲｱﾛｸﾞの｢共通ﾀﾞｲｱﾛｸﾞ｣だけ『原則不可能』(^^;）\n"+
  24.     "　　(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";goto top;}
  25.     else if(result==22){
  26.         $$1="━━━━━━●拡張機能設定 k_ALAS Ver.2 (C)水銀水━━━━━━";
  27.         $$2="　　　　　　&1　エイリアス名の変更、新規追加";
  28.         $$3="　　　　　　&2　エイリアス内容の個別初期化";
  29.         $$4="　　　　　　&3　全エイリアス内容の全初期化";
  30.         $$5="　　　　　　&4　一世代前の全エイリアス状態復活";
  31.         $$6="━━━━━━━━━━━設定破棄 &Return ━━━━━━━━━━━";
  32.         menu $$1,$$2,$$3,$$4,$$5,$$6;
  33.         if(result==0)endmacro;
  34.         else if(result==1)message "●下記の機能が利用できます\n1.エイリアス名の変更、新規追加......既存エイリアスの変更更新や新規登録\n2.エイリアス内容の個別初期化.........指定したエイリアスだけを初期化\n3.全エイリアス内容の全初期化.........現在のエイリアス登録状態の全初期化\n4.一世代前の全エイリアス状態復活...全初期化する直前の状態に復活させる\n　　　────────────────────────\n"+
  35.     "　　(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";
  36. ;
  37.         else if(result==2)execmacro "k_ALAS32.mac";
  38.         else if(result==3)execmacro "k_ALAS34.mac";
  39.         else if(result==4)execmacro "k_ALAS36.mac";
  40.         else if(result==5)execmacro "k_ALAS38.mac";
  41.         goto top;
  42.     
  43.     }
  44.     #kN=result-1;
  45.     $kF0="kF"+str(#kN);
  46.     $DN0=getinistr($kFB,$kF0,"DN");
  47.     $DP0=getinistr($kFB,$kF0,"DP");
  48.     $BN0=getinistr($kFB,$kF0,"BN");
  49.     if($DN0==""||$DP0==""){message "●その場所はまだ未定義です(^^)\n設定は、下のライン『拡張機能設定 Option』をクリックしてください\n"+
  50.     "────────────────────────────────\n"+
  51.     "　　(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603) My Friend Office";goto top;}
  52.     openfile $DP0+$BN0;
  53.     if(result==0)goto top;
  54. endmacro;
  55.  
  56. kFILEini:
  57. $DN1=    getinistr($kFB,"kF1","DN");
  58. $DN2=    getinistr($kFB,"kF2","DN");
  59. $DN3=    getinistr($kFB,"kF3","DN");
  60. $DN4=    getinistr($kFB,"kF4","DN");
  61. $DN5=    getinistr($kFB,"kF5","DN");
  62. $DN6=    getinistr($kFB,"kF6","DN");
  63. $DN7=    getinistr($kFB,"kF7","DN");
  64. $DN8=    getinistr($kFB,"kF8","DN");
  65. $DN9=    getinistr($kFB,"kF9","DN");
  66. $DN10=    getinistr($kFB,"kF10","DN");
  67. $DN11=    getinistr($kFB,"kF11","DN");
  68. $DN12=    getinistr($kFB,"kF12","DN");
  69. $DN13=    getinistr($kFB,"kF13","DN");
  70. $DN14=    getinistr($kFB,"kF14","DN");
  71. $DN15=    getinistr($kFB,"kF15","DN");
  72. $DN16=    getinistr($kFB,"kF16","DN");
  73. $DN17=    getinistr($kFB,"kF17","DN");
  74. $DN18=    getinistr($kFB,"kF18","DN");
  75. $DN19=    getinistr($kFB,"kF19","DN");
  76. $DN20=    getinistr($kFB,"kF20","DN");
  77. return;
  78.  
  79.