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

[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

Edited August 12, 2013 at 08:00 AM by Tatia

[Andrepereira9]

Boas

Utilizas um

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

Edited August 11, 2013 at 06:12 PM by Andrepereira9

[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.

Edited August 11, 2013 at 07:20 PM by Tatia

[nelsonr]

Podes usar algo assim:

b.AppendFormat("Nome: {0}{1}",TextBox2.Text, vbNewLine)