テキストファイルに空白を表示するには？

解決

稲兎 2003-04-15 00:08:26 No: 106678

Ａテキストファイルを読み込みデータを変数に格納して、Ｂテキストファイルに書き込みを行おうとしています。

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に空白も含めて１２０桁分のデータを格納するにはどうすれば良いのでしょうか？
ご指導お願い致します。

名前なし 2003-04-15 01:44:38 No: 106679

Input で読み込んだデータを Print で書き込むとそのようなことになります。

ヘルプを見れば分かります。

稲兎 2003-04-15 18:18:58 No: 106680

返答ありがとうござます！
ヘルプで調べました。
別の方法で検討したいと思います。
ありがとうございました。