Problème lecture fichier csv sous windows XP

Version imprimable

Bonjour à tous,

j'ai un problème sur lequel je me casse les dents depuis plusieurs jours. Je dois créer un programme qui lit un fichier csv et affiche les résultats dans un datagridview.
Le problème est mes lignes de codes sont fonctionnelles lorsque je teste le programme sous windows 7 et 8 mais le programme doit fonctionner sur des PC sous XP......et ça pas moyen de changer.
Sous windows 8, lorsque je lance mon programme, les données s'affichent bien dans le datagridview par colonne (77 au total) et avec le nombre de ligne correct, mais sous windows XP ça n'apparait que sur une seule colonne.

Pouvez-vous m'aider svp ? Je programme en vb.net.

Merci d'avance pour votre aide

Voici les lignes de codes:
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 32 33 34 35 36 37 38 39 40 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dt As DataTable '*** Read CSV to DataTable ***' dt = CsvCreateDataTable("F:\", "ExportAnomalies2300.csv") ' verif(dt) DataGridView2.DataSource = dt '*** Insert to Database ***' ' InsertToDatabase(dt) End Sub '*** Convert CSV to DataTable ***' Function CsvCreateDataTable(ByVal strPath, ByVal strFilesName) As DataTable Dim objConn As New OleDbConnection Dim dtAdapter As OleDbDataAdapter Dim dt As New DataTable Dim strConnString As String strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\;Extended Properties='TEXT;HDR=Yes;FMT=Delimited;Format=Delimited(,)'" objConn = New OleDbConnection(strConnString) objConn.Open() Dim strSQL As String strSQL = "SELECT * FROM " & strFilesName dtAdapter = New OleDbDataAdapter(strSql, objConn) dtAdapter.Fill(dt) dtAdapter = Nothing objConn.Close() objConn = Nothing Return dt '*** Return DataTable ***' End Function
Pour info, je charge le fichier dans un datagridview filtré car le traitement est beaucoup plus rapide que d'attendre le chargement dans une base access (le fichier csv comporte 80000 lignes environs ).

J'ai sinon crée un prog pour lancer directement l'import du fichier csv dans access, ce qui est très rapide mais ça implique que chaque poste qui utilise le programme est access installé et ce n'est pas possible.

Salut

pour ma part j'utilise cette façon pour lire un fichier csv
et c'est très rapide

Code:

1
2
3
4
5
6
Dim Chemin As String = My.Settings.MonPath & "\" & M & "\" & symbtmp & "\Fichier\" & RapTyp & Prd & ".csv"
                            Dim StrRap() As String = File.ReadAllLines(Chemin)
For y As Integer = 0 To StrRap.Count - 1
Dim StrDat() As String = StrRap(y).Split(","c) 'pour séparer les colonnes de chaque ligne
....code pour ajouter au datatable ....
Next

03/04/2014, 21h07
jbdj1241

Merci pour ton code, mais je n'arrive pas à mettre ces valeurs au datatable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
'Sous Public Class 
Dim DtMoy As DataTable
'Dans le FormLoad tu ajoute
DtSetUp
 
 
Sub DTSetUp()
        DtMoy = Nothing
        DtMoy = New DataTable
        DtMoy.Columns.Add("DateMoy", GetType(Date))
        DtMoy.Columns.Add("Moy50", GetType(Double))
        DtMoy.Columns.Add("Moy200", GetType(Double))
End Sub
 
'Dans ton Bouton_Click
Dim Chemin As String = My.Settings.MonPath & "\" & M & "\" & symbtmp & "\Fichier\" & RapTyp & Prd & ".csv"
                            Dim StrRap() As String = File.ReadAllLines(Chemin)
For y As Integer = 0 To StrRap.Count - 1
Dim StrDat() As String = StrRap(y).Split(","c) 'pour séparer les colonnes de chaque ligne
....code pour ajouter au datatable ....
DtMoy.rows.add(Cdate(strDat(0)),Cdbl(strDat(1)),Cdbl(strDat(2)))
Next

ça doit ressembler à ça

Ce code permet de construire une DataTable en interprétant la première ligne (nom des colonnes) du csv:

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
using Microsoft.VisualBasic.FileIO; 
string csv_file_path=@"C:\MyData\test.csv";
DataTable csvData = GetDataTabletFromCSVFile(csv_file_path);
         
        private static DataTable GetDataTabletFromCSVFile(string csv_file_path)
        {
            DataTable csvData = new DataTable();
            using(TextFieldParser csvReader = new TextFieldParser(csv_file_path))
            {
                    csvReader.SetDelimiters(new string[] { "," });
                    csvReader.HasFieldsEnclosedInQuotes = true;
                    string[] colFields = csvReader.ReadFields();
                    foreach (string column in colFields)
                    {
                        DataColumn datecolumn = new DataColumn(column);
                        datecolumn.AllowDBNull = true;
                        csvData.Columns.Add(datecolumn);
                    }
                    while (!csvReader.EndOfData)
                    {
                        string[] fieldData = csvReader.ReadFields();
                        //Making empty value as null
                        for (int i = 0; i < fieldData.Length; i++) if(fieldData[i] == "") fieldData[i] = null;
                        csvData.Rows.Add(fieldData);
                    }
            }
            return csvData;
        }

04/04/2014, 12h03
jbdj1241

Merci beaucoup à vous.
j'ai réussi à obtenir des données de mon fichier csv dans mon datagrid.
Toutefois, je n'obtiens pas le même résultat que sur mes lignes de codes fonctionnant sous 7 ou 8. (Précision que j'ai oublié de dire, le sépateur de mon csv est bien "," mais j'ai aussi des "" dans le fichiers)

Sous mon code d'origine, le nombre de colonne est respecté, pour toute la lecture du fichier. Avec ces lignes de codes, comme la lecture se fait ligne par ligne, je me suis retrouvé avec des erreurs hors de plage d'index. (Les données de mon csv ne tiennent pas forcément sur une ligne)

J'ai du retravailler le code en ne prenant en compte que certaines lignes

Je ne sais pas si j'ai été très clair dans mon explication.

salut

ok j'ai eu ce problème la l'an dernier et avant de séparer ma ligne par le split(","), je passe ma ligne dans un regex qui retire les virgules dans un phrase. Car dans mon car le séparateur divisait des nombres.

Code:

1
2
3
4
5
6
7
8
9
10
11
For y As Integer = 0 To StrRap.Count - 1
                                    Dim Rg As New Regex("[a-zA-Z]\,\s")
                                    Dim mac As MatchCollection = Rg.Matches(StrRap(y))
                                    For Each mch As Match In mac
                                        'Console.WriteLine(mch.Value & " en position " & mch.Index)
                                        'Console.WriteLine(StrTmp.Chars(mch.Index + 1))
                                        StrRap(y) = StrRap(y).Remove(mch.Index + 1, 1)
                                    Next
                                    Rg = Nothing
                                    mac = Nothing
                                Next

08/04/2014, 14h45
jbdj1241

Merci pour ces lignes.
Le regex me crée une panne lors de la lecture du fichier.
Du coup j'ai adapté mon code pour prendre en compte la structure de mon fichier source et l'adapter correctement à mon datagridview.
Je vais mettre ce sujet en résolu même si je ne sais pas pourquoi j'ai cette différence entre windows 8 et windows XP.

Merci pour votre aide