Jump to content

Acentos e caracteres especiais


ADNSil
 Share

Recommended Posts

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: ?

"

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 ??

Link to comment
Share on other 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
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.