Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13638 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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ステートメントを使用して１行ずつ読み込み、Printステートメントで１行ずつ書き込みすればよいのではないでしょうか？

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


	【4483】Re:テキストファイルからのデータの読み込...

ひろし - 03/3/22(土) 14:56 -


	引用なし

	パスワード

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

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

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

数万行あるので、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
なるほど、この手がありましたね。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13638 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free