home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1998 January (DVD)
/
VPR980100.ISO
/
OLS
/
WIN32
/
KAKIMAC
/
KAKIMACA.LZH
/
K_DESK5S.MAC
< prev
next >
Wrap
Text File
|
1994-12-07
|
11KB
|
201 lines
//【マクロ名】k_DESK5s.mac:番号を選んでデスクトップを記憶する従属マクロ
// k_DESK Ver.1.51 by 水銀水(Suigwinsui)/小田 明夫(HGD01603)
// 平成06年12月07日(水) 午前08時50分38秒
// (k_DESK51.macをk_DESK Ver.1.51 のメインマクロとします)
//【連作情報】日本語文書作成支援「書きマクロ」αシリーズ Vol.1Ver.1#K2/3(秀丸エディタVer.1.32対応版)
//【使用対象】秀丸 for Windows 上で日本語文章を快適に処理したい全てのみなさま。
//【機能概略】秀丸に「複数デスクトップ保存/復元」機能を追加する。やめられまへん!(^^)!、ほんまでっせ!!!
//【使用方法】k_DESK(Ver.1.51)の機能を秀丸エディタで利用するには、
// k_DESK51.mac だけを登録/実行してください。
//【構 成】3macro= k_DESK51.mac,k_DESK5s.mac,k_DESK5i.mac
top_desk:
$k_DESKFB0=hidemarudir+"\\kakimac\\k_DESK00.kdf";
$k_DESKFB1=hidemarudir+"\\kakimac\\k_DESK01.kdf";
$k_DESKFB2=hidemarudir+"\\kakimac\\k_DESK02.kdf";
$k_DESKFB3=hidemarudir+"\\kakimac\\k_DESK03.kdf";
$k_DESKFB4=hidemarudir+"\\kakimac\\k_DESK04.kdf";
$k_DESKFB5=hidemarudir+"\\kakimac\\k_DESK05.kdf";
$k_DESKFB6=hidemarudir+"\\kakimac\\k_DESK06.kdf";
$k_DESKFB7=hidemarudir+"\\kakimac\\k_DESK07.kdf";
$k_DESKFB8=hidemarudir+"\\kakimac\\k_DESK08.kdf";
$k_DESKFB9=hidemarudir+"\\kakimac\\k_DESK09.kdf";
$kb0=getinistr($k_DESKFB0,"k_DESKMem","BookName");
$kb1=getinistr($k_DESKFB1,"k_DESKMem","BookName");
$kb2=getinistr($k_DESKFB2,"k_DESKMem","BookName");
$kb3=getinistr($k_DESKFB3,"k_DESKMem","BookName");
$kb4=getinistr($k_DESKFB4,"k_DESKMem","BookName");
$kb5=getinistr($k_DESKFB5,"k_DESKMem","BookName");
$kb6=getinistr($k_DESKFB6,"k_DESKMem","BookName");
$kb7=getinistr($k_DESKFB7,"k_DESKMem","BookName");
$kb8=getinistr($k_DESKFB8,"k_DESKMem","BookName");
$kb9=getinistr($k_DESKFB9,"k_DESKMem","BookName");
#B=getininum($k_DESKFB0,"k_DESKMem","SetNum");
menuDispS:
menu "●記憶する『 Files Set 』選択 k_DESK Ver.1.51 水銀水",
"▼Save Files Set &a "+$kb0,//+$sM[0],
"▼Save Files Set &b "+$kb1,//+$sM[1],
"▼Save Files Set &c "+$kb2,//+$sM[2],
"▼Save Files Set &d "+$kb3,//+$sM[3],
"▼Save Files Set &e "+$kb4,//+$sM[4],
"▼Save Files Set &f "+$kb5,//+$sM[5],
"▼Save Files Set &g "+$kb6,//+$sM[6],
"▼Save Files Set &h "+$kb7,//+$sM[7],
"▼Save Files Set &i "+$kb8,//+$sM[8],
"▼Save Files Set &j "+$kb9,//+$sM[9],
"━━━━━━━━━━━━━━━━━━━━━━━━ ",
"──────────停止 [Esc]─────────",
"━━━━━━━━━━━━━━━━━━━━━━━━ ",
// " ▲デスクトップ『復元』画面へ移動 &Remem.",
// "────────────────[設定 &Set]───",
"────────────────[初期化 &0]───";
if(result==0)endmacro;
else if(result==1){message "●k_DESK Files Set(デスクトップ)保存の概略\n現在のデスクトップを、クリックしたメニューの場所に登録します。\n"+
"登録する際には、Files Set(デスクトップ)の名前を必ず付けてください。後でなんのことやら分からなくなります(^^;"+
"\n なお、(更新)中のファイルがあっても、Files Set(デスクトップ)の保存には何等問題はありません。(ファイルを保存する訳ではありませんので)"+
"\n────────────────────────\n"+
" Special Thanks to masasan in Seattle, U.S.A.\n"+
"(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)";
goto top_desk;
}else if(result==2) {#B=0;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",0;
}else if(result==3) {#B=1;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",1;
}else if(result==4) {#B=2;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",2;
}else if(result==5) {#B=3;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",3;
}else if(result==6) {#B=4;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",4;
}else if(result==7) {#B=5;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",5;
}else if(result==8) {#B=6;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",6;
}else if(result==9) {#B=7;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",7;
}else if(result==10){#B=8;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",8;
}else if(result==11){#B=9;//writeininum $k_DESKFB0,"k_DESKSet","SetNum",9;
}else if(result==13){endmacro;//endmacroall;
//}else if(result==15){execmacro "k_desk51.mac";//endmacroall;
//}else if(result==16){call optionSetting;goto top_desk;
}else if(result==15){execmacro "k_desk5i.mac";goto top_desk;
}else goto top_desk;
$BookName=hidemarudir+"\\kakimac\\"+"k_DESK0"+str(#B)+".kdf";
$TitleHead=getinistr($BookName,"k_DESKMem","BookName");
if($TitleHead==""){
$InS=input("●第"+str(#B+1)+"番デスクトップ名入力\n(最大長は、全角で20字まで)");if(!result)goto menuDispS;//endmacro;
if($InS=="")goto menuDispS;//endmacro;
#LimLen=strlen($InS);
if(#LimLen>40){
$InS=leftstr($InS,40);
question "●注意...指定文字列が長すぎます(;_;)\n"+
"●理由... k_DESK Ver.1 へ登録できる『ほぼデスクトップ』の名前の長さは、半角40文字までです。\n"+
"────────────────────────────\n"+
+$InS+
"\n────────────────────────────\n"+
"●対策...上記に、半角40字で切った名前を表示しています。\n■この名前で登録してよろしいですか?\n"+
"────────────────────────\n";
if(!result)goto menuDispS;//if(!result)endmacro;
}
question "●登録するFiles Set(デスクトップ)名の確認\n"+
"▼第"+str(#B+1)+"番 Files Set\n"+
"───────────────────────\n"+
$InS+
"\n──────────────────────\n"+
"■この名前でFiles Set(デスクトップ)を登録して、よろしいですか?\n";
if(!result)goto menuDispS;//if(!result)endmacro;
writeinistr $BookName,"k_DESKMem","BookName",$InS;
$TitleHead=$InS;
}else{
question "●登録するFiles Set(デスクトップ)名の確認\n"+
"▼第"+str(#B+1)+"番 Files Set\n"+
"───────────────────────\n"+
$TitleHead+
"\n──────────────────────\n"+
"(既存の名前を元に書き換える場合は[いいえ]を選択)\n\n"+
"■この名前で登録してよろしいですか?\n";
if(!result){
$InS=input("●第"+str(#B+1)+"番 Files Set(デスクトップ) 名入力\n・最大長:全角20 ・中断:[キャンセル]\n現設:"+$TitleHead,$TitleHead);
if(!result)goto menuDispS;
if($InS=="")goto menuDispS;//endmacro;
#LimLen=strlen($InS);
if(#LimLen>40){
$InS=leftstr($InS,40);
question "●ご注意!!!...指定文字列が長すぎます(;_;)\n"+
"●理由... k_DESK Ver.1 へ登録できる検索文字列の長さは、半角40文字までです。\n"+
"──────────────────────────────\n"+
+$InS+
"\n──────────────────────────────\n"+
"●対策...上記に、半角40字で切った名前を表示しています。\n■この名前で登録してよろしいですか?\n";
if(!result)goto menuDispS;
}
writeinistr $BookName,"k_DESKMem","BookName",$InS;
$TitleHead=$InS;
}
}
#maxHidemaruCount=hidemarucount;
// 全ウインドウの未保存状態の事前チェック// 当バージョンでは未対応
writeininum $BookName,"k_DESKMem","maxFileNum",#maxHidemaruCount;
#i=#maxHidemaruCount;
while(1){
$sectionOfBookName="F"+str(#i);
$FileNameA[#i] = filename[#maxHidemaruCount-1];
setactivehidemaru ( findhidemaru( $FileNameA[#i] ));
if(updated)#updatedWindows=1;
#WposX[#i]=windowposx;if(#WposX[#i]<0)#WposX[#i]=0;
#WposY[#i]=windowposy;if(#WposY[#i]<0)#WposY[#i]=0;
$sectionName[#i]=midstr($FileNameA[#i],strstr($FileNameA[#i],"."),4);
if(getininum("hidemaru.ini",$sectionName[#i],"FontSize")!=0){
#FontS[#i]=getininum("hidemaru.ini",$sectionName[#i],"FontSize");
#LineF[#i]=getininum("hidemaru.ini",$sectionName[#i],"LF");//LineFeed=0広い
}else{
#FontS[#i]=getininum("hidemaru.ini","Default","FontSize");
#LineF[#i]=getininum("hidemaru.ini","Default","LF");
}
#posX[#i]=x;
#posY[#i]=y;
#Wwidth[#i]=windowwidth;
if(#LineF[#i])#Wheight[#i]=windowheight;
else #Wheight[#i]=windowheight-1;//画面最大化の時の処理も必要(V1.33では超楽)
#Lwidth[#i]=width;
#readOnly[#i]=readonly;
#BrowseMode[#i]=browsemode;
// call joutaiCheck;
//書き込み
writeinistr $BookName,$sectionOfBookName,"Fname",$FileNameA[#i];
writeininum $BookName,$sectionOfBookName,"WposX",#WposX[#i];
writeininum $BookName,$sectionOfBookName,"WposY",#WposY[#i];
writeininum $BookName,$sectionOfBookName,"posX",#posX[#i];
writeininum $BookName,$sectionOfBookName,"posY",#posY[#i];
writeininum $BookName,$sectionOfBookName,"Wwidth",#Wwidth[#i];
writeininum $BookName,$sectionOfBookName,"Wheight",#Wheight[#i];
writeininum $BookName,$sectionOfBookName,"Lwidth",#Lwidth[#i];
writeininum $BookName,$sectionOfBookName,"readOnly",#readOnly[#i];
writeininum $BookName,$sectionOfBookName,"BrowseMode",#BrowseMode[#i];
writeininum $BookName,$sectionOfBookName,"FontSize",#FontS[#i];
writeininum $BookName,$sectionOfBookName,"LineFeed",#LineF[#i];
#i=#i-1;
if(#i==0)break;
}
setactivehidemaru ( findhidemaru( $FileNameA[0] ));
call dispResultOfFilesSet;
if(#updatedWindows)call msg_save5;
endmacro;
msg_save5:
message "●注意...保存されてない、(更新)されたファイルがありました!!! \n"+
"●理由...デスクトップの保存作業は、正常に完了しました(^^)。ただし、k_DESKはデスクトップを保存しますが、ファイルの保存は行なっておりません。"+
"つまり、「書きかけファイル」があっても知らんプリです(^^;。でも、それだけじゃあまりに、よそよそしい。で、『k_DESK実行中に、(更新)中で、保存されていないファイルがあった』事をいまお知らせしている次第です。\n"+
"●対策...秀丸エディタを終了する場合には、k_DESKの実行の際、保存されていないファイルがあったことを夢夢、忘るるべからず!!!\n";
return;
dispResultOfFilesSet:
$FileNameA[0]="●Files Set(デスクトップ)保存fileの結果報告 k_DESK V1.51 水銀水";
$FileNameA[#maxHidemaruCount+1]="●登録名="+$TitleHead;
$FileNameA[#maxHidemaruCount+2]="───────────────────────────────";
$FileNameA[#maxHidemaruCount+3]="■上記ファイルと登録名の正常保存を完了しました (^^) [終了:Esc]";
menuarray $FileNameA,#maxHidemaruCount+4;
if(result==0)endmacro;
else if(result==1){message "●Files Set(デスクトップ)結果報告の概略\nk_DESK により登録/保存が完了した、現在のデスクトップにある(開かれている)全ファイルのフルパス名、登録名を表示します。\n"+
"当バージョンでは、どこをクリックしても、これ以上の報告はなく、終了します。\n(保存されていないファイルがある場合は、続いて注意表示があります)\n"+
"次回公開分(秀丸Ver.1.33対応)では、詳細報告も付ける予定です。(機能も充実。V1.33はスゴいゾッ!!!)"+
"\n────────────────────────\n"+
" Special Thanks to masasan in Seattle, U.S.A.\n"+
"(C)1994 水銀水(Suigwinsui)/小田明夫(HGD01603)";
goto dispResultOfFilesSet;}
return;