| |
データの形式
--------------------
1:a
2:a
3:a
4:a
5:a
6:a
1:a
2:a
... (略)
6:a
1:a
2:a
3:a
4:a
5:a
6:a
--------------------
//*1 gdgc1.mac
// grep の後データ郡を ClipBoard に入れる。
$wk2 = "h:\\a1.txt";
$wk1 = input("検索するファイル - "+$wk2+"\n\n検索する文字列 ?","");
if( ! result ){ endmacro; }
if( strlen($wk1) == 0 ){
grepdialog;
if( ! result ){ endmacro; }
if( iskeydown( 0x1B ) ){ // [Esc]
if( basename == "" && x+y == 0 ){
quit; endmacro;
} else {
endmacro;
}
}
} else {
grep $wk1, $wk2, directory2, icon;
}
if( basename == "" && code == eof ){
quit; endmacro;
}
setclipboard ""; // clear
#y = -1;
while( code != eof ){
tagjump;
if( ! result ){
message "tagjump failed !";
endmacro;
}
escape; searchup "^\n", regular;
if( ! result ){
message "データを区切る改行(開始)がありません ";
endmacro;
}
if( y != #y ){ // 重複しない処理
#y = y;
escape; down; beginsel;
searchdown "^\n", regular;
if( ! result ){
message "データを区切る改行(終了)がありません !";
endmacro;
}
down;
question "このデータをクリップボードに入れますか ?";
if( result ){ appendcopy; #k = #k + 1; }
}
escape;
backtagjump;
if( ! result ){
message "backtagjump failed !";
endmacro;
}
golinetop2; down;
}
if( #k ){
newfile; paste; gofiletop;
message str(#k) + " - 件のデータを処理しました。";
}
setsearch "", 0x00; // reset. 記憶にありません !
endmacro;
|
|