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

解決

３１０３ 2004-03-02 01:08:15 No: 82338

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

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-02 01:22:45 No: 82339

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

ナトリ 2004-03-02 01:25:14 No: 82340

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

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

たかみちえ URL 2004-03-02 01:33:31 No: 82341

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

３１０３ 2004-03-02 01:50:22 No: 82342

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

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

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

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

ナトリ 2004-03-02 01:58:05 No: 82343

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

Say 2004-03-02 10:41:13 No: 82344

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

３１０３ 2004-03-02 21:45:54 No: 82345

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

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