テキストファイルへの書き込み

解決

３１０３  2004-03-01 16:08:15  No: 82338  IP: [192.*.*.*]

ＡというテキストファイルからＢというテキストファイルへ内容を書き込む場合。

Dim dat As String
Open Ａ For Input As #1
Open Ｂ For Input As #1
Do Until EOF(1)
  Input #1 , dat
  Output #2 , dat
Loop

とすると１行ずつＢのテキストへ書き込まれるのですが、
これをＡの内容を一気にＢへ書き込むという方法はあるのでしょうか？
わかる方いましたら、宜しくお願いします。

編集 削除
Tom's  2004-03-01 16:22:45  No: 82339  IP: [192.*.*.*]

単純にファイルコピーではダメでしょうか？

編集 削除
ナトリ  2004-03-01 16:25:14  No: 82340  IP: [192.*.*.*]

>これをＡの内容を一気にＢへ書き込むという方法はあるのでしょうか？

ファイルからの読み込み、書き込み順番の違いだけですが、
まず、Aというファイル内のデータをすべて変数に格納してから、
Bというファイルに書き込むというふうにやると、一気に書き込むことが
できますよ。

編集 削除
たかみちえ  URL  2004-03-01 16:33:31  No: 82341  IP: [192.*.*.*]

String型変数に、バイナリデータとして読み込むという手があったような。
VB付属のREGIST.TXTも、数秒で読めます。
Open Ａ For Binary As #1 という感じだったかな。

編集 削除
３１０３  2004-03-01 16:50:22  No: 82342  IP: [192.*.*.*]

みなさん早速ありがとうございます。

一つ記述訂正ですが、
Ｂのファイルについては
Open Ｂ For Append As #1 です。

Ｂのファイルへ追加して行きたいのですが、
例えば、Ａのファイルの内容が
『あいうえお
かきくけこ
さしすせそ』の場合
Do 〜 Loop をつけないと、１行目（あいうえお）しか
Ｂのファイルへ追加されないのですが、Do〜Loopを
使用しないでＢのファイルへ追加する方法はあるのでしょうか？

私の説明がいまいちうまくなく申し訳ないですが宜しくお願いします。

編集 削除
ナトリ  2004-03-01 16:58:05  No: 82343  IP: [192.*.*.*]

使用したことがないので詳しいことはわかりませんが、
TextStream オブジェクトのReadAllで一気に読み込むことが
できそうですよ。

編集 削除
Say  2004-03-02 01:41:13  No: 82344  IP: [192.*.*.*]

DOSプロンプトで
TYPE a.txt >> b.txt
としたほうが手っ取り早かったりして。
バッチにするという手もあるし。

編集 削除
３１０３  2004-03-02 12:45:54  No: 82345  IP: [192.*.*.*]

ありがとうございます。
おかげさまで何とか出来そうです。

また、なにかありましたらお願いします。

編集 削除