Excelへのテキストデータの取り込み

質問

VB2005でテキストファイルを作成し、それをExcelに取り込もうとしています。

123,234,120,200
200,300,400,500
111,222,333,444

のようなファイルを作成し、これをExcelに取り込むと
３行で取り込まれます。

次に
123,234,120,200

200,300,400,500

111,222,333,444

のように文字列の行間に改行文字(chr$(13))だけの行を作成し、
これを取り込もうとすると、
２行おきに読み込まれてしまいます。

メモ帳でファイルの中身を確認すると１行おきになっているのに、
Excelのデータ→外部データの取り込みでテキストデータウィザードを見ると
すでに２行おきになっているのです。
１行おきに作成した文字列ファイルを１行おきに取り込むにはどうしたらいいのでしょうか？

回答No.3

Wendy02 · ベストアンサー

こんばんは。Wendy02です。

もともと、PrintLineは、CrLf が含まれています。

>PrintLine(1,chr(13))
このようにしますと、メモ帳で開けると、片割れだけでは、改行コード(CrLf)になりませんので、改行は一つです。テキストエディタでははっきり区別が付くのですが、中身は、「CrCrLf」という状態になっています。ですから、以下のようにしてあげれば、直るはずです。

　　　　Const FNAME As String = "C:\"
　　　　FileOpen(1, FNAME & "TestOutPut.txt", OpenMode.Output)
　　　　PrintLine(1, "12345")
　　　　PrintLine(1)
　　　　PrintLine(1, "67890")
　　　　FileClose(1)
　　End Sub

なお、テキストエディタは、ひとつお持ちになって利用なされると良いと思います。
これは、隠れた名品のひとつで、sakura editor といいます。大勢の方が、知恵を寄せ合って作ったもので、他のエディタとは、製作スタイルがまるで違います。
http://sakura-editor.sourceforge.net/

お礼

完璧です。m(_ _)m

回答No.2

Wendy02

こんばんは。

今、再現性があるか試してみました。
Win の標準改行コードは、「CrLf」です。そこで、テキストエディタで、「Cr」のみ、「Lf」のみのテキストファイルで作って、インポートを、Excelのテキストデータウィザードで行ってみましたが、そのような現象が起こりません。

VB2005で、どのように出力されているのかは分かりませんが、どこかで二重になっていないでしょうか？　Chr$ というのは、.Net では書かないような気がしますね。ControlChars　を使ってはいないのでしょうか？

メモ帳では分からないかもしれませんが、テキストエディタなら判別が付くかもしれません。

補足

ご回答ありがとうございます。出力は
PrintLine(1,"12345")
PrintLine(1,chr(13))
PrintLine(1,"67890")
のように行なっています。
「Cr」のみ、または「Lf」のみを付加することはできるのでしょうか？

回答No.1

usami33

たぶんLF(chr$(10))が付加されているんだと思いますよ。

お礼

ご回答ありがとうございます。
確認する方法はありますか？
メモ帳のテキストファイルをVBのlineInputなんかで読むと
CRやLFはなくなってしまうんですよね？