• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ADNSil

Acentos e caracteres especiais

8 mensagens neste tópico

Boas

preciso de uma ajudinha... em relação aos acentos numa leitura de ficheiro .txt para uma textbox... :wallbash:

então é o seguinte:

retiro um email do outlook para uma RichTextBox.Text e aparece assim:

"

testa la essa tua coisa

  _____ 

Conheça já o Windows Live Spaces, o site de relacionamentos do Messenger! HYPERLINK "h**p://www.amigosdomessenger.com.br"Crie já o seu!

"

guardo no ficheiro .txt e fica exactamente =.

mas quando vou ler do ficheiro .txt para a RichTextBox.Text aparece-me desta forma: :rant_01:

"

testa la essa tua coisa

  _____ Â

Conheça já o Windows Live Spaces, o site de relacionamentos do Messenger! HYPERLINK "h**p://www.amigosdomessenger.com.br"Crie já o seu!

"

que posso eu fazer ??

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Como estas a ler o ficheiro? quando les tens de alterar o encoding :thumbsup:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

este é o código que estou a usar.

da-me mais algumas dicas desse tal encoding se for relacionado com o código que te mostrei.

se não agradecia uma solução  :)

Dim vPass As Boolean = False
            Dim vMnumero As String = "->" & ListBox_de.SelectedIndex + 1 & "<-"
            Dim vLerDados As Integer = 0
            'variaveis para receber o valor dos emails
            Dim vCorpo As String = ""
            'Cria um array, colocando o conteúdo de cada linha em indexs diferentes
            Dim Linha() As String = Strings.Split(My.Computer.FileSystem.ReadAllText(vFdir, System.Text.Encoding.Default), ControlChars.CrLf)

For i As Integer = 0 To Linha.Length - 1
                'Se não estiver vazia...
                If Linha(i) <> "" Then
                    If (vMnumero = Linha(i)) Then
                        vPass = True
                    End If
                    If vPass = True Then
                        'Lê o Conteúdo, controla e  grava na variavel
                        If (vLerDados = 1) And Not (Linha(i) = "Corpo fim") Then
                            vCorpo = vCorpo & Linha(i) & vbCrLf
                        End If

                        If (vLerDados = 2) Then
                            'Escreve o texto nos campos .text
                            CorpoRichTextBox.Text = vCorpo
                            Exit For
                            'Verifica o conteúdo
                        End If
                        If (Linha(i) = "Corpo inicio") Then
                            vLerDados = 1
                        ElseIf (Linha(i) = "Corpo fim") Then
                            vLerDados = 2
                        End If
                    End If
                End If
            Next

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ooo, não sei como usar isso, podes me explicar sff e dar um exemplo...

nem sei se tenho de usar o UTF8Encoding para ler e escrever ou só para ler ou só escrever lolol

vou investigar, se poderes ajudar agradeço. :)

enquanto isso vou ver se encontro alguma coisa também :hmm:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

My.Computer.FileSystem.ReadAllText("C:teste.txt", System.Text.Encoding.UTF8)

Grava tambem em UTF8 e melhor :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

My.Computer.FileSystem.ReadAllText("C:teste.txt", System.Text.Encoding.UTF8)

Grava tambem em UTF8 e melhor :)

@ADNSil,

Tenho tido melhores resultados utilizando o encoding default. É uma questão de experimentares e veres os resultados.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora