Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Tatia

[Resolvido] - Guardar dados dos textbox em um TXT.

Mensagens Recomendadas

Tatia

Boas amigos mais uma vez venho procurar a vossa ajuda...

Criei um projecto com 2 botões e umas 7 textbox.

1º Botão para abrir arquivos .ini

7 Textbox que apresenta os dados desse arquivo .ini

2º Botão e para salvar os dados apresentados nas textbox em um arquivo de texto.

Ate aqui esta tudo bem, o problema e que eu quero salvar mais dados nesse mesmo arquivo de texto sem perder os anteriores dados que la foram guardados, sabem como poderei eu fazer isso?

Código que tenho actualmente a salvar dados das textbox em arquivo de texto:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 ' Instanciamos e configuramos um objeto SaveFileDialog.
 Dim sd As New SaveFileDialog()
 sd.Filter = "Arquivos texto (*.txt)|*.txt"
 sd.FilterIndex = 0
 ' Abrimos o SaveFileDialog e verificamos se o usuário
 ' selecionou um arquivo.
 If sd.ShowDialog() = Windows.Forms.DialogResult.OK Then
	 Dim b As New StringBuilder()
	 b.Append(TextBox2.Text & vbNewLine)
	 b.Append(TextBox3.Text & vbNewLine)
	 b.Append(TextBox4.Text & vbNewLine)
	 b.Append(TextBox8.Text & vbNewLine)
	 b.Append(TextBox5.Text & vbNewLine)
	 b.Append(TextBox6.Text & vbNewLine)
	 b.Append(TextBox7.Text & vbNewLine)
	 IO.File.WriteAllText(sd.FileName, b.ToString())
 End If
End Sub

Editado por Tatia

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Andrepereira9

Boas

Utilizas um

IO.File.AppendAllText(sd.FileName, b.ToString())

Editado por Andrepereira9

A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Tatia

Boas

Utilizas um

IO.File.AppendAllText(sd.FileName, b.ToString())

Certo deu perfeitamente... ;)

Agora verifiquei que os valores estão a ser guardados assim:

Exemplo valores das textbox2 = 12345:

Ele ao salvar em txt fica assim: 12345

Como posso eu adicionar uma tag para cada textbox?

para que ele ao salvar o txt fique algo assim:

Nome: 12345

b.Append(TextBox2.Text & vbNewLine)

Edite:

Resolvido coloquei assim e funcionou. :)

b.Append(Label2.Text & TextBox2.Text & vbNewLine)

Podem dar este tópico como resolvido, mais uma vez obrigado a todos.

Editado por Tatia

Partilhar esta mensagem


Ligação 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

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.