none
comment sauvegarder un datagridview dans un fichier txt sur vb2010 RRS feed

Réponses

  • Bonjour,

    Voici la solution que tu peux faire :

    Voici mon codes :

    Imports System.IO
    
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            If DataGridView1.Rows.Count > 0 Then
                Dim save As New SaveFileDialog
                save.Filter = "Fichier Texte|*.txt"
                save.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
                If save.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Using writer As New StreamWriter(save.FileName)
                        Dim rowcount As Integer = DataGridView1.Rows.Count
                        Dim i As Integer = 0
                        Do While (i < (rowcount - 1))
                            writer.WriteLine((DataGridView1.Rows(i).Cells(0).Value.ToString + ("" & vbTab _
                                            + (DataGridView1.Rows(i).Cells(1).Value.ToString + ("" & vbTab + DataGridView1.Rows(i).Cells(2).Value.ToString)))))
                            i = (i + 1)
                        Loop
                        writer.Close()
                    End Using
                    MessageBox.Show("Fichier Sauvegarder", "Sauvegarder!")
                Else : Exit Sub
                End If
            End If
        End Sub

    cordialement,

    zorro591,

    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    • Marqué comme réponse SIMONGEORGES vendredi 22 mai 2015 05:53
    jeudi 21 mai 2015 14:33
  • Bonjour,

    Pour lire ton fichier texte par rapport datagridview ,Voici mon code :

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            Dim open As New OpenFileDialog
            open.Filter = "Fichier Texte|*.txt"
            open.FileName = "DataGridView1"
            open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
            If open.ShowDialog = Windows.Forms.DialogResult.OK Then
                Using reader As New StreamReader(open.FileName)
                    Dim TextLine As String = ""
                    Dim SplitLine() As String
                    Do While reader.Peek <> -1
                        TextLine = reader.ReadLine()
                        SplitLine = Split(TextLine, vbTab)
                        DataGridView1.Rows.Add(SplitLine)
                    Loop
                    reader.Close()
                End Using
                MessageBox.Show("Fichier charger", "Chargement")
            Else : Exit Sub
            End If
        End Sub

    Cordialement,

    zorro591,

    • Marqué comme réponse SIMONGEORGES vendredi 22 mai 2015 21:18
    vendredi 22 mai 2015 13:00

Toutes les réponses

  • Bonjour,

    Voici la solution que tu peux faire :

    Voici mon codes :

    Imports System.IO
    
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            If DataGridView1.Rows.Count > 0 Then
                Dim save As New SaveFileDialog
                save.Filter = "Fichier Texte|*.txt"
                save.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
                If save.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Using writer As New StreamWriter(save.FileName)
                        Dim rowcount As Integer = DataGridView1.Rows.Count
                        Dim i As Integer = 0
                        Do While (i < (rowcount - 1))
                            writer.WriteLine((DataGridView1.Rows(i).Cells(0).Value.ToString + ("" & vbTab _
                                            + (DataGridView1.Rows(i).Cells(1).Value.ToString + ("" & vbTab + DataGridView1.Rows(i).Cells(2).Value.ToString)))))
                            i = (i + 1)
                        Loop
                        writer.Close()
                    End Using
                    MessageBox.Show("Fichier Sauvegarder", "Sauvegarder!")
                Else : Exit Sub
                End If
            End If
        End Sub

    cordialement,

    zorro591,

    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    • Marqué comme réponse SIMONGEORGES vendredi 22 mai 2015 05:53
    jeudi 21 mai 2015 14:33
  • bonjour

    merci beaucoup cela fonctionne tres bien ,cette  réponse est très utile il me reste un problème à repoudre comment  charger le fichier enregistré dans le datagridview merci encore de l'iade

    bonne journée

    vendredi 22 mai 2015 05:55
  • Bonjour,

    Pour lire ton fichier texte par rapport datagridview ,Voici mon code :

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            Dim open As New OpenFileDialog
            open.Filter = "Fichier Texte|*.txt"
            open.FileName = "DataGridView1"
            open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
            If open.ShowDialog = Windows.Forms.DialogResult.OK Then
                Using reader As New StreamReader(open.FileName)
                    Dim TextLine As String = ""
                    Dim SplitLine() As String
                    Do While reader.Peek <> -1
                        TextLine = reader.ReadLine()
                        SplitLine = Split(TextLine, vbTab)
                        DataGridView1.Rows.Add(SplitLine)
                    Loop
                    reader.Close()
                End Using
                MessageBox.Show("Fichier charger", "Chargement")
            Else : Exit Sub
            End If
        End Sub

    Cordialement,

    zorro591,

    • Marqué comme réponse SIMONGEORGES vendredi 22 mai 2015 21:18
    vendredi 22 mai 2015 13:00
  • bonsoir

    merci beaucoup cela fonctionne très bien bravo pour votre aide

    vendredi 22 mai 2015 21:18
  • slt merci pour votre soutient. mais si on doit modifier un enregistrement comment cela pourrait être fait

    Cardinal dev

    mardi 21 juillet 2015 13:08