ＣＳＶ出力について

質問

長文お許しください。
　　Do Until EOF(1)
　　　　Line Input #1, aa
　　　　bb = Split(aa, ",")
　　　　　　:
　　　　　　:
　　aaの値は　1234,abc　　　,ＡＢＣ　　です。
　　これを　　　1234,xyz　　　,ＡＢＣ　　に編集し出力したく
　　以下のコードを書きました
dim x01
dim x02
dim x03　
　　x01 = bb(0)
　　bb(1) = "xyz　　　"
　　x02 = bb(1)
　　x03 = bb(2)
　　Write 1, x01, x02, x03
出力の内容を見ると、
　　"1234","xyz　　　","abc" になります。
これをダブルコーテーションなしで
　　1234,xyz　　　,abc
に出力したいのです。
根本的なコードの書き方が間違っているかも知れませんが
どのようにすればよろしいかアドバイスお願いします。

※ＬＩＮＥ　ＩＮＰＵＴを使用しているのは、入力データ
２項目の　ａｂｃの後ろの空白を参照するためです。

開発はＶＢ６です。

回答No.1

noname#22222 · ベストアンサー

123,xyz　　　,abc

次は、このように出力するサンプルコードです。

Private Sub Command1_Click()
　　Dim N　　　 As Integer
　　Dim x(2)　　As String
　　Dim strText As String

　　x(0) = "123"
　　x(1) = "xyz　　　"
　　x(2) = "abc"
　　strText = Join(x(), ",")
　　N = FreeFile
　　Open "C:\Temp\Test1.csv" For Output As #N
　　Print #N, strText
　　Close #N
End Sub

Private Sub コマンド0_Click()
　　Dim x(2)　　As String

　　x(0) = "123"
　　x(1) = "xyz　　　"
　　x(2) = "abc"
　　FileWrite "C:\Temp\Test2.csv", Join(x(), ",")
End Sub

非手続き的に書けるのは後者です。
Microsoft scripting runtime を参照する必要があります。
なお、 FileWrite 関数は、次のようです。

Public Function FileWrite(ByVal FileName As String, _
　　　　　　　　　　　　　ByVal Text As String) As Boolean
On Error GoTo Err_FileWrite
　　Dim fso As FileSystemObject
　　Dim txs As TextStream

　　Set fso = New FileSystemObject
　　Set txs = fso.CreateTextFile(FileName, True)
　　txs.Write Text
　　FileWrite = True
Exit_FileWrite:
　　Exit Function
Err_FileWrite:
　　MsgBox Err.Description & "(FileWrite)", vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_FileWrite
End Function

回答No.2

Hayashi_Trek

Write ではなくPrint を使う。
Print #1, x01; ","; x02; ","; x03

ヘルプを見れば（Writeにカーソルを置いて、F1キーを押す）
1分で判るのに。