importer ce fichier text dans une datagridview

Version imprimable

Bonjour,
Je cherche comment remplir les données d'un mon fichier texte dans une datagridview
a partir de ce code de sauvegarde

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Using Dilaoge As New SaveFileDialog
          Dilaoge.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
          If Dilaoge.ShowDialog() = Windows.Forms.DialogResult.OK Then
              Dim NomFechiers As String = Dilaoge.FileName
              Dim SW As StreamWriter = File.CreateText(NomFechiers)
              Dim total = (From x As DataGridViewRow In DGView.Rows Select CDbl(x.Cells(4).Value)).Sum
              SW.WriteLine("" & DGView.RowCount & "" & Today.ToLongDateString & "" & FormatNumber(total))
              Dim C1, C2, C3, C4 As String
              For i As Integer = 0 To DGView.Rows.Count - 1
                  C2 = (DGView.Rows(i).Cells(2).Value.ToString().PadLeft(5, "0") & "")
                  C3 = (DGView.Rows(i).Cells(3).Value.ToString() & "")
                  C4 = (DGView.Rows(i).Cells(4).Value.ToString() & "")
                  C1 = (DGView.Rows(i).Cells(1).Value.ToString().PadLeft(27))
                  SW.Write(C2 & "" & C3 & "" & GetFormatNumber(C4) & "" & C1)
                  SW.WriteLine("")
              Next
              SW.Close()
              MessageBox.Show("saved")
          End If
      End Using

Bonjour,

Je crois que ce que tu demandes n'est pas possible parce que si je lis bien ton code :
Code:

1 2 3 4 5 C2 = (DGView.Rows(i).Cells(2).Value.ToString().PadLeft(5, "0") & "") C3 = (DGView.Rows(i).Cells(3).Value.ToString() & "") C4 = (DGView.Rows(i).Cells(4).Value.ToString() & "") C1 = (DGView.Rows(i).Cells(1).Value.ToString().PadLeft(27)) SW.Write(C2 & "" & C3 & "" & GetFormatNumber(C4) & "" & C1)
il n'y a aucune séparation entre certaines données (ou s'il y a des espaces, ils peuvent disparaître avec des données plus grandes) : tu complètes tes champs avec des "" (doubles guillemets sans rien entre eux).
Peux-tu envoyer un extrait (ou un screenshot) du fichier ouvert avec Notepad ?

...:)

27/03/2019, 17h53
clementmarcotte

Bonjour,

Si le fichier texte est convenablement délimité, ceci devrait être pas si pire.

Sinon, tu commences par ouvrir ton fichier texte, et tu le délimites (point-virgule, virgule ou tabulation).
28/03/2019, 10h31
ahmedfa71

bonjour
le premier ligne c'est un resumé
C1= nom prenon = 27 positions
C2= N de compte
C3= clé
C4= Net à payer = 13 positions

C2 = (DGView.Rows(i).Cells(2).Value.ToString().PadLeft(5, "0") & "")
C3 = (DGView.Rows(i).Cells(3).Value.ToString() & "")
C4 = (DGView.Rows(i).Cells(4).Value.ToString() & "")
C1 = (DGView.Rows(i).Cells(1).Value.ToString().PadRight(27))
SW.Write(C2 & "" & C3 & "" & GetFormatNumber(C4) & "" & C1)
SW.WriteLine("")

en fichiers texte
124579990000002544433azouz benali
124579= N de compte
99= cle
0000002544433= Net à payer(25444,33) c'esl la finction GetFormatNumber qui suprime la virgule
azouz benali= le nom prenom

et merci bq

Bonjour,

Le code suivant devrait répondre à ta question :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
        Dim FichierEntree As New StreamReader("D:\Tmp\ABED\FichierALire.TXT")
        Dim Uneligne As String
 
        Dim C1 As String
        Dim C2 As String
 
        Dim C3 As String
        Dim C4 As String
 
        Do Until FichierEntree.Peek = -1
            'Utiliser la ligne  
            Uneligne = FichierEntree.ReadLine()
            C2 = Uneligne.Substring(0, 5)
            C3 = Uneligne.Substring(6, 2)
            C4 = Uneligne.Substring(8, 13)
            C1 = Uneligne.Substring(21)
            ' Mettre dans le DataGridView .....
            MessageBox.Show(C2 & " " & C3 & " " & C4 & " " & C1) ' pour test
        Loop

J'ai testé sur un fichier réalisé selon tes indications et dont voici le contenu :

124579990000002544433azouz benali
124012970000001234533Phil Rob
123456780000000987433Azerty Qwarto

Cordialement,

28/03/2019, 15h34
ahmedfa71

merci bq
mais comment réaliser en datagridview
et au même temps je veux que mon code
éviter de lire le premier ligne de mon fichiers texte

Code:

SW.WriteLine("" & DGView.RowCount & "" & Today.ToLongDateString & "" & FormatNumber(total))

Voici le code complété :

La 1ère ligne est lue et rien n'est fait de ses valeurs, normalement inutiles. A toi de compléter s'il y a quelque chose à en faire.

Les colonnes du DGView sont remplies selon les indices que tu as attribués aux Cells dans ton code de départ. S'il il a une correction à faire, il ne peut s'agir que d'une seule unité (1 devient 0, 2 devient 1, ...).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
        Dim FichierEntree As New StreamReader("D:\Tmp\ABED\FichierALire.TXT")
        Dim Uneligne As String
 
        Dim C1 As String
        Dim C2 As String
 
        Dim C3 As String
        Dim C4 As String
        Uneligne = FichierEntree.ReadLine() ' Lecture de la 1ère ligne
        ' Utiliser la 1ère ligne si nécessaire, voir exemples avec C1, C2, C3 et C4 pour savoir comment extraire les données.
 
        'Lecture des autres lignes et remplissage du DGView
 
        Dim IndiceLigneDGV As Integer = 0
 
        Do Until FichierEntree.Peek = -1
            'Utiliser la ligne  
            Uneligne = FichierEntree.ReadLine()
            C2 = Uneligne.Substring(0, 5)
            C3 = Uneligne.Substring(6, 2)
            C4 = Uneligne.Substring(8, 13)
            C1 = Uneligne.Substring(21)
            ' Mettre dans le DataGridView .....
            DGView.Item(1, IndiceLigneDGV).Value = C1
            DGView.Item(2, IndiceLigneDGV).Value = C2
            DGView.Item(3, IndiceLigneDGV).Value = C3
            DGView.Item(4, IndiceLigneDGV).Value = C4
            IndiceLigneDGV += 1
        Loop
 
        FichierEntree.Close()

Bon travail,

31/03/2019, 10h34
ahmedfa71

merci beaucoup
comment en peu utiliser
PadRight
PadLeft
dans ce code
31/03/2019, 12h49
Phil Rob

1 pièce(s) jointe(s)

Bonjour,

Tu utilisais déjà PadLeft dans ton code de sauvegarde : C2 = (DGView.Rows(i).Cells(2).Value.ToString().PadLeft(5, "0") & "").
Cela ne devrait donc pas te poser de problème.

Bien sûr les caractères ajoutés avec PadLeft et PadRight lors de la sauvegarde doivent être enlevés lors de la lecture des enregistrements. Pour cela, il faut utiliser les méthodes Trim, TrimStart et TrimEnd avec les paramètres adéquats. La méthode SubString peut aussi aider.

Je joins le fichier Pièce jointe 462699. C'est un extrait de leçon qui traite de ces méthodes.

Bon travail,
01/04/2019, 12h51
ahmedfa71

Phil rob merci pour ton aide
ca marche
merci infiniment
03/04/2019, 12h31
ahmedfa71

bonjour,
comment formater a nouveau ce montant dans mon datagridview
0000002544433 qu'il devienne (25444,33) DGView.Item(4, IndiceLigneDGV).Value = C4.
j'ai essayé de code mais ça n'a pas marché DGView.Columns.Item(4).DefaultCellStyle.Format = "n2"
03/04/2019, 13h37
Phil Rob

Bonjour,

La formule suivante devrait convenir :
C4 = (CType(Uneligne.Substring(8, 13), Integer) / 100).ToString .

Bon après-midi,
03/04/2019, 16h40
ahmedfa71

merci beaucoup
ca marche très bien
merci infiniment

Bonjour,
je ne sais pas si ça intéresse mais bon!

Code:

1
2
3
124579990000002544433azouz benali
124012970000001234533Phil Rob
123456780000000987433Azerty Qwarto

Code:

1
2
3
4
5
6
[testTXT.txt]
Format = FixedLength
Col1=A Text  Width 6  
Col2=B Text Width 2 
Col3=C Double Width 13 
Col4=D Text  Width 12

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports ADODB
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim MyRs As New ADODB.Recordset()
        Dim MyCn As New ADODB.Connection()
        MyCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyRep\MyTxt;Extended Properties=""text;HDR=No;FMT=Delimited"";"
        MyCn.Open()
        MyRs.Open("select A,B,C/100 as C,D from [testTXT#txt]", MyCn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        Dim dt As New DataTable
        Dim myDA As OleDbDataAdapter = New OleDbDataAdapter()
        Dim myDS As DataSet = New DataSet()
        myDA.Fill(myDS, MyRs, "MyTable")
        DataGridView1.DataSource = myDS.Tables(0)
        MyRs = Nothing
        MyCn.Close()
        MyCn = Nothing
    End Sub
End Class

04/04/2019, 16h01
Phil Rob

Ok dysorthographie, c'est beau !
Je ne plaisante pas ... je trouves ta solution un peu lourde pour lire un simple fichier ligne par ligne ...
Cdt,
04/04/2019, 16h20
Invité

c'était juste un exercice de style, j'ai attendu que le poste soit résolut avant de poster.

en fait je considère le fichier comme la table d'une base de donnée et je traite la totalité du fichier par une seule requête SQL!