home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN32 / KAKIMAC / KAKIMACA.LZH / K_DESK5I.MAC < prev    next >
Text File  |  1994-12-07  |  5KB  |  91 lines
  1. //【マクロ名】k_DESK51.mac: デスクトップ番号を選んで初期化する従属マクロ
  2. //            k_DESK Ver.1.51   by 水銀水(Suigwinsui)/小田 明夫(HGD01603)
  3. //                                  平成06年12月07日(水) 午前08時50分50秒
  4. //            (k_DESK51.macをk_DESK Ver.1.51 のメインマクロとします)
  5. //【連作情報】日本語文書作成支援「書きマクロ」αシリーズ Vol.１Ver.１#K3/3(秀丸エディタVer.1.32対応版)
  6. //【使用対象】秀丸 for Windows 上で日本語文章を快適に処理したい全てのみなさま。
  7. //【機能概略】秀丸に「複数デスクトップ保存/復元」機能を追加する。やめられまへん!(^^)!、ほんまでっせ!!!
  8. //【使用方法】k_DESK(Ver.1.51)の機能を秀丸エディタで利用するには、 
  9. //            k_DESK51.mac だけを登録/実行してください。
  10. //【構　　成】3macro= k_DESK51.mac,k_DESK5s.mac,k_DESK5i.mac
  11. top_desk:
  12. $k_DESKFB0=hidemarudir+"\\kakimac\\k_DESK00.kdf";
  13. $k_DESKFB1=hidemarudir+"\\kakimac\\k_DESK01.kdf";
  14. $k_DESKFB2=hidemarudir+"\\kakimac\\k_DESK02.kdf";
  15. $k_DESKFB3=hidemarudir+"\\kakimac\\k_DESK03.kdf";
  16. $k_DESKFB4=hidemarudir+"\\kakimac\\k_DESK04.kdf";
  17. $k_DESKFB5=hidemarudir+"\\kakimac\\k_DESK05.kdf";
  18. $k_DESKFB6=hidemarudir+"\\kakimac\\k_DESK06.kdf";
  19. $k_DESKFB7=hidemarudir+"\\kakimac\\k_DESK07.kdf";
  20. $k_DESKFB8=hidemarudir+"\\kakimac\\k_DESK08.kdf";
  21. $k_DESKFB9=hidemarudir+"\\kakimac\\k_DESK09.kdf";
  22. $kb0=getinistr($k_DESKFB0,"k_DESKMem","BookName");
  23. $kb1=getinistr($k_DESKFB1,"k_DESKMem","BookName");
  24. $kb2=getinistr($k_DESKFB2,"k_DESKMem","BookName");
  25. $kb3=getinistr($k_DESKFB3,"k_DESKMem","BookName");
  26. $kb4=getinistr($k_DESKFB4,"k_DESKMem","BookName");
  27. $kb5=getinistr($k_DESKFB5,"k_DESKMem","BookName");
  28. $kb6=getinistr($k_DESKFB6,"k_DESKMem","BookName");
  29. $kb7=getinistr($k_DESKFB7,"k_DESKMem","BookName");
  30. $kb8=getinistr($k_DESKFB8,"k_DESKMem","BookName");
  31. $kb9=getinistr($k_DESKFB9,"k_DESKMem","BookName");
  32. #B=getininum($k_DESKFB0,"k_DESKMem","SetNum");
  33. menuDispS:
  34. menu     "●初期化する『 Files Set 』選択  k_DESK Ver.1.51 水銀水",
  35.     "   □ Files Set  &a   "+$kb0,//+$sM[0],
  36.     "   □ Files Set  &b   "+$kb1,//+$sM[1],
  37.     "   □ Files Set  &c   "+$kb2,//+$sM[2],
  38.     "   □ Files Set  &d   "+$kb3,//+$sM[3],
  39.     "   □ Files Set  &e   "+$kb4,//+$sM[4],
  40.     "   □ Files Set  &f   "+$kb5,//+$sM[5],
  41.     "   □ Files Set  &g   "+$kb6,//+$sM[6],
  42.     "   □ Files Set  &h   "+$kb7,//+$sM[7],
  43.     "   □ Files Set  &i   "+$kb8,//+$sM[8],
  44.     "   □ Files Set  &j   "+$kb9,//+$sM[9],
  45.     "━━━━━━━━━━━━━━━━━━━━━━━━ ",
  46.     "────────  初期化終了 [Esc]────────",
  47.     "━━━━━━━━━━━━━━━━━━━━━━━━ ";
  48. if(result==0)endmacro;
  49. else if(result==1){message "●k_DESK Files Set(ﾃﾞｽｸﾄｯﾌﾟ)初期化の概略\nｸﾘｯｸしたk_DESK Files Set(ﾃﾞｽｸﾄｯﾌﾟ)を初期化します。\n"+
  50.                 "なお、初期化されたFiles Set(ﾃﾞｽｸﾄｯﾌﾟ)は、\"一応\"、復活できないので(現ﾊﾞｰｼﾞｮﾝではﾊﾞｯｸｱｯﾌﾟは作りません)、初期化を実行する前に確認が入ります。各自、ご注意下さい(^^)"+
  51.                 "\n────────────────────────\n"+
  52.                 "　Special Thanks to masasan in Seattle, U.S.A.\n"+
  53.                 "(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)";
  54.  
  55. goto top_desk;
  56. }else if(result==2) {#B=0;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",0;
  57. }else if(result==3) {#B=1;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",1;
  58. }else if(result==4) {#B=2;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",2;
  59. }else if(result==5) {#B=3;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",3;
  60. }else if(result==6) {#B=4;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",4;
  61. }else if(result==7) {#B=5;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",5;
  62. }else if(result==8) {#B=6;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",6;
  63. }else if(result==9) {#B=7;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",7;
  64. }else if(result==10){#B=8;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",8;
  65. }else if(result==11){#B=9;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",9;
  66. }else if(result==13){endmacro;
  67. //}else if(result==15){endmacro;execmacro "k_desk43.mac";
  68. }else goto top_desk;
  69. $BookName=hidemarudir+"\\kakimac\\"+"k_DESK0"+str(#B)+".kdf";
  70. $TitleHead=getinistr($BookName,"k_DESKMem","BookName");
  71. if($TitleHead==""){
  72.     question "●注意...未定義のFiles Set(ﾃﾞｽｸﾄｯﾌﾟ) の初期化は意味がありません..."+
  73.         "\n●理由...いま選択された第"+str(#B+1)+"番目のデスクトップ(Files Set)は、 未定義で、名前がまだ名付けられていません。"+
  74.         "したがって、初期化の必要はないと思われますが、あえて初期化の処理を強制的に実行しようとしています。"+
  75.         "\nとりあえず、初期化作業、やっておきやしょうか、ダンナ？\n"+
  76.         "●対策...普通は「いいえ」を選択するものですが(^^;";
  77.         if(!result)goto menuDispS;
  78. }else{
  79.     question "●初期化するFiles Set(ﾃﾞｽｸﾄｯﾌﾟ)の確認\n"+
  80.             "▼第"+str(#B+1)+"番 Files Set\n"+
  81.             "───────────────────────\n"+
  82.             $TitleHead+
  83.             "\n──────────────────────\n"+
  84.             "■このFiles Set(ﾃﾞｽｸﾄｯﾌﾟ)を初期化して、よろしいですか？\n";
  85.             if(!result)goto menuDispS;
  86. }
  87. writeinistr $BookName,"k_DESKMem","BookName","";
  88. writeininum $BookName,"k_DESKMem","maxFileNum",0;
  89. goto top_desk;
  90.  
  91.