教えてください！お願いします。
VB6を使って、複数のテキストファイル(～.txtで保存しているもの)を
一つずつ読み込んで、それらを結合して１つのファイルにして
リッチテキストボックスに表示する、というツールを作成しています。
一応うまく出来たのですが、ただ、結合した時にそれぞれのテキストの
間にどうしても１行ブランクが入ってしまうんです。
このブランク行を削除して、結合したファイルの継ぎ目がきれいに
続いて表示されるようにする方法はありますでしょうか？
ブランク行を全て削除してしまうのではなく、ファイルとファイルの
間に挿入されてしまうブランク行だけをなくしたいのです。
ちなみに
Open App.Path & "\" & List1.List(List1.ListIndex) For Input As #FileNum
Do Until EOF(FileNum)
Line Input #FileNum, ddd
gggg = gggg & ddd & vbCrLf
Loop
Close #FileNum
このようにリストに載っているテキストファイルを全部読み込んで、
If Dir(書き出すテキストファイル) = "" Then
Open 書き出すテキストファイル For Output As #FileNum
Print #FileNum, gggg
Close #FileNum
Else
Open 書き出すテキストファイル For Append As #FileNum
Print #FileNum, gggg
Close #FileNum
End If
書き出すファイルが存在しなければそのまま保存し、書き出すファイルが
あれば、そのファイルに追記するというコードにしています。
お礼
ご回答いただき、ありがとうございます！ 私の質問が足りませんでした。ごめんなさい。 記述したコードは一部を抜き出したものでして、実際は 各テキストファイルを全部読み込んで、それを一度 一つのテキストファイルにまとめて保存します。 そして、その保存したファイルをもう一度全て読み込んでから リッチテキストボックスに表示する、というふうにしています。 わざわざ一度テキストに保存する必要はなかったのですが、 なにせメモリを消費するコードになってますので、もしも 途中でハングアップしたりしても、かろうじてディスクには まとめたファイルが残っているという状態にしておこうと 考えました。 これがそもそも悪かったようです。 間のテキストを一度保存するという部分をカットしたらうまく いきました。 でも、教えていただいたコードの Print #FileNum, gggg, gggg, というふうに書くことができるというのは全く知りません でした。 とても勉強になりました。 本当にありがとうございました。 また何かと質問をしたいと考えていますので、その時はぜひぜひ ご教授くださいませ。