vs2019でvbコードを作成していましたが、自己解決出来なかったため投稿しました。
一番左列を計算ステップ数として出力し、同じ行に1点が3数値を持つ6カ所の計算結果を出力するものです。
6カ所のデーターのため、「NODE=6」としています。
「out.txt」に出力させると、下記のとおり1行目に1カ所分の3数値が記載された後に改行され、
6カ所分の数値が記載されてしまいます。
これを②のように、ステップ毎に1行に6カ所×3数値=18を出力させる方法を知りたいです。
どのようにすれば1行毎に更新されて正しく数値を格納できるでしょうか。
コードを示しますのでアドバイス頂けますと有難く存じます。
①出力ファイル「out.txt」
1, 0, 0, 0
1, 1.63401841165215E-06, -4.23975684907087E-06, -2.44840995811576E-05
1, 0, 0, 0
1, 1.62765335623538E-06, -6.76145984583269E-06, 6.89722445866509E-07
1, 0, 0, 0
1, 1.6277681511652E-06, -2.60468852869766E-06, 7.00096162112573E-07
2, 0, 0, 0
2, 3.2680368232265E-06, -8.47951369814418E-06, -4.89681991621149E-05
2, 0, 0, 0
2, 3.25530671239303E-06, -1.35229196916688E-05, 1.3794448917347E-06
2, 0, 0, 0
2, 3.25553630225271E-06, -5.2093770573886E-06, 1.40019232422684E-06
3, 0, 0, 0
3, ・・・
②希望する出力ファイル形式
1, 0, 0, 0, 1.63401841165215E-06, -4.23975684907087E-06, -2.44840995811576E-05, 0, 0, 0, ・・・
2, 0, 0, 0, 3.2680368232265E-06, -8.47951369814418E-06, -4.89681991621149E-05, 0, 0, 0, ・・・
3, 0, 0, 0, ・・・
③コード
Dim LineW77 As New IO.StreamWriter("./out.txt", False, System.Text.Encoding.GetEncoding("shift_jis"))
Dim aa77$
'ステップ
For Istp = 1 To Nstep
'出力
For J = 1 To NODE
aa77$ = Str$(Istp) + ", " + Str$(D(3 * J - 2, Istp)) + ", " + Str$(D(3 * J - 1, Istp)) + ", " + Str$(D(3 * J, Istp))
LineW77.WriteLine(aa77$)
Next J
LineW77.WriteLine()
Next Istp
LineW77.Close()
Nstep
やStr$(D(3 * J - 2, Istp))
等の部分を適当な数値やダミーの文字列で置き換えて実行しても質問のような結果にはならないので、質問記事のソースコードには転記ミスや不足等により、そもそも不完全だと思われます。見直して正しく問題を再現するのに十分なソースコードとデータを提示してください。