CRIAR TXT
Preciso criar um arquivo txt
Esse arquivo será gerado de um textbox multline
Não é grande, terá no máximo 10 linhas
Tenho essa rotina que peguei um pouco do macoratti e um pouco aqui do vbmania
Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
Dim salvarComo As SaveFileDialog = New SaveFileDialog()
Dim caminho As DialogResult
Dim fluxoTexto As IO.StreamWriter
Dim Arquivo As String
salvarComo.CheckFileExists = False
salvarComo.Title = [Ô]Arquivos Textos |*.txt |[Ô]
caminho = salvarComo.ShowDialog
Arquivo = salvarComo.FileName
If Arquivo = Nothing Then
MessageBox.Show([Ô]Arquivo Invalido[Ô], [Ô]Salvar Como[Ô], MessageBoxButtons.OK)
Else
fluxoTexto = New IO.StreamWriter(Arquivo)
fluxoTexto.Write(txtLinhas.Text)
fluxoTexto.Close()
End If
End Sub
O problema dessa rotina é que gera um arquivo binário
Quando vou abrir esse arquivo ele pede para indicar um programa
Indico o bloco de notas e abre perfeitamente
Resumindo (Preciso gerar esse arquivo automaticamente como txt)
Desde já obrigado a todos
Esse arquivo será gerado de um textbox multline
Não é grande, terá no máximo 10 linhas
Tenho essa rotina que peguei um pouco do macoratti e um pouco aqui do vbmania
Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
Dim salvarComo As SaveFileDialog = New SaveFileDialog()
Dim caminho As DialogResult
Dim fluxoTexto As IO.StreamWriter
Dim Arquivo As String
salvarComo.CheckFileExists = False
salvarComo.Title = [Ô]Arquivos Textos |*.txt |[Ô]
caminho = salvarComo.ShowDialog
Arquivo = salvarComo.FileName
If Arquivo = Nothing Then
MessageBox.Show([Ô]Arquivo Invalido[Ô], [Ô]Salvar Como[Ô], MessageBoxButtons.OK)
Else
fluxoTexto = New IO.StreamWriter(Arquivo)
fluxoTexto.Write(txtLinhas.Text)
fluxoTexto.Close()
End If
End Sub
O problema dessa rotina é que gera um arquivo binário
Quando vou abrir esse arquivo ele pede para indicar um programa
Indico o bloco de notas e abre perfeitamente
Resumindo (Preciso gerar esse arquivo automaticamente como txt)
Desde já obrigado a todos
ANTES DO PUBLIC CLASS FORM
Digite
Import System.IO
Dim Texto As String = [Ô][Ô]
Dim Arquivo As New StreamWriter(My.Computer.FileSystem.SpecialDirectories.MyDocuments & [Ô]\arquivo.txt[Ô])
For Each Linha In [Ô]Seu Codigo[Ô] <- Aqui Pode ser Tipo TextBox1.Lines
Arquivo.WriteLine(Linha)
Next
Arquivo.Close()
Ve se resouve
Digite
Import System.IO
Dim Texto As String = [Ô][Ô]
Dim Arquivo As New StreamWriter(My.Computer.FileSystem.SpecialDirectories.MyDocuments & [Ô]\arquivo.txt[Ô])
For Each Linha In [Ô]Seu Codigo[Ô] <- Aqui Pode ser Tipo TextBox1.Lines
Arquivo.WriteLine(Linha)
Next
Arquivo.Close()
Ve se resouve
adiciona isso
salvarComo.Filter= [Ô]Arquivos Textos |*.txt[Ô]
embaixo do: salvarComo.Title = [Ô]Arquivos Textos |*.txt |[Ô]
salvarComo.Filter= [Ô]Arquivos Textos |*.txt[Ô]
embaixo do: salvarComo.Title = [Ô]Arquivos Textos |*.txt |[Ô]
Muito obrigado aos dois
Funcionou blz
Funcionou blz
Tópico encerrado , respostas não são mais permitidas