写入文本文件数据的问题

Question

比方说在时间1点--2点之间的数据是同一个数据,我写入文本只要 写一次就够了!怎么实现啊

Answer 1

在写入数据的时候判断时间与数据.
如果在某个时间段内的数据是相同的就不要再写了.
以下是伪代码．MinDate '时间段下限
MaxDate '时间段上限open FileName for output as #1
   if Now>MinDate and Now<MaxDate '判断时间区间
       if WriteData <> OldData　　＇判断此数据是否重复
            put #1 , Data
            OldData=WriteData
       end if
   end if
Close #1