Visual Basic.NET - Problema con generación de archivo csv

   
Vista:

Problema con generación de archivo csv

Publicado por Guillem Moll guimoal@gmail.com (2 intervenciones) el 21/01/2013 23:51:18
Estoy en la misma que el compañero.Al abrir el fichero desde un diseñador de informes, me aparece el primer campo un caracter invisible y no se como codificar para que no me salga el dichoso "  " cuando abro el archivo cvs generado por este procedimiento:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub ExporCSV(ByVal dt As DataTable, ByVal Ruta As String)
        Dim str As New StringBuilder
        Dim SepColumnas, SepValores As String
        SepColumnas = vbTab
        SepValores = ","
 
        For Each col As DataColumn In dt.Columns
            str.Append(col.ToString & SepColumnas)
        Next
        str.Replace(SepColumnas, vbNewLine, str.Length - 1, 1)
        For Each dr As DataRow In dt.Rows
            For Each field As Object In dr.ItemArray
                str.Append(field.ToString & SepValores)
            Next
            str.Replace(SepValores, vbNewLine, str.Length - 1, 1)
        Next
        Try
            My.Computer.FileSystem.WriteAllText(Ruta, str.ToString, False)
        Catch ex As Exception
            MessageBox.Show("Write Error")
        End Try
    End Sub


Esto crea un archivo csv en la ruta especificada desde un datatable, pero no se como especificarle la codificación UTF adecuada.
Alguien puede arrojar luz sobre este tema?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder