Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13639 / 13646 ツリー ←次へ | 前へ→

【4481】テキストファイルからのデータの読み込み... ひろし 03/3/22(土) 14:27 質問
【4482】Re:テキストファイルからのデータの読み込み... かみちゃん 03/3/22(土) 14:45 回答
【4483】Re:テキストファイルからのデータの読み込... ひろし 03/3/22(土) 14:56 質問
【4485】Re:テキストファイルからのデータの読み込... ひろし 03/3/22(土) 17:14 お礼
【4486】Re:テキストファイルからのデータの読み込... かみちゃん 03/3/22(土) 17:36 お礼

【4481】テキストファイルからのデータの読み込み...
質問  ひろし  - 03/3/22(土) 14:27 -

引用なし
パスワード
   あるテキストファイルからデータを全て読み込んで、別のファイルに追加書き
込みをしたいのですが、

元データファイルの内容が
あいうえお(改行)
で、データの読み込みで
  buf = Space(FileLen(fNamein))
  Open fNamein For Binary As #fNumin
    Get #fNumin, , buf
  Close #fNumin
としてデータをbufに取り込んでいますが、
bufの中身は
"あいうえお
"
となり、そのまま
  Open CsvFileName For Append As #fNumout
    Print #fNumout, buf
  Close #fNumout
で別ファイルに追加することができません。
何か良い方法はないでしょうか?

※実際は元データファイルの内容は数百MBあるので、いったんbufに取り込むのも
 どうかと思っているのですが。。

【4482】Re:テキストファイルからのデータの読み込...
回答  かみちゃん  - 03/3/22(土) 14:45 -

引用なし
パスワード
   ▼ひろし さん:
>あるテキストファイルからデータを全て読み込んで、別のファイルに追加書き
>込みをしたいのですが、

通常、Get ステートメントを使用して読み込んだデータは Put ステートメントを使用して書き込みます。

改行(CRLF)で区切られているならば、Line Inputステートメントを使用して1行ずつ読み込み、Printステートメントで1行ずつ書き込みすればよいのではないでしょうか?


>で別ファイルに追加することができません。
>何か良い方法はないでしょうか?
>
>※実際は元データファイルの内容は数百MBあるので、いったんbufに取り込むのも
> どうかと思っているのですが。。

【4483】Re:テキストファイルからのデータの読み込...
質問  ひろし  - 03/3/22(土) 14:56 -

引用なし
パスワード
   ▼かみちゃん さん:
>通常、Get ステートメントを使用して読み込んだデータは Put ステートメントを使用して書き込みます。

Putだと、ファイルに追加書き込みできないようなのです。。
(追加(Append)モードでOpenしたファイルにPutは使用できない?)

>改行(CRLF)で区切られているならば、Line Inputステートメントを使用して1行ずつ読み込み、Printステートメントで1行ずつ書き込みすればよいのではないでしょうか?

数万行あるので、LOOPせずにできれば一括で書き込みたいのです。(処理速度の関係で)

【4485】Re:テキストファイルからのデータの読み込...
お礼  ひろし  - 03/3/22(土) 17:14 -

引用なし
パスワード
   かみちゃん さん
以下を参考にして実現できました。
http://www.bekkoame.ne.jp/~ilgg/VBMain/VB/Folder/DivFile.html

ありがとうございました。

【4486】Re:テキストファイルからのデータの読み込...
お礼  かみちゃん  - 03/3/22(土) 17:36 -

引用なし
パスワード
   ▼ひろし さん:
>http://www.bekkoame.ne.jp/~ilgg/VBMain/VB/Folder/DivFile.html
なるほど、この手がありましたね。

13639 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free