GERAR ARQUIVO TXT
Venho pedir novamente ajuda ao Oráculo, já que não estou encontrando nada parecido com o que preciso.
Estou precisando receber alguns dados vindos da porta serial, só que esses dados precisam ser transformados em um arquivo TXT, para depois serem tratados pela aplicação que tenho aqui.
Alguma dica?
obrigado
Estou precisando receber alguns dados vindos da porta serial, só que esses dados precisam ser transformados em um arquivo TXT, para depois serem tratados pela aplicação que tenho aqui.
Alguma dica?
obrigado
Bem, qual a sua dificuldade? Receber os dados na porta serial ou gravar o txt?
Oi Kerplunk, na realidade os dois.
a idéia seria receber os dados da serial em uma text ou list e o conteudo dessa text transformar para um arquivo txt.
Obrigado.
a idéia seria receber os dados da serial em uma text ou list e o conteudo dessa text transformar para um arquivo txt.
Obrigado.
Pra começar tutorial do verdadeiro oraculo em vb6
http://www.macoratti.net/vbserial.htm
http://www.macoratti.net/vbserial.htm
Grande Oráculo! Aff consegui fazer funcionar.
Mas.....
como eu usei uma lista para receber os dados da serial e depois fui varrendo essa list e gravando no arquivo txt, o bendito não vai gravando em linha , dessa forma:
daniel, 1, 23, 44, etc etc
mas fica dessa forma:
daniel
1
23
44
etc
etc
andei buscando em alguns lugares uma maneira de resolver isso mas não achei nada. Como vocês fariam para arrumar isso?
Dim iArq As Long
Dim z As Integer
-----------------------------------------------------
Private Sub Command3_Click()
iArq = FreeFile
Open [Ô]C:\Arquivo.txt[Ô] For Output As iArq
For z = 0 To List1.ListCount
Print #iArq, List1.List(z) & [ô][Ô]Texto[Ô] [ô]Imprime o texto no arquivo
Next z
Close iArq
End Sub
------------------------------------------------------
Mas.....
como eu usei uma lista para receber os dados da serial e depois fui varrendo essa list e gravando no arquivo txt, o bendito não vai gravando em linha , dessa forma:
daniel, 1, 23, 44, etc etc
mas fica dessa forma:
daniel
1
23
44
etc
etc
andei buscando em alguns lugares uma maneira de resolver isso mas não achei nada. Como vocês fariam para arrumar isso?
Dim iArq As Long
Dim z As Integer
-----------------------------------------------------
Private Sub Command3_Click()
iArq = FreeFile
Open [Ô]C:\Arquivo.txt[Ô] For Output As iArq
For z = 0 To List1.ListCount
Print #iArq, List1.List(z) & [ô][Ô]Texto[Ô] [ô]Imprime o texto no arquivo
Next z
Close iArq
End Sub
------------------------------------------------------
Tenta assim amigo
Dim iArq As Long
Dim z As Integer
-----------------------------------------------------
Private Sub Command3_Click()
Dim Linha As String
iArq = FreeFile
Open [Ô]C:\Arquivo.txt[Ô] For Output As iArq
Linha =[Ô][Ô]
For z = 0 To List1.ListCount
Linha = Linha & List1.List(z) & [Ô],[Ô]
Next z
Print #iArq, Linha
Close iArq
End Sub
Perfeito, muito obrigado Marcelo
Tópico encerrado , respostas não são mais permitidas