Encoding - Acentuação

Question

Amigos,

Abaixo segue o código do botão exportar.

O problema é que ao gerar o arquivo, onde existe acentuação, está sendo substituído por caracteres estranho. Alguém sabe como devo corrigir ?

    Private Sub btnExportar_Click(sender As Object, e As EventArgs) Handles btnExportar.Click
        Dim numCols As Integer = dgvDados.ColumnCount
        Dim numRows As Integer = dgvDados.RowCount - 1
        Dim strDestinationFile As String = "c:\\C0006226067P" & DateTime.Now.ToString("yyyyMMdd") & ".csv"
        Dim tw As TextWriter = New StreamWriter(strDestinationFile, True, Encoding.GetEncoding("Windows-1252"))

        'Escrever o cabeçalho
        'For count As Integer = 0 To numCols - 1
        'tw.Write(dgvDados.Columns(count).HeaderText)
        'If (count <> numCols - 1) Then
        'tw.Write(",")
        'End If
        'Next
        'tw.WriteLine()
        For count As Integer = 0 To numRows - 1
            For count2 As Integer = 0 To numCols - 1
                tw.Write(dgvDados.Rows(count).Cells(count2).Value)
                If (count2 <> numCols) Then
                    tw.Write(",")
                End If
            Next
            tw.WriteLine()
        Next
        tw.Close()
        'MsgBox("Arquivo Exportado com Sucesso!")
        If (MsgBox("Geração do arquivo concluida com sucesso. Deseja exibir o arquivo gerado ? ", MsgBoxStyle.YesNo) = DialogResult.Yes) Then
            System.Diagnostics.Process.Start(strDestinationFile)
        End If
    End Sub

---

Abraços, Julio Malliotti

Answer 1

Pessoal,

não precisa mais... Descobri que o meu erro esta na leitura do arquivo TXT.

Antes:

Using leitor As New TextFieldParser(txtArquivo.Text)

Depois:

Using leitor As New TextFieldParser(txtArquivo.Text, Encoding.GetEncoding(1252))

Obrigado igual.

---

Abraços, Julio Malliotti

Answer 2

Bom dia Julio,

Que bom que conseguiu solucionar o seu problema. Obrigado pelo retorno com a solução, com certeza será útil para alguém que passe pela mesma situação. Qualquer nova dúvida, estamos a disposição.

Obrigado,

Abraço!

---

Eduardo Romero

Esse conteudo e fornecido sem garantias de qualquer tipo, seja expressa ou implicita.

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais facil para os outros visitantes encontrarem a resolucao mais tarde.