CSVファイルへの保存の際、データが途中で切れてしまいます。

Question

はじめまして。初心者になりますが、よろしくお願いします。
visual basic 2008を使って、研究で数値シミュレーションを組んでいるのですが、
その値をcsv形式で出力した際に、値の終わりの方が消えてしまう現象が出てしまいます。

具体的には、（出力データ数,xの値,zの値）という形でファイルに書き込んでいくのですが、
出力データ数を1001個にした際、保存したファイルをExcelやメモ帳で開くと、
最後が、(991,0.111540025,0.2)といった形となってしまい。値の数が合わないのです。
他にも出力データ数の値を変えて試してみましたが、
出力データ数が101個の際には、実際保存されたのは97個
出力データ数が2001個の際には、実際保存されたのは1998個
出力データ数が5001個の際には、実際保存されたのは4988個
となります。
いずれも、途中は完全に保存されていて、最後の部分のみ保存されていない（途中で切られている）といった状況です。
デバッグで切られている部分も値が存在していることは確認できていますので、
おそらく保存する際の間違いだと思うのですが、原因がわかりません。
すみませんが、ご指導をお願いします。

（以下、保存のためのプログラムを記します）
    Private Sub RK_ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rk_ToolStripMenuItem.Click
        'ルンゲクッタデータを保存するためのモジュール
        Dim myStream As Stream
        Dim saveFileDialog1 As New SaveFileDialog()
        Dim s As String = ""

        If save_flag = False Then
            MsgBox("Error!!" & vbLf & "データがありません。")
        Else
            saveFileDialog1.Filter = "csv files (*.csv)|*.csv|txt files (*.txt)|*.txt|All files (*.*)|*.*"
            saveFileDialog1.DefaultExt = "csv"
            saveFileDialog1.FilterIndex = 1
            saveFileDialog1.RestoreDirectory = True
            saveFileDialog1.OverwritePrompt = True

            If saveFileDialog1.ShowDialog() = DialogResult.OK Then
                myStream = saveFileDialog1.OpenFile()
                Dim sw As StreamWriter = New streamWriter(myStream)
                If (myStream IsNot Nothing) Then

                    For i As Integer = 0 To n
                        s = t_temp(i).ToString & "," & x_temp(i).ToString & "," & z_temp(i).ToString
                        sw.WriteLine(s)
                    Next i
                    myStream.Close()
                    MsgBox("ファイルへの書き込みが終了しました")
                End If
            End If
        End If
    End Sub

redfox63 · Accepted Answer

Flashを呼ぶとは StreamやStreamWriterのFlashメソッドを呼ぶということです

Closeを実行する前に

sw.Flash()
myStream.Flash()
などを挿入してみてください

投稿されているコード内容は実際に不具合の出るコードと同じなのでしょうか
Try/Catchなどの例外処理などはされていませんか

kunkun_129 · Answer

ANo.4の回答で１行間違っていたので再度書き込みます。失礼しました。

ソースを見て感じた事と最後に解決へのヒントを述べたいと思います。

貴方のソースから見ると、

ファイルのOpen

for 
書き込み内容の処理
ファイルへの書き込処理
next 

ファイルのClose

大まかに上の様になっています。今回のサンプルプログラムは
書き込み内容の処理、ファイルへの書き込処理それぞれ１行づつの
単純なものなので、さほど問題もないが、それでも原因不明のバグ
に悩まされるものです。ソースを見る限りなぜ書き込みがうまくいかない
のか不思議です。
ただ言える事は、ソースがバグの出やすい構造になっている事です。
故に原因が、ファイルへの書き込みで起こっているのか、書き込み内容の
作成段階で間違っているのか、原因がつかみにくいです。

上の様なソースの書き方は、ＣＰＵのメモリの少なかった時代（１０年前）
のソースの書き方だとおもいます。

現在では、メモリは使いきれない位あるので下の様にコーディングする
事を進めます。そうする事によって、バグが発見し易くなります。


'---------------------------------------------------------------
' 変数に書き込み内容をどんどんためていきます。
'---------------------------------------------------------------
s=""
For i As Integer = 0 To n
s += t_temp(i).ToString & "," & x_temp(i).ToString & "," & z_temp(i).ToString    '　<====  ここが間違っていた。 S+= の「＋」が抜けていました。
Next i

' <==========

'---------------------------------------------------------------
' ファイルの書き込み
'---------------------------------------------------------------

myStream = saveFileDialog1.OpenFile()
Dim sw As StreamWriter = New streamWriter(myStream)
sw.WriteLine(s)
myStream.Close()


上の様にコーディングする事によって、利点は沢山あります。


　(1)．<====　のマークでブレークポイントを設けて変数Ｓの内容を
　　　確認する事によって、今回の内容が、ファイルへの書き込みで起こっているのか、
　　　書き込み内容の作成段階で間違っているのかはっきりする。

　(2)．今回は For と Next の間の行がわずか２行ですが、大きなプログラムだと
　　　２０行も３０行もある時があります。
　　　そうすると、ファイルへの書き込みとデータの作成が混在してどこでバグが
　　　出ているのか判りにくい。分ける事によってバグが出にくくなります。

　(3)．ファイルはハードディスクを利用する為、出来るだけ、ファイルのOpenとClose
は短時間で処理するのが理想です。ファイルをOpenしたら出来るだけ１行で
　　　書き込み、直ぐにCloseする事によって、ハードディスク等の破損を防ぐ事が
　　　できます。

　(4)．ファイルStreamに書き込むより、変数にデータを書き込むのがレスポンスが
　　　格段に早い

以上、解決のヒントになれば幸いです。

kunkun_129 · Answer

ソースを見て感じた事と最後に解決へのヒントを述べたいと思います。

貴方のソースから見ると、

ファイルのOpen

  for 
       書き込み内容の処理
       ファイルへの書き込処理
  next 

ファイルのClose

大まかに上の様になっています。今回のサンプルプログラムは
書き込み内容の処理、ファイルへの書き込処理それぞれ１行づつの
単純なものなので、さほど問題もないが、それでも原因不明のバグ
に悩まされるものです。ソースを見る限りなぜ書き込みがうまくいかない
のか不思議です。
ただ言える事は、ソースがバグの出やすい構造になっている事です。
故に原因が、ファイルへの書き込みで起こっているのか、書き込み内容の
作成段階で間違っているのか、原因がつかみにくいです。

上の様なソースの書き方は、ＣＰＵのメモリの少なかった時代（１０年前）
のソースの書き方だとおもいます。

現在では、メモリは使いきれない位あるので下の様にコーディングする
事を進めます。そうする事によって、バグが発見し易くなります。


'---------------------------------------------------------------
'   変数に書き込み内容をどんどんためていきます。
'---------------------------------------------------------------
s=""
For i As Integer = 0 To n
    s = t_temp(i).ToString & "," & x_temp(i).ToString & "," & z_temp(i).ToString
Next i

'  <==========

'---------------------------------------------------------------
'   ファイルの書き込み
'---------------------------------------------------------------

myStream = saveFileDialog1.OpenFile()
Dim sw As StreamWriter = New streamWriter(myStream)
sw.WriteLine(s)
myStream.Close()


上の様にコーディングする事によって、利点は沢山あります。


　(1)．<====　のマークでブレークポイントを設けて変数Ｓの内容を
　　　確認する事によって、今回の内容が、ファイルへの書き込みで起こっているのか、
　　　書き込み内容の作成段階で間違っているのかはっきりする。

　(2)．今回は For と Next の間の行がわずか２行ですが、大きなプログラムだと
　　　２０行も３０行もある時があります。
　　　そうすると、ファイルへの書き込みとデータの作成が混在してどこでバグが
　　　出ているのか判りにくい。分ける事によってバグが出にくくなります。

　(3)．ファイルはハードディスクを利用する為、出来るだけ、ファイルのOpenとClose
      は短時間で処理するのが理想です。ファイルをOpenしたら出来るだけ１行で
　　　書き込み、直ぐにCloseする事によって、ハードディスク等の破損を防ぐ事が
　　　できます。

　(4)．ファイルStreamに書き込むより、変数にデータを書き込むのがレスポンスが
　　　格段に早い

以上、解決のヒントになれば幸いです。

redfox63 · Answer

書き込んでいる先はローカルドライブでしょうか？

StreamやStreamWriterをCloseする前に Flashを呼んでみても一緒ですか

iriyak · Answer

こんにちは。

机上ベースですが・・・

1. StreamWriter に writeLine してもらって close してもらうのでは?? プログラムは、myStream に close を送っているように見えます。

2. New StreamWriter でインスタンスオブジェクトの生成にトライしていますが、myStream が Nothing か比較していますが、これも sw 変数に代入されたかどうかを検査したかったのでは??

bin-chan · Answer

Forループの回数を制御する変数nはどこで宣言されているのでしょうか？
モジュールの引数として渡されているようには見えません。

本当に「nは意図する回数の値」になっているのでしょうか？
定数とすることはできませんか？
ｈ

CSVファイルへの保存の際、データが途中で切れてしまいます。

Flashを呼ぶとは StreamやStreamWriterのFlashメソッドを呼ぶということです

ANo.4の回答で１行間違っていたので再度書き込みます。

ソースを見て感じた事と最後に解決へのヒントを述べたいと思います。

書き込んでいる先はローカルドライブでしょうか？

この回答への補足

こんにちは。

この回答への補足

Forループの回数を制御する変数nはどこで宣言されているのでしょうか？

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング