改行させるには？ (ID:141104)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ＣＳＶファイルを読み込み、加工（項目追加等）をして、レイアウトを変更した後、入力ファイルと同様な形式でファイル出力したく思います。 ソースを見ると『あたりまえ』の結果なのですが、改行がされません。 ・ どの様なやり方で改行されるのかご教授いただけると幸いです。 ・ カンマ編集で出力されますが、他のセパレータも指定で可能となるの でしょうか？ ・ 文字列が””の場合もこの考えでいけるのでしょうか？ ・ 処理速度等で何か良いアドバイスがあれば幸いです。 俗に言う、こぼらーです。参考書片手に頑張っているのですが 宜しくお願いいたします。 Module Module1 Sub Main() Dim rec As String Dim cnt As String Dim strArray() As String Dim str As String Dim infile_1 As String Dim outfile_1 As String infile_1 = "C:\Documents and Settings\太郎\デスクトップ\test_01.csv" outfile_1 = "C:\Documents and Settings\太郎\デスクトップ\out_01.csv" FileOpen(1, infile_1, OpenMode.Input) FileOpen(2, outfile_1, OpenMode.Output) Do Until EOF(1) rec = LineInput(1) cnt = cnt + 1 '「,」で分割 strArray = Split(rec, ",") For Each str In strArray 'MsgBox(str) Print(2, rec) Next Loop MsgBox(cnt) FileClose(1) FileClose(2) End Sub End Module