home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMAC6.LZH / K_ALAS38.MAC < prev    next >
Text File  |  1994-08-29  |  6KB  |  127 lines

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