EXPORTANDO PARA TXT NA MESMA LINHA COM VB 2005
Olá galera do Vbmania, estou com um probleminha que para maioria deve ser facil de resolver
preciso exportar alguns dados do formulário para txt, porem alguns eu preciso que fiquem na mesma linha (exemplo: Nome: fulano | idade: 30 | situação: casado)
abaixo o código da programação feita no vb 2005
Imports System.IO
Imports System.IO.File
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName = [Ô][Ô] Then
Exit Sub
End If
Dim Caminho As String = SaveFileDialog1.FileName
Try
Dim strm As New StreamWriter(Caminho)
Try
strm.WriteLine([Ô]Name:[Ô] & txtnome.Text)
strm.WriteLine([Ô]Endereço:[Ô] & txtendereco.Text)
strm.WriteLine([Ô]Telefone:[Ô] & msktelefone.Text)
strm.WriteLine([Ô]Comentários:[Ô] & txtcomentario.Text)
MessageBox.Show([Ô]Gravado com Sucesso![Ô])
Finally
strm.Close()
End Try
Catch
MessageBox.Show([Ô]Erro ao salvar[Ô], [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
preciso exportar alguns dados do formulário para txt, porem alguns eu preciso que fiquem na mesma linha (exemplo: Nome: fulano | idade: 30 | situação: casado)
abaixo o código da programação feita no vb 2005
Imports System.IO
Imports System.IO.File
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName = [Ô][Ô] Then
Exit Sub
End If
Dim Caminho As String = SaveFileDialog1.FileName
Try
Dim strm As New StreamWriter(Caminho)
Try
strm.WriteLine([Ô]Name:[Ô] & txtnome.Text)
strm.WriteLine([Ô]Endereço:[Ô] & txtendereco.Text)
strm.WriteLine([Ô]Telefone:[Ô] & msktelefone.Text)
strm.WriteLine([Ô]Comentários:[Ô] & txtcomentario.Text)
MessageBox.Show([Ô]Gravado com Sucesso![Ô])
Finally
strm.Close()
End Try
Catch
MessageBox.Show([Ô]Erro ao salvar[Ô], [Ô]Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Tire isso:
E coloque isso:
strm.WriteLine([Ô]Name:[Ô] & txtnome.Text)
strm.WriteLine([Ô]Endereço:[Ô] & txtendereco.Text)
strm.WriteLine([Ô]Telefone:[Ô] & msktelefone.Text)
strm.WriteLine([Ô]Comentários:[Ô] & txtcomentario.Text)
E coloque isso:
strm.WriteLine(string.Format([Ô]Name: {0} | Endereço: {1} | Telefone: {2}[Ô], txtnome.Text, txtendereco.Text, msktelefone.Text))
valeu mesmo KERPLUNK
salvou minha vida
fiz programação em 2002 com VB6, mas pratiquei legal só em 2005 e fiquei muito tempo sem programa e acabei esquecendo tudo, retomei agora e ja tem vb2010, sou novamente iniciante.
salvou minha vida
fiz programação em 2002 com VB6, mas pratiquei legal só em 2005 e fiquei muito tempo sem programa e acabei esquecendo tudo, retomei agora e ja tem vb2010, sou novamente iniciante.
De nada. Por favor, feche o tópico.
Tópico encerrado , respostas não são mais permitidas