Jump to content
Tatia

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

Recommended Posts

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 by Tatia

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

Utilizas um

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

Edited by Andrepereira9

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

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

Share this post


Link to post
Share on other 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.

Edited by Tatia

Share this post


Link to post
Share on other sites
nelsonr

Podes usar algo assim:

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

  • Vote 1

Share this post


Link to post
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

×
×
  • 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.