Problema con generación de archivo csv
Publicado por Guillem Moll (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:
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?
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 = vbTabSepValores = ","
For Each col As DataColumn In dt.Columnsstr.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.ItemArraystr.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
0