hola estoy haciendo una aplicacion que debe recibir un archivo de texto por puerto serie y luego guardarlo en un archivo para posteriormente leerlo. el problema que tengo es el siguiente recibo el flujo de caracteres por puerto serie y lo guardo en un textbox, luego cuando evaluo si mscomm.comevent es igual a comEvEOF para verificar si es el final del archivo, y asi poder guardar y posteriormente leer lo recibido, nunca encuetra el fin del archivo. quisiera si alguien puede ayudarme para poder solucionarlo lo antes posible.
el codigo es el siguiente:
Dim archivo As String
Dim lectura As String
Private Sub Form_Load()
archivo = "C:\prueba.txt" 'App.Path + "\Prueba.txt"
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
txtDatosRecibidos.Text = txtDatosRecibidos.Text + MSComm1.Input
Case comEvEOF
Call Escribir
Call Leer
End Select
End Sub
Private Sub Escribir()
Open archivo For Append As #1
Print #1, txtDatosRecibidos '+ ","
Close
End Sub
Private Sub Leer()
Open archivo For Input As #1
While Not EOF(1)
Line Input #1, lectura
Text2 = Text2 + lectura
Wend
Close
End Sub
