dotNETportal.cz

Zdravím, prosím (opět) o radu:) Pomocí kódu níže načítám do dataTable CSV soubor. Vše se načte OK až na české znaky. Přitom když soubor otevřu ručně například v excelu, české znaky jsou zobrazeny korektně. Četl jsem zde i diskuzi kde zazněla rada otevřít soubor a uložit s jiným kódováním. To ale bohužel není v mém případě možné. Jde tedy něják načíst data aby se české znaky zobrazili korektně?

Nyní data načítám takto:

    Sub loadCSV(ByVal CSVFile As String)
        Dim dtCSV As DataTable = New DataTable 'vytvořím novou dataTable

        dtCSV.Columns.Add()


        Dim stream As IO.Stream = IO.File.OpenRead(CSVFile)
        Dim soubor As IO.StreamReader = New IO.StreamReader(CSVFile, System.Text.Encoding.UTF8, False)




        While Not soubor.EndOfStream
            Dim text As String = soubor.ReadLine()
            dtCSV.Rows.Add()
            dtCSV.Rows(dtCSV.Rows.Count - 1).Item(0) = text
        End While

        soubor.Close() 'zavřu soubor


        frmOnImport.DataGridView1.DataSource = dtCSV 'zobrazím výsledek
    End Sub

Pro načtení CSV souboru použijte OLE DB/ODBC poskytovatele pro textové soubory. Jednak to bude daleko výkonější a hodí se to už jen tím, že pro uchování dat používáte databázové struktury. To kódování by se tím mělo vyřešit automaticky.

To jsem právě zkoušel, jenže u oledDB mi to házi chybu: Nelze najít instalovatelnou metodu ISAM

a u ODBC pro změnu Obecná chyba Nelze otevřít klíč registru

O té chybě u oleDB jsem něco našel na stránkách Microsoftu, řešení ale vyžaduje zásah do registru což není u mě přípustné.

Pro ukázku přikládám kód, kterým se pokouším načíst data přes ODBC:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.OpenFileDialog1.ShowDialog()
        Dim path As String = Me.OpenFileDialog1.FileName


        Dim dtCSV As DataTable = New DataTable
        Dim dbAdapter As Odbc.OdbcDataAdapter = New Odbc.OdbcDataAdapter
        Dim dotaz As Odbc.OdbcCommand = New Odbc.OdbcCommand

        Dim spojeni As Odbc.OdbcConnection = New Odbc.OdbcConnection("Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & path & ";Extensions=asc,csv,tab,txt;")


        With dotaz
            .Connection = spojeni
            .CommandType = CommandType.Text
            .CommandText = "SELECT * FROM " & Me.OpenFileDialog1.SafeFileName
        End With


        dbAdapter.SelectCommand = dotaz
        dbAdapter.Fill(dtCSV)

        Me.DataGridView1.DataSource = dtCSV


    End Sub

Jestli se data čtou v Excelu normálně, pak nemají kódování UTF8

Změňte UTF8 na Default

Dim soubor As IO.StreamReader = New IO.StreamReader(CSVFile, System.Text.Encoding.Default, False)