Discussion :

[guil182]

Bonjour,
J'essaye d'importer un .csv dans un dataset et de l'afficher dans un datagridview
Voici le code d'import :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Function GetCsvData(ByVal strFolderPath As String, ByVal strFileName As String) As DataTable
 
        Dim strConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFolderPath & ";Extended Properties=""text;HDR=YES;"""
 
        Dim conn As New OleDbConnection(strConnString)
 
        Try
            conn.Open()
            Dim cmd As New OleDbCommand("SELECT * FROM [" & strFileName & "]", conn)
            Dim da As New OleDbDataAdapter()
 
            da.SelectCommand = cmd
 
            da.Fill(ds)
            da.Dispose()
 
            Return ds.Tables(0)
        Catch
            Return Nothing
        Finally
            conn.Close()
        End Try
 
    End Function

ça marche.....sauf sur cette ligne :

;;ERMITAGE DU PIC SAINT LOUP "TOUR DE PIERRES";2009;Bouteille;COTEAUX DU LANGUEDOC - PIC ST LOUP;Languedoc-Roussillon;Rouge;0,75;12;Vin;19,60;1;0;7,53;9,00;47;47;1;;;;;;0;0;;0; ; ; ; ; ; ;21966

l'import ne marche avec les " de "TOUR DE PIERRES" même en délimitant le fichier avec point virgule dans schema.ini !!

Comment résoudre ce problème ?

Merci d'avance

Guillaume

[chrismonoye]

Bonsoir,
le guillemet, dans un fichier CSV est un délimiteur de champs (facultatif).
Quand il le rencontre il considère la chaine terminée, il poursuit mais ne trouve pas le séparateur de champs, le point-virgule et c'est le ...
Alors il faut les doubler.
Ex. : ERMITAGE DU PIC SAINT LOUP ""TOUR DE PIERRES""
Une bonne pratique est d'utiliser les délimiteurs de champs, ainsi si la chaine contient des ; il n'y aura pas de problème.
Ex. : "ERMITAGE DU PIC SAINT LOUP ""TOUR DE PIERRES""; un bon vin"

[guil182]

Bonsoir,
Merci pour ta réponse. Je me heurte à une autre problématique.
Mon fichier initial semble être codé en ansi (notepad) donc voici ce que je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim contenufichier As String = System.IO.File.ReadAllText(ExeDirectory + "\" + System.IO.Path.GetFileName(TextBox1.Text))
        System.IO.File.WriteAllText(ExeDirectory + "\" + System.IO.Path.GetFileName(TextBox1.Text), contenufichier.Replace("""", """"""), System.Text.Encoding.Default)

Le problème est que cela marche mais mes é sans remplacés par des ? et le fichier de sortie semble être en ansi aussi

Merci encore

[guil182]

j'ai trouvé, si cela peut aider quelqu'un ... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim contenufichier As String = System.IO.File.ReadAllText(ExeDirectory + "\" + System.IO.Path.GetFileName(TextBox1.Text), System.Text.Encoding.GetEncoding("ISO-8859-1"))
        System.IO.File.WriteAllText(ExeDirectory + "\" + System.IO.Path.GetFileName(TextBox1.Text), contenufichier.Replace("""", """"""), System.Text.Encoding.GetEncoding("ISO-8859-1"))