教えてください!お願いします。
VB6を使って、複数のテキストファイル(~.txtで保存しているもの)を
一つずつ読み込んで、それらを結合して1つのファイルにして
リッチテキストボックスに表示する、というツールを作成しています。
一応うまく出来たのですが、ただ、結合した時にそれぞれのテキストの
間にどうしても1行ブランクが入ってしまうんです。
このブランク行を削除して、結合したファイルの継ぎ目がきれいに
続いて表示されるようにする方法はありますでしょうか?
ブランク行を全て削除してしまうのではなく、ファイルとファイルの
間に挿入されてしまうブランク行だけをなくしたいのです。
ちなみに
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
書き出すファイルが存在しなければそのまま保存し、書き出すファイルが
あれば、そのファイルに追記するというコードにしています。
No.1ベストアンサー
- 回答日時:
実際に動かしてみたのではないのですが、コードを見たところ、読み込み時にリターンコードを追加しているにも関わらず保存しているところで、Print文の最後にセミコロンが入っていないので自動的にさらにリターンコードが入っているようです。
Print #FileNum, gggg;
とすると、書き込みの際のリターンコードが入らなくなると思います。但しこの場合は、ブランク仰臥はいるのが、この書き込み単位の所で起こっている場合です。
しかし、よく判らないのは、最初の状況の説明が、
>VB6を使って、複数のテキストファイル(~.txtで保存しているもの)を
>一つずつ読み込んで、それらを結合して1つのファイルにして
>リッチテキストボックスに表示する、というツールを作成しています。
と、書いてあるのですが、後半になってなぜかファイルに書きこむ作業のコードに写っています。リッチテキストボックスに読み込んだ文字列を表示するのではないのですか?
ご回答いただき、ありがとうございます!
私の質問が足りませんでした。ごめんなさい。
記述したコードは一部を抜き出したものでして、実際は
各テキストファイルを全部読み込んで、それを一度
一つのテキストファイルにまとめて保存します。
そして、その保存したファイルをもう一度全て読み込んでから
リッチテキストボックスに表示する、というふうにしています。
わざわざ一度テキストに保存する必要はなかったのですが、
なにせメモリを消費するコードになってますので、もしも
途中でハングアップしたりしても、かろうじてディスクには
まとめたファイルが残っているという状態にしておこうと
考えました。
これがそもそも悪かったようです。
間のテキストを一度保存するという部分をカットしたらうまく
いきました。
でも、教えていただいたコードの
Print #FileNum, gggg,
gggg, というふうに書くことができるというのは全く知りません
でした。
とても勉強になりました。
本当にありがとうございました。
また何かと質問をしたいと考えていますので、その時はぜひぜひ
ご教授くださいませ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのVBAでEOFを誤認識
-
【VBA】テキストファイルを指定...
-
VBAでテキストファイルの件...
-
サーバーに置いてあるテキスト...
-
VBscript
-
【VBA】テキストファイルの内容...
-
Excelにて、フォルダ内のTextフ...
-
アスキー、バイナリーの違い、...
-
unixのシェルスクリプトで特定...
-
複数のテキストファイル内の複...
-
テキストファイルの最終行を消...
-
ファイルのアクセス回数について
-
カンマ区切りのCSVファイルから...
-
エクセルのプロパティーでセキ...
-
エクセルで複数のコメントのサ...
-
バッチでCSVを処理する時、空の...
-
Windows10でコマンドプロンプト...
-
エクセルvbaでdocuworksprinter...
-
エクセル2010、図が大きすぎま...
-
【VBA】ExcelマクロでCSVファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】テキストファイルを指定...
-
EXCELのVBAでEOFを誤認識
-
アスキー、バイナリーの違い、...
-
同一フォルダにある複数のテキ...
-
Excelにて、フォルダ内のTextフ...
-
VBScript(vbs)での行の取得につ...
-
VBAでテキストファイルを最後ま...
-
uwscでExcelに自動記入
-
テキストファイルの最終行を消...
-
複数のテキストファイル内の複...
-
unixのシェルスクリプトで特定...
-
VBでのテキストファイルへ参照...
-
VBscript
-
VBSを使用し、指定フォルダ内の...
-
句点で改行
-
Java バブルソート
-
vbaでテキストファイル(*.txt...
-
スペース区切りのテキストファ...
-
Matlabでリストにあるファイル...
-
VBAで特定のパス(フォルダ)内...
おすすめ情報