TRANSICAO DE DADOS EM ARQUIVOS .TXT

RAS85 10/09/2013 12:10:48
#428642

Prezados, bom dia!

Estou tentando fazer um programa que faça transição de dados em arquivos [Ô].txt[Ô]. Já vi bastante coisa sobre isso na internet, mas nenhuma que faça transição entre [Ô]forms[Ô].

Bom, o programa realiza alguns cálculos e retorna no final um relatório. Para controlar os dados, a ideia é que o usuário crie uma pasta no [Ô]C:[Ô] e dentro desta pasta, um arquivo em [ô][ô].txt[Ô] apenas para o controle do número dos arquivos gerados. Cada arquivo desse deverá conter os dados gerados pelo programa, que serão exportados para o mesmo a partir de um valor obtido em um [Ô]textbox[Ô] (até aqui tudo bem).

Cada [Ô]form[Ô] do programa gera alguns dados os quais tem que ser salvos dentro do último arquivo [Ô].txt[Ô] criado pelo próprio programa (essa é minha dificuldade).

Em anexo, estão as imagens do programa. Nele, estão presentes 3 forms. No primeiro, tem que ser gerado o arquivo [Ô].txt[Ô] em sequência com os arquivos salvos na pasta do [Ô]C:[Ô] e exportar os valores dos [Ô]textbox[Ô] assim como o valor obtido pelo cálculo. No segundo e terceiro [Ô]form[Ô], é necessário que o programa realize somente a função de exportar os dados dos [Ô]textbox[Ô] para o último relatório gerado. Abaixo, segue o código do primeiro form.

Public Class Form1
Dim numeronotasalva, numeronotasalva2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox4.Text = (txtValor1.Text + txtValor2.Text + txtValor3.Text) / 3
Try
[ô]verificar se arquivo existe
Dim file2 As String
file2 = [Ô]C:\Avaliação da Incerteza\[Ô] & numeronotasalva & [Ô].txt[Ô]
Dim numsalvo As New System.IO.StreamReader(file2)
numeronotasalva2 = numsalvo.ReadToEnd
numsalvo.Close()
Catch ex As Exception
[ô]criando txt com o numero
Dim file As System.IO.FileStream
file = System.IO.File.Create([Ô]C:\Avaliação da Incerteza\[Ô] & numeronotasalva & [Ô].txt[Ô])
MsgBox([Ô]Relatório número[Ô] & numeronotasalva, vbInformation, [Ô]Aviso[Ô])
file.Close()
[ô] aumenta o numero do arquivo salvo
numeronotasalva = numeronotasalva + 1
Dim File35 As String
File35 = [Ô]C:\Avaliação da Incerteza\Relatórios.txt[Ô]
Dim ObjWrite24 As New System.IO.StreamWriter(File35)
ObjWrite24.Write(numeronotasalva)
ObjWrite24.Close()
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]ligando numero ao arquivo salvo
Dim num As String
num = [Ô]C:\Avaliação da Incerteza\Relatórios.txt[Ô]
Dim numsal As New System.IO.StreamReader(num)
numeronotasalva = numsal.ReadToEnd
numsal.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
[ô]abrindo numero do último arquivo salvo
Dim num As String
num = [Ô]C:\Avaliação da Incerteza\Relatórios.txt[Ô]
Dim numsal As New System.IO.StreamReader(num)
numeronotasalva = numsal.ReadToEnd
numsal.Close()
[ô]salvando arquivo gerado
numeronotasalva = numeronotasalva - 1
Dim File35 As String
File35 = [Ô]C:\Avaliação da Incerteza\[Ô] & numeronotasalva & [Ô].txt[Ô]
Dim ObjWrite24 As New System.IO.StreamWriter(File35)
ObjWrite24.Write(TextBox4.Text)
ObjWrite24.Close()
MsgBox([Ô]Relatório Número [Ô] & numeronotasalva, vbInformation, [Ô]Aviso[Ô])
numeronotasalva = numeronotasalva + 1
Me.Hide()
Form2.Show()
End Sub
End Class

Abaixo, do segundo form

Public Class Form2
Dim numeronotasalva
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]ligando numero nota salva
Dim num As String
num = [Ô]C:\Avaliação da Incerteza\Relatórios.txt[Ô]
Dim numsal As New System.IO.StreamReader(num)
numeronotasalva = numsal.ReadToEnd
numsal.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[ô]abrindo numero da ultima nota salva
Dim num As String
num = [Ô]C:\Avaliação da Incerteza\Relatórios.txt[Ô]
Dim numsal As New System.IO.StreamReader(num)
numeronotasalva = numsal.ReadToEnd
numsal.Close()
Dim File35 As String
File35 = [Ô]C:\Avaliação da Incerteza\[Ô] & numeronotasalva & [Ô].txt[Ô]
Dim ObjWrite24 As New System.IO.StreamWriter(File35)
ObjWrite24.WriteLine(TextBox1.Text)
ObjWrite24.WriteLine(TextBox2.Text)
ObjWrite24.WriteLine(TextBox3.Text)
ObjWrite24.WriteLine(TextBox4.Text)
ObjWrite24.Close()
numeronotasalva = numeronotasalva + 1
MsgBox([Ô]Dados Salvos no Relatório Número [Ô] & numeronotasalva, vbInformation, [Ô]Aviso[Ô])
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
Form3.Show()
End Sub
End Class

Abaixo, do terceiro form

Public Class Form3

Dim numeronotasalva
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]ligando numero nota salva
Dim num As String
num = [Ô]C:\Avaliação da Incerteza\Relatórios.txt[Ô]
Dim numsal As New System.IO.StreamReader(num)
numeronotasalva = numsal.ReadToEnd
numsal.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[ô]abrindo numero da ultima nota salva
Dim num As String
num = [Ô]C:\Avaliação da Incerteza\Relatórios.txt[Ô]
Dim numsal As New System.IO.StreamReader(num)
numeronotasalva = numsal.ReadToEnd
numsal.Close()
[ô]salvando com o numero
numeronotasalva = numeronotasalva - 1
Dim File35 As String
File35 = [Ô]C:\Avaliação da Incerteza\[Ô] & numeronotasalva & [Ô].txt[Ô]
Dim ObjWrite24 As New System.IO.StreamWriter(File35)
ObjWrite24.WriteLine(TextBox1.Text)
ObjWrite24.WriteLine(TextBox2.Text)
ObjWrite24.WriteLine(TextBox3.Text)
ObjWrite24.Close()
numeronotasalva = numeronotasalva + 1
MsgBox([Ô]Dados Salvos no Relatório Número [Ô] & numeronotasalva, vbInformation, [Ô]Aviso[Ô])
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

Desde já agradeço....