none
Encoding - Acentuação RRS feed

  • Pergunta

  • 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

    domingo, 1 de março de 2015 14:32

Respostas

  • 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

    domingo, 1 de março de 2015 14:42
  • 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.

    • Marcado como Resposta Malliotti terça-feira, 10 de março de 2015 15:00
    terça-feira, 3 de março de 2015 13:48
    Moderador

Todas as Respostas

  • 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

    domingo, 1 de março de 2015 14:42
  • 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.

    • Marcado como Resposta Malliotti terça-feira, 10 de março de 2015 15:00
    terça-feira, 3 de março de 2015 13:48
    Moderador