掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルに空白を表示するには？ (ID：106678)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Ａテキストファイルを読み込みデータを変数に格納して、Ｂテキストファイルに書き込みを行おうとしています。 Private Sub Command1_Click() Dim txtDB As String Dim Header As String Dim Data As String Dim Trailer As String Dim dataEnd As String Open "c:\data\Factoring.txt" For Input As #1 Open "C:\data\TEST.txt" For Output As #2 Do Until EOF(1) Input #1, txtDB Header = Left(txtDB, 121) Data = Mid(txtDB, 122, 241) Trailer = Mid(txtDB, 242, 361) dataEnd = Mid(txtDB, 362, 481) Print #2, Header; vbCrLf; Data; vbCrLf; Trailer; vbCrLf; dataEnd; vbCrLf Loop End Sub Dataの最後に空白が含まれているのですが、削除されてしまいます。 Dataに空白も含めて１２０桁分のデータを格納するにはどうすれば良いのでしょうか？ ご指導お願い致します。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.