请教VB串口数据如何实时保存到文件 - 编程论坛

#2

Artless2018-07-13 01:21

打开文件open
读串口数据
写入append
关闭文件close

#3

aroplane2018-07-13 02:53

回复 2楼 Artless

请教一下具体代码实现。我的代码如下，每触发一次onComm事件就写入打开的文件，但写入文件后总是出现字符串被截断现象，如果在前面加了延时则字符串不被截断，但是字符串后面会出现多余的一行空行。请看一下我的代码有什么问题。
Dim InBuff As String
Private Sub cmdNewLog1_Click()
    Open CommonDialog4.FileName For Append As #SaveLogID
        DisplayFlag1 = True
End Sub

Private Sub MSComm1_OnComm()
    Select Case
        Case comEvReceive
            InBuff = MSComm1.Input
            If DisplayFlag1 = True Then
                Print #SaveLogID, InBuff
                Close #SaveLogID
            End If
    End Select
End Sub

#4

风吹过b2018-07-13 09:55

Dim InBuff As String
Private Sub cmdNewLog1_Click()
    Open CommonDialog4.FileName For Append As #SaveLogID              单击后打开日志文件
        DisplayFlag1 = True
End Sub

Private Sub MSComm1_OnComm()
    Select Case
        Case comEvReceive
            InBuff = MSComm1.Input
            If DisplayFlag1 = True Then
                Print #SaveLogID, InBuff            保存内容
                Close #SaveLogID                    关闭日志
            End If
    End Select
End Sub

当你串口数据，被分为二个包，或更多包时，写入第一段后，把文件关闭了，后面第二个包，甚至更多的包，就无法写了，就会丢数据了。

#5

风吹过b2018-07-13 09:56

修改建议

保存内容时，临时打开文件，保存完内容后，立即关闭文件。

Dim InBuff As String
Private Sub cmdNewLog1_Click()
        DisplayFlag1 = True
End Sub

Private Sub MSComm1_OnComm()
    Open CommonDialog4.FileName For Append As #SaveLogID
    Select Case
        Case comEvReceive
            InBuff = MSComm1.Input
            If DisplayFlag1 = True Then
                Print #SaveLogID, InBuff
            End If
    End Select
    Close #SaveLogID
End Sub

#6

aroplane2018-07-13 20:32

回复 5楼风吹过b

多谢回复！但是，我在点击这个按钮事件中 cmdNewLog1_Click() 要打开一个文件并指定路径，串口数据来了就自动写入这个文件，而不是串口事件出现才打开一个文件并保存。点击后这个文件可以一直打开，串口数据就可以一直写入，直到关闭程序。
Dim InBuff As String
Private Sub cmdNewLog1_Click()
        DisplayFlag1 = True
End Sub

Private Sub MSComm1_OnComm()
    Open CommonDialog4.FileName For Append As #SaveLogID
    Select Case
        Case comEvReceive
            InBuff = MSComm1.Input
            If DisplayFlag1 = True Then
                Print #SaveLogID, InBuff
            End If
    End Select
    Close #SaveLogID
End Sub

#7

aroplane2018-07-13 20:45

回复 5楼风吹过b

sorry,我第一帖代码有问题，应该是下面这个，OnComm事件中的关闭文件这一行是注掉的。
Private Sub cmdNewLog1_Click()
    Open CommonDialog4.FileName For Append As #SaveLogID
        DisplayFlag1 = True
End Sub

Private Sub MSComm1_OnComm()
    Select Case
        Case comEvReceive
            InBuff = MSComm1.Input
            If DisplayFlag1 = True Then
                Print #SaveLogID, InBuff
                'Close #SaveLogID
            End If
    End Select

End Sub

#8

aroplane2018-07-18 21:41

回复 7楼 aroplane

但是这个样子还是不行。不知道大家往一个打开的文件里面写数据都是怎么实现的？有没有成功的源码可以参考？

#9

aroplane2018-08-09 22:43

回复 7楼 aroplane

请教大家，有没有成功的源码可以参考？