| |
「□□□□社」はそのように変更します。はい。
//*1 *** Macro for 「秀丸エディタ」***
//*1 QC12.mac - 番頭++ - 2002 / 熱帯夜
//*1 【使用方法】
//*1 ・「秀丸エディタ」の「マクロの使用方法」は「ヘルプ」等を参照してくだ
さい。
//*1 ・「データ」と「コピー先」の 2 つのファイル (窓) 、だけ、を開いてお
いて、
//*1 「データ」ファイル (窓) を開いて、このマクロを実行してください。
// 手抜き !!!
//*1 【注意】
//*1 ・このマクロは全角の空白文字「 」を含んでいます。
//*1 ・このマクロを見る時には、
//*1 [その他] - [ファイルタイプ別の設定] - [表示]
//*1 - 全角空白を記号で表示] を指定してください。 // お勧めです。
//*1 ・「マクロの登録」を行うと便利かも。 // お勧めです。
//*1 ・このマクロを実行する時には、
//*1 [その他] - [動作環境] - [ユーザーインターフェース]
//*1 - [検索での表示] - [範囲選択] を指定してください。 // 手抜き !!!
//*2 【自力による変更箇所】
//*2 このマクロの次の行を、「自力で変更」してください。
//*2 // はコメントの始まりです。
//*2 ・西暦を指定する。
$yy = "95"; //*2 西暦 (多分) を指定する。 <== 変更して !!!
//*2 ・会社名を指定する。
$kk = "□□□□社"; //*2 会社名を指定する。 <== 変更して !!!
//*2 これが「検索文字列」になります。
$wk9 = "著作権者：" + $kk + $yy + ".*（全.*文字） +\\[" + $yy + "[0-9]+
\\]";
//*2 searchdown $wk9, regular; // 「正規表現」での検索です。
//*2 【わからん !!!】
//*2 最後に、「コピー先」ファイルで、この処理が必要かも、知れません !!!
//*2 replaceall "\\].\\x01\\n", "]\\n", regular, ask;
//* $searchbuffer = searchbuffer; #searchoption = searchoption;
#selectfound = getininum("hidemaru.ini","Env","SelectFound");
if( ! #selectfound ){
// writeininum "hidemaru.ini", "Env", "SelectFound", 1;
// envchanged;
message "[検索での表示] - [範囲選択] に指定してください。";
endmacro; // 手抜き !!!
}
if( hidemarucount != 2 ){
message "「秀丸」の窓は、\n「データ」と「コピー先」の 2 つにしてくだ
さい。";
endmacro; // 手抜き !!!
}
if( updated ){
message "「データ」は更新されています。";
endmacro; // 更新されている、そく中止 !!!
}
escape; // [Esc]
$file_name1 = filename2;
//* gofiletop; // ファイルの先頭から処理します。か ???
if( ! readonly ){ // 上書き禁止 ???
readonlyswitch; // Bug 防止、回避、対策 !!!
}
nexthidemaru;
#ws = tickcount + 200; // wait ??? - 2001/09/01
while( #ws > tickcount ){ #wt = tickcount; }
escape; // [Esc]
$file_name2 = filename2;
gofileend; // 「コピー先」ファイルの最後に追加します。
config "w80"; // 仮に、とりあえず、80 byte で折り返し
if( $file_name2 == "" ){
message "「コピー先」ファイル名を指定しておいてください。";
endmacro; // そく中止 !!!
}
showwindow 0; // ウィンドウ非表示、処理が速いかも ...
//* showwindow 1; // ウィンドウ非表示では、処理が遅いかも ...
gofileend;
if( (x+y) == 0) { insert "\n\n"; } // 意味不明
nexthidemaru;
#ws = tickcount + 200; // wait ??? - 2001/09/01
while( #ws > tickcount ){ #wt = tickcount; }
//* message "「データ」: " + $file_name1 + "\n" + "「コピー先」: " + $file_n
ame2;
searchdown $wk9, regular;
while( result ){
#seltopx = seltopx; #seltopy = seltopy;
#selendx = selendx; #selendy = selendy;
if( #result != 04 ){
#result = 99;
}
while( #result == 99 ){
mousemenu "この文字列を Copy しますか ???", // 01
"(&Y) - Yes", // 02
"(&N) - No", //03
"(&U) - メニューがうるさい : 無条件の連続処理", // 04
"(&C) - Cancel : 処理中止"; // 05
#result = result;
//* if( #result == 00 ){ escape; endmacro; } // [Esc]
if( #result <= 01 ){
#result = 99;
}
}
if( #result == 05 ){ escape; endmacro; } // "(&C) - Cancel"
if( #result == 02 || #result == 04 ){ // "(&Y) - Yes" または "(&
U) - うるさい"
escape;
moveto #seltopx, #seltopy; beginsel; moveto #selendx, #selendy;
copy; escape;
#i = hidemaruhandle(findhidemaru($file_name2));
setactivehidemaru #i;
#ws = tickcount + 150; // wait ??? - 2001/09/01
while( #ws > tickcount ){ #wt = tickcount; }
paste;
call pp_wakaran_1a; // なんで !!!
insert "\n\n"; // とりあえず、[改行] を二個入れる ... 案。
#i = hidemaruhandle(findhidemaru($file_name1));
setactivehidemaru #i;
#ws = tickcount + 150; // wait ??? - 2001/09/01
while( #ws > tickcount ){ #wt = tickcount; }
}
escape;
finddown;
//* searchdown $wk9, regular;
}
escape;
//* replacedown "^\\@#", "", regular; // AD 1995 年 吉日 - 番頭++
//* setsearch "", 0x00; setclipboard ""; // 記憶にありません !
endmacroall;
pp_wakaran_1a: // 判らん ...
escape;
left;
if( code != ']' ){
delete; // なんで、その 1A - !!!
}
gofileend;
return;
|
|