| |
>dir %1 /b > %2
答えにはなっていませんが、
dir /b と言うことなので、こんなマクロでファイル名が取れます。
希望するディレクトリで「新規作成」を行なった後に、
このマクロを実行します。
または、input で入力をしない (ヌルの文字列) と grep のボックスが現れます。
そこでディレクトリを指定できます。
・「検索する文字列」は「.」 - 必ず指定する
・「正規表現」、「ファイル名一覧だけ作成」をチェック - 必ず指定する
・Ver. 2.24 では「アイコン状態で実行」はチェックしないで下さい。
[Esc] でキャンセルします。
ファイルリストが無いときには、grep の結果を中止します。
ファイルを閉じてます。
// test1.mac
// "(&F) file list - directory "
ppkn_file_list1:
$wk1 = input("dir - " + directory2+"\n\nfile list - 検索するファイル ?","*.txt");
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, directory2, regular, filelist;
}
showwindow 1; // ???
if( basename == "" && code == eof ){
setsearch "", 0x00; // reset.
quit; endmacro;
}
disableinvert; disabledraw;
//R replaceallfast "\\(1\\)$", "", regular;
replaceallfast "\\([0-9]*\\)$", "", regular;
#i = result;
gofiletop;
enableinvert; enabledraw;
message str(#i) + " - file(s) found !";
setsearch "", 0x00; // reset. 記憶にありません !
//R selectall; tab; escape; gofiletop;
endmacro;
|
|