编写CSV文件vb.net

Question

我只是在vb.net中的CSV文件保存代码

中遇到麻烦

我正在尝试保存将在DataGridView中读取的CSV文件。我只是做了"阅读"。代码，它可以完美地工作！保存文件有什么问题？

Public Class Builder
Sub Create_Records()
    Dim i As Integer
    For i = 0 To Manager.Grid.Rows.Count - 1
        Manager.Grid.Rows.Add("ciao;", "comestai")
    Next
End Sub
Sub Write()
    If (Not System.IO.Directory.Exists("C:MyPCBuilder")) Then 
        System.IO.Directory.CreateDirectory("C:MyPCBuilder")
    End If
  
    Dim Write As New System.IO.StreamWriter("C:MyPCBuilderbuilds.csv")
    For i = 0 To Manager.Grid.Rows.Count - 1
        Text = ""
        For j = 0 To 1
            If Text = Text & Manager.Grid.Rows(i).Cells(j).Value & ";" Then
            Else
                Text = Text & Manager.Grid.Rows(i).Cells(j).Value
            End If
        Next
        Write.WriteLine(Text)
    Next
    Write.Close()
End Sub
Private Sub btn_Confirm_Click(sender As Object, e As EventArgs) Handles btn_Confirm.Click
    Create_Records()
    Write()
End Sub
End Class

Answer 1

内部循环中的if statement是错误的。Then部分是空的，条件很奇怪。由于您只有2列，只需写

For i = 0 To Manager.Grid.Rows.Count - 1
    Text = Manager.Grid.Rows(i).Cells(0).Value & ";" & Manager.Grid.Rows(i).Cells(1).Value
    Write.WriteLine(Text)
Next

如果要保留此内部循环（如果您有更多列或可变数量的列），请测试索引（未显示外循环）

Text = ""
For j = 0 To 1
    If j > 0 Then
        Text = Text & ";"
    End If
    Text = Text & Manager.Grid.Rows(i).Cells(j).Value
Next