home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMAC6.LZH / K_ALAS34.MAC < prev    next >
Text File  |  1994-08-29  |  6KB  |  127 lines
  1. //【マクロ名】 k_ALAS34.mac by 水銀水(Suigwinsui)/小田 明夫 (HGD01603)1994年08月28日(日曜日) 午後11時30分38秒
  2. //             日本語文書作成支援「書きマクロ」シリーズ Vol.6.#K3/5 Ver.2
  3. //【主な用途】 秀丸に、エイリアス的機能(ディレクトリの別名定義+ファイルのワイルドカード指定)を付加する。
  4. //【使用対象】秀丸 for Windows 上で日本語文章を快適に処理したい全てのみなさま。
  5. //【機能概略】(1)ファイルオープン時のディレクトリを別名定義する。
  6. //            (2)選択ダイアログに表示されるファイルを複数ワイルドカード指定できる。ただし、現在の所、「共通ダイアログ」だけは除く(^_^;)
  7. //            (3)一世代前に限り、エイリアス状態を記憶、復帰できる安心感を提供(保健会社のＣＭみたいかな?)
  8. //段を指定して初期化する
  9. $kFB=hidemarudir+"\\kakimac\\k_FILE00.kdf";
  10. $1="【個別初期化】●初期化したいエイリアスをクリックして下さい";
  11. $22="━━━━━━━━━━━━完了 &Return ━━━━━━━━━━━━";
  12. while(1){
  13. call kFILEini;
  14. call setd;top2:
  15.     menu $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$20,$21,$22;
  16.     if(result==1){message "【個別初期化】●指定したエイリアス情報を初期化します\n初期化したいエイリアスをクリックするか、１～ｆまでのキーを打つかして選択実行して下さい\n"+"　　────────────────────────────\n"+"　　(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";goto top2;}
  17.     else if(result==0)endmacro;
  18.     else if(result==22)endmacro;
  19.     #kN=result-1;
  20.     $kF0="kF"+str(#kN);
  21.     $DPs=    getinistr($kFB,$kF0,"DP");
  22.     $DNs=    getinistr($kFB,$kF0,"DN");
  23.     $BNs=    getinistr($kFB,$kF0,"BN");
  24.     question "●指定したエイリアスには下記の情報が記入されていますが、\n　　初期化してよろしいですね ??\n"+
  25.         "━━━━━━━━━━━━━━━━━━━━━━━━━━━━\n"+
  26.         "　■指定ディレクトリ 　[ "+$DPs+" ]\n"+
  27.         "　■上記別名定義名 　　[ "+$DNs+" ]\n"+
  28.         "　■選択ﾌｧｲﾙﾜｲﾙﾄﾞｶｰﾄﾞ　[ "+$BNs+" ]\n"+
  29.         "━━━━━━━━━━━━━━━━━━━━━━━━━━━━\n"+
  30.         "(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";
  31.  
  32.     if(result==1){
  33.         writeinistr $kFB,$kF0,"DP","";
  34.         writeinistr $kFB,$kF0,"DN","";
  35.         writeinistr $kFB,$kF0,"BN","*.txt";
  36.         endmacro;
  37.     }else endmacro;
  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.