Public Class Form2
Public Structure aa
Dim a As String
Dim b As Integer
Dim c As Boolean
End Structure
Public sh(222) As aa
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fileStream As System.IO.FileStream
Dim streamReader As System.IO.StreamReader
Dim streamWriter As System.IO.StreamWriter
Dim strRow As String
Dim filePath As String = "e:/CsvTest.csv"
For i As Integer = 0 To 22
sh(i).a = "zhangxg"
sh(i).b = i * i
sh(i).c = (i Mod 2 = 0)
Next
Try
If (System.IO.File.Exists(filePath)) Then
System.IO.File.Delete(filePath)
End If
fileStream = New IO.FileStream(filePath, System.IO.FileM