如题:
Dim FilePath As New System.IO.StreamWriter("D:/1.dat", True) 'True追加、False覆盖
Dim Myi As Integer
Myi = Me.DataGridView1.RowCount '行数
Dim Weather1!()
ReDim Weather1!(2)
Weather1(1) = Me.DataGridView1.RowCount
Weather1(0) = qixiang
Dim Weather2!(,)
ReDim Weather2!(Myi, 3)
For i = 0 To Myi - 1
Weather2(i, 0) = DataGridView1.Rows(i).Cells(1).Value '干球温度
Weather2(i, 1) = DataGridView1.Rows(i).Cells(2).Value '湿球温度或相对湿度
Weather2(i, 2) = DataGridView1.Rows(i).Cells(3).Value '大气压力
Next
Dim Str As String = ""
For i = 0 To 1
Str = Weather1(i) & "," & Str
Next
FilePath.WriteLine(Str) '把数组1的数据写入
FilePath.Close()
End Sub
我想把Weather2(,)这个数组也写入到.dat文件中,请问该如何实现
PS:如果生成EXE文件后, .dat文件是EXE程序所在的文件
------解决思路----------------------
那你也像处理一维一样,把二维的当成字符串一起写入不就可以了么。
Dim Str2 As String = ""
For i = 0 To Myi - 1
Str2 = Str2 & Weather2(i,0) & " " & Weather2(i,1) & " " & Weather2(i,2) & "\r\n"
Next
------解决思路----------------------
exe所在文件夹的话,可以通过AppDomain.CurrentDomain.BaseDirectory来获取目录