用VB编程，将text1.text中的内容写入记事本
text1.text单个写能实现。如何连续写。每分钟text变个数，然后记事本就会记录下来，大概会记录15个小时，900个数字。
有个红外测温探头，下位机装置接收4-20MA信号，然后转换成数字信号通过串口记录到VB程序中，VB程序通过线性比将温度算出来，然后显示在text里，并记录到记事本，主要就是想看红外探头在运行中会出现异常温度数据吗（主要是看环境的影响，比如灰尘较大挡住镜头，或者周围有光线等情况）。在VB程序中放一个秒表控件，每分钟就会将当前text里的数据记录到记事本里。text里的数据变化很快，根据下位机通过串口发送数据的频率。
现在想知道如何连续记录这些数据。大家有没有其他想法，比我这个简单还能实现我这个监测数据的方法。 ）
[解决办法]
open "c:\1.txt" for append as #1
print #1, text1.Text & VbCrLf
close #1
写在text1的changed事件中
[解决办法]
楼主好象说了“每分钟记录一次当前数据”。
那还是用定时器来处理，才比较适合。
如果你想“监测异常数据”，那应该在 TextBox 的 Change( ) 事件中处理：
首先，你得确定一个“正常值”的范围，即最大为多少、最小为多少。
Option Explicit
' 这儿的值，按你的需要来设置：
Private Const MAXVALUE As Double = 50
Private Const MINVALUE As Double = 10.6
' 也可以定义成变更，在窗口中用两个TextBox来输入，
' 然后用Command，或者在TextBox的事件代码中进行赋值。
Private Sub Text1_Change()
Dim dTemp As Double
dTemp = Val(Text1.Text)
If (dTemp >= MINVALUE And dTemp <= MAXVALUE) Then Exit Sub
Open "X:\temp\记录.txt" For Append As #1
'记录出现异常的时间、异常数据值：
Print #1, Time$, Text1.Text
Close
End Sub
