我现在有一个txt文件,在持续采集传感器数据过程中,存储达到指定值前10000个数据。
我希望可以持续写入数据,达到10000个后,每采集一个就删除最早的一个,保持10000个数据,最后达到指定值时,停止采集并停止写入,留存最后那10000个数据。
如何用VB编程实时刷写数据?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
2条回答 默认 最新
- yaowf 2018-10-12 03:19关注
若采集的过程不会太长,可考虑先在内存做完,再一次写入txt文件。
用Queue可以简单达成你的需求,下面是sample code,请参考。
Private Sub LogLatestNValue(Optional ByVal N As Integer = 10000) Dim ResultSet As New Queue(Of Decimal) Dim dValue As Decimal = 0D Do While True dValue = GetSensorValue() If ResultSet.Count = 10000 Then ResultSet.Dequeue() End If ResultSet.Enqueue(dValue) If dValue >= dTargetValue Then Exit Do End If Loop WriteRsultSet2Txt(ResultSet) End Sub Private Sub WriteRsultSet2Txt(ByVal ResultSet As Queue(Of Decimal)) Dim sResult As String = "" Try Do While True If ResultSet.Count = 0 Then Exit Do End If sResult += ResultSet.Dequeue().ToString() + Environment.NewLine Loop IO.File.WriteAllText(sTargetFileName, sResult) Catch ex As Exception End Try End Sub
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥50 如何用脚本实现输入法的热键设置
- ¥20 我想使用一些网络协议或者部分协议也行,主要想实现类似于traceroute的一定步长内的路由拓扑功能
- ¥30 深度学习,前后端连接
- ¥15 孟德尔随机化结果不一致
- ¥15 apm2.8飞控罗盘bad health,加速度计校准失败
- ¥15 求解O-S方程的特征值问题给出边界层布拉休斯平行流的中性曲线
- ¥15 谁有desed数据集呀
- ¥20 手写数字识别运行c仿真时,程序报错错误代码sim211-100
- ¥15 关于#hadoop#的问题
- ¥15 (标签-Python|关键词-socket)