COMO GRAVAR EM TXT SEM APAGAR O QUE SE ENCONTRA

 Tópico anterior Próximo tópico Novo tópico

COMO GRAVAR EM TXT SEM APAGAR O QUE SE ENCONTRA

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#428438 - 03/09/2013 11:58:35

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Última edição em 03/09/2013 11:59:34 por PROGRAMADORVB6

 Anexos estao visíveis somente para usuários registrados

Olá galera, boa tarde.
Estou a tentar gravar em um ficheiro txt informação encriptada, e até consigo gravar em uma primeira vez, mas quando limpo o campo e volto a gravar os dados fico com o campo limpo , ou seja ele não grava na segunda linha do txt

Aqui fica a função para gravação e o programa.

  '========= Gravar Escrita =========
    ''' <summary>
    ''' Grava um registo em um arquivo de texto.
    ''' </summary>

  
    Public Sub Gravar_Escrita_Controle(ByRef MSG_Status As Control, ByRef Nome_Ficheiro As String)

        Dim Local_Gravacao As IO.StreamWriter
        If ExisteFicheiro(GetAppPath() & Nome_Ficheiro.ToString) = True Then

            Try
                Local_Gravacao = New IO.StreamWriter(GetAppPath() & Nome_Ficheiro.ToString, True)
                For Each sLine As String In Form1.TextBox1.Lines
                    Local_Gravacao.WriteLine(sLine)
                Next
                Local_Gravacao.Close()
                Local_Gravacao.Dispose()
                MSG_Status.Text = "Status : Dados gravados com sucesso."
            Catch ex As Exception
                MSG_Status.Text = "Status : Erro ao gravar o arquivo."
            Finally

            End Try

        End If

    End Sub  


______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.


Resposta escolhida #428481 - 04/09/2013 13:42:12

PEGUDO
RIO DE JANEIRO
Cadast. em:Março/2009


 Anexos estao visíveis somente para usuários registrados

Cara,
Consegui resolver aqui. Mudei um pouco seu código, mas acho que é o que você precisa.
Vamos aos termos:
1. Percebi que se você abrisse o programa, criasse o log, fechasse o programa, abrisse o programa de novo e escrevesse outro log no mesmo arquivo, o programa gerava erro acusando cadeia de caracteres inválidos. Por isso, neste exemplo, o programa verifica se existe o arquivo; se existir, joga todo o conteúdo para um RichTextBox que fica invisível. Assim o programa irá criar o log de uma vez só e poderá ser aberto e fechado quantas vezes forem necessárias sem gerar o erro.

2. Vi algumas redundâncias também ao verificar se o arquivo já existia. Ao Gravar o arquivo, não era necessário ver novamente se o arquivo existia, pois o programa já fazia isto ao clicar o botão.

3. Como agora o programa grava o arquivo todo, não há necessidade de anexar o novo texto, basta criar um log novo com o texto antigo e o recente.

espero que ajude.

"Às vezes, para poder andar pra frente, o homem deve deixar tudo para trás"

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PROGRAMADORVB6 em 05/09/2013 18:47:20