Kamis, 11 April 2013

datagrid to txt (text File) VB.net

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: