ORGANIZACAO DE DADOS EM ARQUIVO .TXT!
[txt-size=1]Boa Tarde!!!
Sou iniciante em vb e estou tentando desenvolver um programa para laboratório quÃmico no Visual Basic 2008 express edition! O que gostaria de fazer e não consigo é o seguinte: toda vez que o usuário do programa colocar pra rodar uma nova análise; o próprio programa cria um arquivo txt e gera um código para ele! E que a cada arquivo txt gerado; o código não se repita. Ou seja; a primeira análise seria o arquivo 1; a segunda o 2 e assim por diante!
Além disso; como cada form executa um cálculo com um resultado final ( demonstrado ao usuário em um label); esse resultado deve ser gravado no arquivo txt gerado para a respectiva análise! Ou seja; o arquivo txt é gerado no load do primeiro form e os dados devem ser gravados nele ao passo que se prossegue a análise (dados do form1; dados do form2; dados do form3.....).
Desde já agradeço a ajuda!!!!!!!!
Sou iniciante em vb e estou tentando desenvolver um programa para laboratório quÃmico no Visual Basic 2008 express edition! O que gostaria de fazer e não consigo é o seguinte: toda vez que o usuário do programa colocar pra rodar uma nova análise; o próprio programa cria um arquivo txt e gera um código para ele! E que a cada arquivo txt gerado; o código não se repita. Ou seja; a primeira análise seria o arquivo 1; a segunda o 2 e assim por diante!
Além disso; como cada form executa um cálculo com um resultado final ( demonstrado ao usuário em um label); esse resultado deve ser gravado no arquivo txt gerado para a respectiva análise! Ou seja; o arquivo txt é gerado no load do primeiro form e os dados devem ser gravados nele ao passo que se prossegue a análise (dados do form1; dados do form2; dados do form3.....).
Desde já agradeço a ajuda!!!!!!!!
Pra mim, vc descreveu um log...
isso nao pode ser feito em tabelas do banco de dados nao ? tem que ser em arquivos textos mesmo ?
melhor ser feito em arquivo de texto mesmo porque os softwares de controle de equipamento de laboratorio podem fazer load desse tipo de arquivo!!!
Alguém tem alguma ideia de como fazer???
Boa tarde eu não entendi direito o q vc quer fazer mas vou tentar te ajudar ....
Para criar um arquivo txt use o codigo( em algum botão por exemplo) :
Dim file As System.IO.FileStream
file = System.IO.File.Create([Ô]c: est.txt[Ô])
coloque o caminho q preferir dentro do parenteses ...
Para abrir um arquivo txt use o codigo :
Dim file As String
file = [Ô]C:
ome do arquivo.txt[Ô]
Dim ObjReader As New System.IO.StreamReader(file)
TextBox1.Text = ObjReader.ReadToEnd
nesse exatamente assim como esta escrito vai abrir o q esta escrito dentro do arquivo no [Ô]TextBox1[Ô] ...
Para salvar alterações em um arquivo txt use o codigo :
Dim File As String
File = [Ô]C:
ome do arquivo.txt[Ô]
Dim ObjWrite As New System.IO.StreamWriter(File)
ObjWrite.Write(TextBox1.Text)
ObjWrite.Close()
nesse exatamente assim como esta escrito vai salvar dentro do arquivo o q estiver escrito no [Ô]TextBox1.txt[Ô]
para numerar em seguencia para não repetir o numero faça o seguinte
crie um form com um BOtão chamado [Ô]Button1[Ô] e um timer [Ô]Timer1[Ô]
e use esse codigo :
Public Class Form1
Dim numeronotasalva, num, timers, label1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
[ô] fazendo timer contar
label1 = timers + 1
timers = label1
If label1 = [Ô]10[Ô] Then [ô]nesse caso atualisaria em 10 segundos
label1 = 0
timers = 0
[ô] declarando variavel q começa no 1
num = [Ô]1[Ô]
[ô]esse codigo abaixo vai abri o 1 depois somar + 1 e abrir o 2 e assim até não abrir mas ai vai mandar a msg com o numero em q salvaria ....
Try
Dim file As String
file = [Ô]C:\ ... escreva o caminho até o nome mas naõ escreva o nome do arquivo se for tipo c:\1.txt escreva c:\ só isso [Ô] & num & [Ô].txt[Ô]
Dim numsalvo As New System.IO.StreamReader(file)
numeronotasalva = numsalvo.ReadToEnd
numsalvo.Close()
num = num + 1
Catch ex As Exception
MsgBox([Ô]Seria salvo no [Ô] & num, vbInformation, [Ô]Aviso[Ô])
End Try
End If
End Sub
End Class
bom não entendi direito o q vc queria fazer mas mandei os codigos para criar abrir e salvar txt e para numeração automatica espero ter ajudado qualquer coisa chama q eu te ajudo ou me adc no msn [Ô]gustavoinfomax@yahoo.com.br [Ô]
flowwww irmãoooo Boaa SOrte eeee
Bom Dia!!!
é isso mesmo que queria Gustavo; os códigos!!!!
Só restou uma pequena dúvida: o código de numerar os arquivos txt pode ser colocado junto com o código criar (no mesmo botão por exemplo)?
Abraço
Muito Obrigado pela Ajuda
é isso mesmo que queria Gustavo; os códigos!!!!
Só restou uma pequena dúvida: o código de numerar os arquivos txt pode ser colocado junto com o código criar (no mesmo botão por exemplo)?
Abraço
Muito Obrigado pela Ajuda
Bom vc diz tipo assim ele testar .... ve qual o proximo numero a ser salvo e ja salvar com esse numero ??? ... se for isso é mas simple ainda abaixo o codigo do botão :
[ô] declarando variavel q começa no 1
num = [Ô]1[Ô]
[ô]esse codigo abaixo vai abri o 1 depois somar + 1 e abrir o 2 e assim até não abrir mas ai vai mandar a msg com o numero em q salvaria ....
Try
Dim file2 As String
file2 = [Ô]C:\a\[Ô] & num & [Ô].txt[Ô]
Dim numsalvo As New System.IO.StreamReader(file2)
numeronotasalva = numsalvo.ReadToEnd
numsalvo.Close()
num = num + 1
Catch ex As Exception
num = [Ô]1[Ô]
End Try
[ô]salvando com o numero
Dim file As System.IO.FileStream
file = System.IO.File.Create([Ô]C:\a\[Ô] & num & [Ô].txt[Ô])
MsgBox([Ô]salvo com o numero [Ô] & num, vbInformation, [Ô]Aviso[Ô])
file.Close()
nesse caso vc pode até excluir o Timer q eu havia colocado no exemplo anterior por exemploo : ...
*crie uma pasta chamada [Ô]a[Ô] dentro do C:
*crie um form
*com um Botão chamado [Ô]Button1[Ô]
* cole esse codigo : ...
Public Class Form1
Dim numeronotasalva, num, timers, label1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[ô] declarando variavel q começa no 1
num = [Ô]1[Ô]
[ô]esse codigo abaixo vai abri o 1 depois somar + 1 e abrir o 2 e assim até não abrir mas ai vai mandar a msg com o numero em q salvaria ....
Try
Dim file2 As String
file2 = [Ô]C:\a\[Ô] & num & [Ô].txt[Ô]
Dim numsalvo As New System.IO.StreamReader(file2)
numeronotasalva = numsalvo.ReadToEnd
numsalvo.Close()
num = num + 1
Catch ex As Exception
num = [Ô]1[Ô]
End Try
[ô]salvando com o numero
Dim file As System.IO.FileStream
file = System.IO.File.Create([Ô]C:\a\[Ô] & num & [Ô].txt[Ô])
MsgBox([Ô]salvo com o numero [Ô] & num, vbInformation, [Ô]Aviso[Ô])
file.Close()
End Sub
End Class
OBS: esse codigo criarásalvará os txt[ô]s criados dentro da pasta [Ô]a[Ô] q foi previamente criada o caminho fica [Ô]C:\a[Ô] e criará em seguencia tipo 1, 2, 3, .... e assim por diante
Espero ter ajudo qualquer coisa é só me chamar estou a disposição para ajudar vlwwww atée mais irmão, boa Sorte........
[ô] declarando variavel q começa no 1
num = [Ô]1[Ô]
[ô]esse codigo abaixo vai abri o 1 depois somar + 1 e abrir o 2 e assim até não abrir mas ai vai mandar a msg com o numero em q salvaria ....
Try
Dim file2 As String
file2 = [Ô]C:\a\[Ô] & num & [Ô].txt[Ô]
Dim numsalvo As New System.IO.StreamReader(file2)
numeronotasalva = numsalvo.ReadToEnd
numsalvo.Close()
num = num + 1
Catch ex As Exception
num = [Ô]1[Ô]
End Try
[ô]salvando com o numero
Dim file As System.IO.FileStream
file = System.IO.File.Create([Ô]C:\a\[Ô] & num & [Ô].txt[Ô])
MsgBox([Ô]salvo com o numero [Ô] & num, vbInformation, [Ô]Aviso[Ô])
file.Close()
nesse caso vc pode até excluir o Timer q eu havia colocado no exemplo anterior por exemploo : ...
*crie uma pasta chamada [Ô]a[Ô] dentro do C:
*crie um form
*com um Botão chamado [Ô]Button1[Ô]
* cole esse codigo : ...
Public Class Form1
Dim numeronotasalva, num, timers, label1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[ô] declarando variavel q começa no 1
num = [Ô]1[Ô]
[ô]esse codigo abaixo vai abri o 1 depois somar + 1 e abrir o 2 e assim até não abrir mas ai vai mandar a msg com o numero em q salvaria ....
Try
Dim file2 As String
file2 = [Ô]C:\a\[Ô] & num & [Ô].txt[Ô]
Dim numsalvo As New System.IO.StreamReader(file2)
numeronotasalva = numsalvo.ReadToEnd
numsalvo.Close()
num = num + 1
Catch ex As Exception
num = [Ô]1[Ô]
End Try
[ô]salvando com o numero
Dim file As System.IO.FileStream
file = System.IO.File.Create([Ô]C:\a\[Ô] & num & [Ô].txt[Ô])
MsgBox([Ô]salvo com o numero [Ô] & num, vbInformation, [Ô]Aviso[Ô])
file.Close()
End Sub
End Class
OBS: esse codigo criarásalvará os txt[ô]s criados dentro da pasta [Ô]a[Ô] q foi previamente criada o caminho fica [Ô]C:\a[Ô] e criará em seguencia tipo 1, 2, 3, .... e assim por diante
Espero ter ajudo qualquer coisa é só me chamar estou a disposição para ajudar vlwwww atée mais irmão, boa Sorte........
Sensacional!!!
Era extamente o que eu queria!!!
Só que como sou iniciante em vb; gostaria de pedir uma ultima ajuda!!!
Nesse meu projeto tenho 4 forms e em cada form são realizadas operações matemáticas que geram um resultado final. O ultimo form é para visualização do arquivo de texto!
Gostaria de saber como faço pra salvar as informações do text box no ultimo arquivo txt criado! Na verdade nem sei se isso é possÃvel!!
Mas desde já agradeço
Abç
Era extamente o que eu queria!!!
Só que como sou iniciante em vb; gostaria de pedir uma ultima ajuda!!!
Nesse meu projeto tenho 4 forms e em cada form são realizadas operações matemáticas que geram um resultado final. O ultimo form é para visualização do arquivo de texto!
Gostaria de saber como faço pra salvar as informações do text box no ultimo arquivo txt criado! Na verdade nem sei se isso é possÃvel!!
Mas desde já agradeço
Abç
Desculpa a Demora,.. eu me enrolei 
me perdi dentro do Codigo shuahsuah mas depois de quase exatas 2 horas resolvi shauhsuahusha vamos la irmãooo ....
Seguinte fiz algumas mudanças para q não tenha erros futuros então ai vai ...
fiz um exemplo pq não ia saber te explicar diretin como montar no seu sem ver
*crie uma pasta chamada [Ô]a[Ô] dentro do C:
* crie dentro desta pasta um txt chamado [Ô]numero da nota salva[Ô](dentro dele q vai ficar salvo o numero do ultimo txt criado ).. o caminho deve ficar >> [Ô]C:\a
umero da nota salva.txt [Ô]
*abra esse txt escreva [Ô]0[Ô](sem as aspas) salve e feche
*crie um form
*com um Botão chamado [Ô]Button1[Ô] e um Botão chamado [Ô]Button2[Ô]
*um TextBox chamado [Ô]TextBox1[Ô]
* cole esse codigo : ...
Public Class Form1
Dim numeronotasalva, num, timers, numeronotasalva2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
[ô]abrindo txt pra testa se existe numero nota salva
Dim file2 As String
file2 = [Ô]C:\a\[Ô] & 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:\a\[Ô] & numeronotasalva & [Ô].txt[Ô])
MsgBox([Ô]Criado com o numero [Ô] & numeronotasalva, vbInformation, [Ô]Aviso[Ô])
file.Close()
[ô] aumenta o numero da nota salva
numeronotasalva = numeronotasalva + 1
Dim File35 As String
File35 = [Ô]C:\a
umero da nota salva.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 nota salva
Dim num As String
num = [Ô]C:\a
umero da nota salva.txt[Ô]
Dim numsal As New System.IO.StreamReader(num)
numeronotasalva = numsal.ReadToEnd
numsal.Close()
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
[ô]abrindo numero da ultima nota salva
Dim num As String
num = [Ô]C:\a
umero da nota salva.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:\a\[Ô] & numeronotasalva & [Ô].txt[Ô]
Dim ObjWrite24 As New System.IO.StreamWriter(File35)
ObjWrite24.Write(TextBox1.Text)
ObjWrite24.Close()
MsgBox([Ô]salvo com o numero [Ô] & numeronotasalva, vbInformation, [Ô]Aviso[Ô])
numeronotasalva = numeronotasalva + 1
End Sub
End Class
Sendo q o Button1 Cria os novos txt[ô]s e o Button2 Salva dentro do Ultimo txt criado o q esta escrito dentro da Textbox1
OBS: eu naõ sei se me expressei direito mas pra não ter erro mandei em anexo o projeto e a pasta com instruções shaushuahs
Bom acredito q esteja certo ...... Qualquer Erro é só me Avisar....
aahh me avisa se der certo tambem to curiosos shauhsua
Vlww Irmão floo Até Maissss qualquer coisa é só chamar tamos ai pra qualquer parada shaushuahs
me perdi dentro do Codigo shuahsuah mas depois de quase exatas 2 horas resolvi shauhsuahusha vamos la irmãooo ....Seguinte fiz algumas mudanças para q não tenha erros futuros então ai vai ...
fiz um exemplo pq não ia saber te explicar diretin como montar no seu sem ver
*crie uma pasta chamada [Ô]a[Ô] dentro do C:
* crie dentro desta pasta um txt chamado [Ô]numero da nota salva[Ô](dentro dele q vai ficar salvo o numero do ultimo txt criado ).. o caminho deve ficar >> [Ô]C:\a
umero da nota salva.txt [Ô]
*abra esse txt escreva [Ô]0[Ô](sem as aspas) salve e feche
*crie um form
*com um Botão chamado [Ô]Button1[Ô] e um Botão chamado [Ô]Button2[Ô]
*um TextBox chamado [Ô]TextBox1[Ô]
* cole esse codigo : ...
Public Class Form1
Dim numeronotasalva, num, timers, numeronotasalva2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
[ô]abrindo txt pra testa se existe numero nota salva
Dim file2 As String
file2 = [Ô]C:\a\[Ô] & 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:\a\[Ô] & numeronotasalva & [Ô].txt[Ô])
MsgBox([Ô]Criado com o numero [Ô] & numeronotasalva, vbInformation, [Ô]Aviso[Ô])
file.Close()
[ô] aumenta o numero da nota salva
numeronotasalva = numeronotasalva + 1
Dim File35 As String
File35 = [Ô]C:\a
umero da nota salva.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 nota salva
Dim num As String
num = [Ô]C:\a
umero da nota salva.txt[Ô]
Dim numsal As New System.IO.StreamReader(num)
numeronotasalva = numsal.ReadToEnd
numsal.Close()
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
[ô]abrindo numero da ultima nota salva
Dim num As String
num = [Ô]C:\a
umero da nota salva.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:\a\[Ô] & numeronotasalva & [Ô].txt[Ô]
Dim ObjWrite24 As New System.IO.StreamWriter(File35)
ObjWrite24.Write(TextBox1.Text)
ObjWrite24.Close()
MsgBox([Ô]salvo com o numero [Ô] & numeronotasalva, vbInformation, [Ô]Aviso[Ô])
numeronotasalva = numeronotasalva + 1
End Sub
End Class
Sendo q o Button1 Cria os novos txt[ô]s e o Button2 Salva dentro do Ultimo txt criado o q esta escrito dentro da Textbox1
OBS: eu naõ sei se me expressei direito mas pra não ter erro mandei em anexo o projeto e a pasta com instruções shaushuahs
Bom acredito q esteja certo ...... Qualquer Erro é só me Avisar....
aahh me avisa se der certo tambem to curiosos
shauhsuaVlww Irmão floo Até Maissss qualquer coisa é só chamar tamos ai pra qualquer parada shaushuahs
Grande GEISSLER, nao relaxa enquanto nao sana uma dúvida.
é isto aew meu veio.
é isto aew meu veio.
Vlww cara to curtindo de mais o Site ja aprendi muito aqui, na verdade nesses 1 ano programando é o melhor site q eu ja achei hsuahs :P
Abç até ++ irmãoooosss hsuahsuha s
Abç até ++ irmãoooosss hsuahsuha s
Tópico encerrado , respostas não são mais permitidas