Lanjutan dari sebelumnya sekarang di balik dari datagrid ke txt
Mari kita mulai
Ketika klik Export to txt saja codingannya
Dim fileWriter As StreamWriter
Dim saveFileDialog1 As New SaveFileDialog()
Dim judul As String
saveFileDialog1.Filter = "Txt Files (*.txt)|*.txt"
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim content, content2 As String
judul = saveFileDialog1.FileName.ToString()
Try
fileWriter = New StreamWriter(judul)
For i = 0 To DataGridView1.RowCount - 2
For j = 0 To DataGridView1.ColumnCount - 1
content = DataGridView1(j, i).Value.ToString() + ControlChars.Tab
fileWriter.Write(content)
Next
content2 = Environment.NewLine
fileWriter.Write(content2)
Next
MsgBox("You can find the file" + judul)
fileWriter.Close()
Catch x As Exception
MsgBox(x.Message)
End Try
End If
tools tambahan
safefilediaog()
Sekian
Tidak ada komentar:
Posting Komentar