home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMAC6.LZH / K_ALAS36.MAC < prev    next >
Text File  |  1994-08-29  |  6KB  |  137 lines
  1. //【マクロ名】 k_ALAS36.mac by 水銀水(Suigwinsui)/小田 明夫 (HGD01603)1994年08月28日(日曜日) 午後11時31分14秒
  2. //             日本語文書作成支援「書きマクロ」シリーズ Vol.6.#K4/5 Ver.2
  3. //【主な用途】 秀丸に、エイリアス的機能(ディレクトリの別名定義+ファイルのワイルドカード指定)を付加する。
  4. //【使用対象】秀丸 for Windows 上で日本語文章を快適に処理したい全てのみなさま。
  5. //【機能概略】(1)ファイルオープン時のディレクトリを別名定義する。
  6. //            (2)選択ダイアログに表示されるファイルをワイルドカード指定できる。ただし、現在の所、「共通ダイアログ」だけは除く(^_^;)
  7. //            (3)一世代前に限り、エイリアス状態を記憶、復帰できる安心感を提供(保健会社のＣＭみたいかな?)
  8. //ディレクトリ別名定義【全初期化】
  9. $kFB=hidemarudir+"\\kakimac\\k_FILE00.kdf";
  10. $1="【全初期化】●『全初期化実行 &All』の選択で情報を全て初期化します";
  11.  
  12. $22="━━━━━━━━━━━━全初期化実行 &All ━━━━━━━━━━━━";
  13. $23="━━━━━━━━━━━━実行破棄 &Return ━━━━━━━━━━━━";
  14. while(1){
  15. call kFILEini;
  16. call setd;top2:
  17.     menu $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$20,$21,$22,$23;
  18.     if(result==1){message "●この BOOK の情報を初期化します k_SAVEi Ver.5.1\n同時に kakimacro ﾃﾞｨﾚｸﾄﾘにバックアップファイルを生成します\n────────────────────────────\n"+
  19.         "(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";goto top2;}
  20.     else if(result==0)endmacro;
  21.     else if(result==23)endmacro;
  22.     else if(result==22){
  23.         question "●現在のエイリアス情報の全てを初期化してよろしいのですね ??\n"+
  24.         "　　ただし、一世代前のファイルだけは、「k_file00.bak」として\n"+
  25.         "　　kakimac ディレクトリに保存され、復帰が可能です(^.^)\n"+
  26.         "　　復帰も可能ですので、とりあえずは全初期化も安心ですよ(^^;\n"+
  27.         "────────────────────────────\n"+
  28.         "(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";
  29.         if(result==1){message "●全初期化実行\n　チト時間が２～５秒くらいかかったりします\n　また、チラリと見慣れないファイルが勝手にオープンしたりしますが、これ以上は秀丸の蔭に隠れてできない作業なので、どうかご勘弁を(^^;\n　もっとも、またすぐに勝手に消えますから安心して下さい\n────────────────────────────\n(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";
  30.             $kFO=filename;
  31.             openfile $kFB;
  32.             setactivehidemaru findhidemaru($kFB);
  33.             setwindowsize 0,0;
  34.             $kFBk=leftstr(filename,strstr(filename,"kdf"))+"bak";
  35.             saveas $kFBk;
  36.             setactivehidemaru findhidemaru($kFO);
  37.             closehidemaru  hidemaruhandle( findhidemaru($kFBk) );
  38.             ##n=1;
  39.             while(##n<=20){
  40.                 $kF0="kF"+str(##n);
  41.                 writeinistr $kFB,$kF0,"DP","";
  42.                 writeinistr $kFB,$kF0,"DN","";
  43.                 writeinistr $kFB,$kF0,"BN","*.txt";
  44.                 ##n=##n+1;
  45.             }endmacro;
  46.         }else  endmacro;
  47.     }
  48. }
  49. endmacro;
  50.  
  51.  
  52. kFILEini:
  53. $DN1=    getinistr($kFB,"kF1","DN");
  54. $DN2=    getinistr($kFB,"kF2","DN");
  55. $DN3=    getinistr($kFB,"kF3","DN");
  56. $DN4=    getinistr($kFB,"kF4","DN");
  57. $DN5=    getinistr($kFB,"kF5","DN");
  58. $DN6=    getinistr($kFB,"kF6","DN");
  59. $DN7=    getinistr($kFB,"kF7","DN");
  60. $DN8=    getinistr($kFB,"kF8","DN");
  61. $DN9=    getinistr($kFB,"kF9","DN");
  62. $DN10=    getinistr($kFB,"kF10","DN");
  63. $DN11=    getinistr($kFB,"kF11","DN");
  64. $DN12=    getinistr($kFB,"kF12","DN");
  65. $DN13=    getinistr($kFB,"kF13","DN");
  66. $DN14=    getinistr($kFB,"kF14","DN");
  67. $DN15=    getinistr($kFB,"kF15","DN");
  68. $DN16=    getinistr($kFB,"kF16","DN");
  69. $DN17=    getinistr($kFB,"kF17","DN");
  70. $DN18=    getinistr($kFB,"kF18","DN");
  71. $DN19=    getinistr($kFB,"kF19","DN");
  72. $DN20=    getinistr($kFB,"kF20","DN");
  73. $DP1=    getinistr($kFB,"kF1","DP");
  74. $DP2=    getinistr($kFB,"kF2","DP");
  75. $DP3=    getinistr($kFB,"kF3","DP");
  76. $DP4=    getinistr($kFB,"kF4","DP");
  77. $DP5=    getinistr($kFB,"kF5","DP");
  78. $DP6=    getinistr($kFB,"kF6","DP");
  79. $DP7=    getinistr($kFB,"kF7","DP");
  80. $DP8=    getinistr($kFB,"kF8","DP");
  81. $DP9=    getinistr($kFB,"kF9","DP");
  82. $DP10=    getinistr($kFB,"kF10","DP");
  83. $DP11=    getinistr($kFB,"kF11","DP");
  84. $DP12=    getinistr($kFB,"kF12","DP");
  85. $DP13=    getinistr($kFB,"kF13","DP");
  86. $DP14=    getinistr($kFB,"kF14","DP");
  87. $DP15=    getinistr($kFB,"kF15","DP");
  88. $DP16=    getinistr($kFB,"kF16","DP");
  89. $DP17=    getinistr($kFB,"kF17","DP");
  90. $DP18=    getinistr($kFB,"kF18","DP");
  91. $DP19=    getinistr($kFB,"kF19","DP");
  92. $DP20=    getinistr($kFB,"kF20","DP");
  93. $BN1=    getinistr($kFB,"kF1","BN");
  94. $BN2=    getinistr($kFB,"kF2","BN");
  95. $BN3=    getinistr($kFB,"kF3","BN");
  96. $BN4=    getinistr($kFB,"kF4","BN");
  97. $BN5=    getinistr($kFB,"kF5","BN");
  98. $BN6=    getinistr($kFB,"kF6","BN");
  99. $BN7=    getinistr($kFB,"kF7","BN");
  100. $BN8=    getinistr($kFB,"kF8","BN");
  101. $BN9=    getinistr($kFB,"kF9","BN");
  102. $BN10=    getinistr($kFB,"kF10","BN");
  103. $BN11=    getinistr($kFB,"kF11","BN");
  104. $BN12=    getinistr($kFB,"kF12","BN");
  105. $BN13=    getinistr($kFB,"kF13","BN");
  106. $BN14=    getinistr($kFB,"kF14","BN");
  107. $BN15=    getinistr($kFB,"kF15","BN");
  108. $BN16=    getinistr($kFB,"kF16","BN");
  109. $BN17=    getinistr($kFB,"kF17","BN");
  110. $BN18=    getinistr($kFB,"kF18","BN");
  111. $BN19=    getinistr($kFB,"kF19","BN");
  112. $BN20=    getinistr($kFB,"kF20","BN");
  113. return;
  114.  
  115. setd:
  116. if($DN1=="")$2=" &1 ";else $2=" &1 "+$DN1+" [ "+$DP1+$BN1+" ]";
  117. if($DN2=="")$3=" &2 ";else $3=" &2 "+$DN2+" [ "+$DP2+$BN2+" ]";
  118. if($DN3=="")$4=" &3 ";else $4=" &3 "+$DN3+" [ "+$DP3+$BN3+" ]";
  119. if($DN4=="")$5=" &4 ";else $5=" &4 "+$DN4+" [ "+$DP4+$BN4+" ]";
  120. if($DN5=="")$6=" &5 ";else $6=" &5 "+$DN5+" [ "+$DP5+$BN5+" ]";
  121. if($DN6=="")$7=" &6 ";else $7=" &6 "+$DN6+" [ "+$DP6+$BN6+" ]";
  122. if($DN7=="")$8=" &7 ";else $8=" &7 "+$DN7+" [ "+$DP7+$BN7+" ]";
  123. if($DN8=="")$9=" &8 ";else $9=" &8 "+$DN8+" [ "+$DP8+$BN8+" ]";
  124.  if($DN9=="")$10=" &9 ";else $10=" &9 "+$DN9+" [ "+$DP9+$BN9+" ]";
  125. if($DN10=="")$11=" &a ";else $11=" &a "+$DN10+" [ "+$DP10+$BN10+" ]";
  126. if($DN11=="")$12=" &b ";else $12=" &b "+$DN11+" [ "+$DP11+$BN11+" ]";
  127. if($DN12=="")$13=" &c ";else $13=" &c "+$DN12+" [ "+$DP12+$BN12+" ]";
  128. if($DN13=="")$14=" &d ";else $14=" &d "+$DN13+" [ "+$DP13+$BN13+" ]";
  129. if($DN14=="")$15=" &e ";else $15=" &e "+$DN14+" [ "+$DP14+$BN14+" ]";
  130. if($DN15=="")$16=" &f ";else $16=" &f "+$DN15+" [ "+$DP15+$BN15+" ]";
  131. if($DN16=="")$17=" &g ";else $17=" &g "+$DN16+" [ "+$DP15+$BN16+" ]";
  132. if($DN17=="")$18=" &h ";else $18=" &h "+$DN17+" [ "+$DP15+$BN17+" ]";
  133. if($DN18=="")$19=" &i ";else $19=" &i "+$DN18+" [ "+$DP15+$BN18+" ]";
  134. if($DN19=="")$20=" &j ";else $20=" &j "+$DN19+" [ "+$DP15+$BN19+" ]";
  135. if($DN20=="")$21=" &k ";else $21=" &k "+$DN20+" [ "+$DP15+$BN20+" ]";
  136. return;
  137.