| > 桐以外で作成されたテキストファイルのファイル名を一括処理の会話で変更して別フォルダーに移動させたい。
こんなんでどうかなぁ^^; 桐の一括処理にこだわることもないような気はするんだけど....
変数宣言 固有,文字列{&ファイル名,&検索ファイル,&txtフォルダ,&txtリネーム,&ファイル削除},数値{&ファイル数=1} * txtの検索フォルダはc:\k3\data\txt &検索ファイル="c:\k3\data\txt\*.txt" * txtの保存フォルダはc:\k3\data\変更後 &txtフォルダ="c:\k3\data\変更後\" 表 "txt名変更.tbl" 編集表 "txt名変更.tbl" 行削除 *,圧縮 繰り返し &ファイル名=#ファイル名(#ファイル検索(&検索ファイル,&ファイル数),1) ケース開始 ケース (&ファイル名<>"") 行追加 [orgtxt]=&ファイル名 ジャンプ 行番号=最終 行訂正 [renametxt]=&txtフォルダ+"*.txt" 行訂正 会話,[renametxt] &txtリネーム=[renametxt] ファイル複写 &ファイル名,&txtリネーム ケース (&ファイル名="") 繰り返し中止 ケース終了 代入 &ファイル数=&ファイル数+1 繰り返し終了 ファイル削除 &検索ファイル 表形式編集
|