采集数据的刷新问题？

[mtoad]

我要一秒中采集一个数据，然后存入data.txt中，现在要同时打开data.txt观看实时采集的数据，如何实现文本文件的刷新问题啦？

[tztz520]

这样是不科学的.你可以用文本框显示出来,同时写到文本文件里.

[acev]

'# 添加LOG到LISTBOX,以及存入日志文件 (/日志数据库)
Function addInfo(info As String)
Dim strIf As String
Dim FileName As String
FileName = appLogPath & CStr(Date) & ".txt"
Open FileName For Append As #1
strIf = CStr(Now) & " " & info & vbCrLf
lstLog.AddItem strIf
Print #1, strIf
Close #1
End Function