| ■1621 / ) |
Re[1]: １個のファイルを多数コピーしたい
|
□投稿者/ ひろ -(2006/11/15(Wed) 08:44:54)
| ■No1619に返信(もくもくさんの記事)
>
> C:\個人 のフォルダーに１０個のtxtファイルがあります。
> a.txt,b.txt,c.txt,d.txt,e.txt,f.txt,g.txt,h.txt,i.txt,j.txt
> 表にAとBの項目があり
>
> A項目 a b c a a b h c d a d の入力があり
>
> B項目 a.txt b.txt c.txt a.txt a.txt b.txt h.txt c.txt d.txt a.txt a.txt d.txt とA項目に 拡張子を追加 した 表があり
>
> B項目に基づいて B項目がa.txtであれば、C:\個人 のフォルダーから
> 同じファイル名の a.txt を見つけ
>
> 1000の文字《数字》を付けたし 1000a.txtとしてc:\複数 の フォルダーにコピーし次ぎの b.txt は 1001b.txt のファイル名〜c.txtは1002c.txt 次の a.txt は 1003a.txt のように C:\個人 のファイルに 読み出し順番に
> ４桁の連番を付けてc:\複数 のフォルダーにコピーしたいのですが、
> ご教授をお願いします。
>
昨日の一括処理を少し変更すれば出来ますよ。
変数宣言 文字列,固有{&ファイル名１,&ファイル名２}
変数宣言 整数,固有{&連番}
表 "temp.tbl"
代入 &連番=1000
繰り返し ( .not #終端行 )
代入 &ファイル名１=[Ｂ]
代入 &ファイル名２="c:\複数\"+#文字列(&連番)+&ファイル名１
代入 &ファイル名１="c:\個人\"+&ファイル名１
ファイル複写 &ファイル名１,&ファイル名２
ジャンプ 行番号 = 次行
&連番=&連番+1
繰り返し終了
でどうでしょうか。
|
|
