home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMAC6.LZH / K_ALAS32.MAC < prev    next >
Text File  |  1994-08-29  |  7KB  |  140 lines
  1. //【マクロ名】 k_ALAS32.mac by 水銀水(Suigwinsui)/小田 明夫 (HGD01603)1994年08月28日(日曜日) 午後11時28分48秒
  2. //             日本語文書作成支援「書きマクロ」シリーズ Vol.6.#K2/5 Ver.2
  3. //【主な用途】 秀丸に、エイリアス的機能(ディレクトリの別名定義+ファイルのワイルドカード指定)を付加する。
  4. //【使用対象】秀丸 for Windows 上で日本語文章を快適に処理したい全てのみなさま。
  5. //【機能概略】(1)ファイルオープン時のディレクトリを別名定義する。
  6. //            (2)選択ダイアログに表示されるファイルを複数ワイルドカード指定できる。ただし、現在の所、「共通ダイアログ」だけは除く(^_^;)
  7. //            (3)一世代前に限り、エイリアス状態を記憶、復帰できる安心感を提供(保健会社のＣＭみたいかな?)
  8. //ディレクトリ別名定義(変更＆新規)
  9. $kFB=hidemarudir+"\\kakimac\\k_FILE00.kdf";
  10. $1="【修正･新規】●設定したい場所を選択して下さい  k_ALAS Ver.2 ";
  11. $22="━━━━━━━━━━━━完了 &Return ━━━━━━━━━━━━";
  12.  
  13. top:
  14. call kFILEini2;
  15. call setd;
  16. 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;
  18.     if(result==1){message "●別名定義したいディレクトリ名の入力では、パスの最後に必ず半角の｢￥｣を付けて下さい!!!!!　(忘れても自動的に付加されるようにしてますが(^.^))\n●ディレクトリパスのデフォルトは、現在開いているファイルのパスです\n●したがって効率的にパスを入力するには、該当するディレクトリにある任意のファイルを開いておき、その秀丸上で k_ALAS を実行するとキー入力を全くやらなくてもＯＫ、楽ちんです!!\n"+
  19.             "　　────────────────────────────\n"+
  20.         "　　(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";
  21.         message "●ﾜｲﾙﾄﾞｶｰﾄﾞの複数指定\n     たとえば､エイリアス名｢7&8月分ﾃﾞｰﾀ｣として､同一ﾃﾞｨﾚｸﾄﾘのﾌｧｲﾙ群から DATA08*.TXT;DATA07*.TXT だけをﾀﾞｲｱﾛｸﾞに選択表示できます。複数のﾜｲﾙﾄﾞｶｰﾄﾞは、｢;｣で区切ってください!!\n●注意!!!\n  ﾌｧｲﾙの複数指定は｢開く｣のﾀﾞｲｱﾛｸﾞの｢共通ﾀﾞｲｱﾛｸﾞ｣だけ『原則不可能』(^^;）\n●参考\n  その他→動作環境→ﾕｰｻﾞｰｲﾝﾀﾌｪｲｽ→｢開く｣のﾀﾞｲｱﾛｸﾞ→３種のﾀﾞｲｱﾛｸﾞへ\n３種類の｢開く｣のﾀﾞｲｱﾛｸﾞ [ 1.旧ﾀｲﾌﾟ、2.複数選択ﾀｲﾌﾟ、3.共通ﾀﾞｲｱﾛｸﾞ ]\n　　(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)My Friend Office";
  22.         ;goto top2;}
  23.     else if(result==0)endmacro;
  24.     else if(result==22)endmacro;
  25.     #kN=result-1;
  26.     $kF0="kF"+str(#kN);
  27.     $DPs=    getinistr($kFB,$kF0,"DP");
  28.     $DNs=    getinistr($kFB,$kF0,"DN");
  29.     $BNs=    getinistr($kFB,$kF0,"BN");
  30.     while(1){
  31.         if($DPs==""){
  32.             $DPo0=leftstr(filename,strstr(filename,basename));
  33.             $DPo=input("別名定義したいディレクトリのパスを入力\n●現TEXT参考="+$DPo0,$DPo0);
  34.         }else{
  35.             $DPo0=$DPs;
  36.             $DPo=input("別名定義したいディレクトリのパスを入力\n●現設定="+$DPo0,$DPo0);
  37.         }
  38.         if(!result)break;
  39.         if(midstr($DPo,strlen($DPo)-1,1)!="\\"){$DPo=$DPo+"\\";}
  40.         break;
  41.     }
  42.     if($DPo=="")goto top2;
  43.     if($DNs=="")$DNo=input($DPo+"\n●上記のディレクトリに名前を指定して下さい\n●新規");
  44.     else $DNo=input($DPo+"\n●上記のディレクトリに名前を指定して下さい\n●既設定",$DNs);
  45.     if($DNo=="")goto top2;
  46.     if($BNs=="")$BNo=input($DPo+"\n●選択したいファイル群をﾜｲﾙﾄﾞｶｰﾄﾞで指定\n●新規(｢;｣による複数指定は使用法を把握した上でどうぞ)","*.txt");
  47.     else $BNo=input($DPo+"\n●選択したいファイル群をﾜｲﾙﾄﾞｶｰﾄﾞで指定\n●既設定",$BNs);
  48.     if($BNo=="")goto top2;
  49.     writeinistr $kFB,$kF0,"DP",$DPo;
  50.     writeinistr $kFB,$kF0,"DN",$DNo;
  51.     writeinistr $kFB,$kF0,"BN",$BNo;
  52.  
  53. endmacro;
  54. setd:
  55. if($DN1=="")$2=" &1 ";else $2=" &1 "+$DN1+" [ "+$DP1+$BN1+" ]";
  56. if($DN2=="")$3=" &2 ";else $3=" &2 "+$DN2+" [ "+$DP2+$BN2+" ]";
  57. if($DN3=="")$4=" &3 ";else $4=" &3 "+$DN3+" [ "+$DP3+$BN3+" ]";
  58. if($DN4=="")$5=" &4 ";else $5=" &4 "+$DN4+" [ "+$DP4+$BN4+" ]";
  59. if($DN5=="")$6=" &5 ";else $6=" &5 "+$DN5+" [ "+$DP5+$BN5+" ]";
  60. if($DN6=="")$7=" &6 ";else $7=" &6 "+$DN6+" [ "+$DP6+$BN6+" ]";
  61. if($DN7=="")$8=" &7 ";else $8=" &7 "+$DN7+" [ "+$DP7+$BN7+" ]";
  62. if($DN8=="")$9=" &8 ";else $9=" &8 "+$DN8+" [ "+$DP8+$BN8+" ]";
  63.  if($DN9=="")$10=" &9 ";else $10=" &9 "+$DN9+" [ "+$DP9+$BN9+" ]";
  64. if($DN10=="")$11=" &a ";else $11=" &a "+$DN10+" [ "+$DP10+$BN10+" ]";
  65. if($DN11=="")$12=" &b ";else $12=" &b "+$DN11+" [ "+$DP11+$BN11+" ]";
  66. if($DN12=="")$13=" &c ";else $13=" &c "+$DN12+" [ "+$DP12+$BN12+" ]";
  67. if($DN13=="")$14=" &d ";else $14=" &d "+$DN13+" [ "+$DP13+$BN13+" ]";
  68. if($DN14=="")$15=" &e ";else $15=" &e "+$DN14+" [ "+$DP14+$BN14+" ]";
  69. if($DN15=="")$16=" &f ";else $16=" &f "+$DN15+" [ "+$DP15+$BN15+" ]";
  70. if($DN16=="")$17=" &g ";else $17=" &g "+$DN16+" [ "+$DP15+$BN16+" ]";
  71. if($DN17=="")$18=" &h ";else $18=" &h "+$DN17+" [ "+$DP15+$BN17+" ]";
  72. if($DN18=="")$19=" &i ";else $19=" &i "+$DN18+" [ "+$DP15+$BN18+" ]";
  73. if($DN19=="")$20=" &j ";else $20=" &j "+$DN19+" [ "+$DP15+$BN19+" ]";
  74. if($DN20=="")$21=" &k ";else $21=" &k "+$DN20+" [ "+$DP15+$BN20+" ]";
  75. return;
  76.  
  77. kFILEini2:
  78. $DN1=    getinistr($kFB,"kF1","DN");
  79. $DN2=    getinistr($kFB,"kF2","DN");
  80. $DN3=    getinistr($kFB,"kF3","DN");
  81. $DN4=    getinistr($kFB,"kF4","DN");
  82. $DN5=    getinistr($kFB,"kF5","DN");
  83. $DN6=    getinistr($kFB,"kF6","DN");
  84. $DN7=    getinistr($kFB,"kF7","DN");
  85. $DN8=    getinistr($kFB,"kF8","DN");
  86. $DN9=    getinistr($kFB,"kF9","DN");
  87. $DN10=    getinistr($kFB,"kF10","DN");
  88. $DN11=    getinistr($kFB,"kF11","DN");
  89. $DN12=    getinistr($kFB,"kF12","DN");
  90. $DN13=    getinistr($kFB,"kF13","DN");
  91. $DN14=    getinistr($kFB,"kF14","DN");
  92. $DN15=    getinistr($kFB,"kF15","DN");
  93. $DN16=    getinistr($kFB,"kF16","DN");
  94. $DN17=    getinistr($kFB,"kF17","DN");
  95. $DN18=    getinistr($kFB,"kF18","DN");
  96. $DN19=    getinistr($kFB,"kF19","DN");
  97. $DN20=    getinistr($kFB,"kF20","DN");
  98. $DP1=    getinistr($kFB,"kF1","DP");
  99. $DP2=    getinistr($kFB,"kF2","DP");
  100. $DP3=    getinistr($kFB,"kF3","DP");
  101. $DP4=    getinistr($kFB,"kF4","DP");
  102. $DP5=    getinistr($kFB,"kF5","DP");
  103. $DP6=    getinistr($kFB,"kF6","DP");
  104. $DP7=    getinistr($kFB,"kF7","DP");
  105. $DP8=    getinistr($kFB,"kF8","DP");
  106. $DP9=    getinistr($kFB,"kF9","DP");
  107. $DP10=    getinistr($kFB,"kF10","DP");
  108. $DP11=    getinistr($kFB,"kF11","DP");
  109. $DP12=    getinistr($kFB,"kF12","DP");
  110. $DP13=    getinistr($kFB,"kF13","DP");
  111. $DP14=    getinistr($kFB,"kF14","DP");
  112. $DP15=    getinistr($kFB,"kF15","DP");
  113. $DP16=    getinistr($kFB,"kF16","DP");
  114. $DP17=    getinistr($kFB,"kF17","DP");
  115. $DP18=    getinistr($kFB,"kF18","DP");
  116. $DP19=    getinistr($kFB,"kF19","DP");
  117. $DP20=    getinistr($kFB,"kF20","DP");
  118. $BN1=    getinistr($kFB,"kF1","BN");
  119. $BN2=    getinistr($kFB,"kF2","BN");
  120. $BN3=    getinistr($kFB,"kF3","BN");
  121. $BN4=    getinistr($kFB,"kF4","BN");
  122. $BN5=    getinistr($kFB,"kF5","BN");
  123. $BN6=    getinistr($kFB,"kF6","BN");
  124. $BN7=    getinistr($kFB,"kF7","BN");
  125. $BN8=    getinistr($kFB,"kF8","BN");
  126. $BN9=    getinistr($kFB,"kF9","BN");
  127. $BN10=    getinistr($kFB,"kF10","BN");
  128. $BN11=    getinistr($kFB,"kF11","BN");
  129. $BN12=    getinistr($kFB,"kF12","BN");
  130. $BN13=    getinistr($kFB,"kF13","BN");
  131. $BN14=    getinistr($kFB,"kF14","BN");
  132. $BN15=    getinistr($kFB,"kF15","BN");
  133. $BN16=    getinistr($kFB,"kF16","BN");
  134. $BN17=    getinistr($kFB,"kF17","BN");
  135. $BN18=    getinistr($kFB,"kF18","BN");
  136. $BN19=    getinistr($kFB,"kF19","BN");
  137. $BN20=    getinistr($kFB,"kF20","BN");
  138. return;
  139.  
  140.