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

_viri_TT_

[Ajuda] Open File for Output

5 mensagens neste tópico

Boas,

Mais uma vez mais um problema :)

Ultimamente têm-me andado a perseguir...

Eu estou a usar este código para adicionar dados a um ficheiro .txt:

Ficheiro = App.Path & "\Log\File.txt"

Open Ficheiro For Output As #1
Print #1, erro.text
Print #1, "#### Erro - " & Date & " " & Time
Close #1

O meu problema reside em quando este código é executado segunda vez, como adicionar à txt em vez de substituir todo o conteúdo?

Se alguém souber agradecia imenso que me explicasse.

Cumps,

_viri_TT_

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Resolvido.

Faço input do .txt para uma variável string, e quando abro para fazer output para o ficheiro colo primeiro o conteudo da string :)

Simples.

Cuprimentos,

_viri_TT_

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Open Statement

Tratar IO em visual basic é iniciado através do Open.

A sintaxe para o Open é como explicado a seguir:

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

Parece complicado, mas na realidade é bastante simples

Se queremos LER dados de um ficheiro, bastava abrir da seguinte maneira:

Open "c:\OmeuSuperFicheiro.txt" For Input As #1

Se por outro lado pretendemos ESCREVER, então:

Open "c:\OmeuSuperFicheiro.txt" For Output As #1

Existem 3 outras maneiras de abrir ficheiros:

Open "c:\OmeuSuperFicheiro.txt" For Append As #1
Open "c:\OmeuSuperFicheiro.txt" For Binary As #1
Open "c:\OmeuSuperFicheiro.txt" For Random As #1

Se não especificas o modo em como o VB6 deve tratar o ficheiro, Visual Basic assume o modo  Random.

Isto tudo para responder à tua questão:  ;)

Ficheiro = App.Path & "\Log\File.txt"

Open Ficheiro For Append As #1
Print #1, erro.text
Print #1, "#### Erro - " & Date & " " & Time
Close #1

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Muito obrigado.

Quando explicado da maneira certa é melhor que uma tarde inteira a fazer experiências com ele ;)

Obrigado, Cumprimentos,

_viri_TT_

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