VB存盘 保存在TXT内

来源：百度知道 编辑：UC知道 时间：2024/06/05 07:36:29
TEXT1.TEXT内的数据 会每秒更新
如果将 text1.text内的 每条数据 保存到 1.txt内

有没有 达人 能给出 代码

Private Sub Text1_Change()
Open "c:\1.txt" For Append As #1
Print #1, Text1.Text
Close
End Sub

窗体上添加一个定时器
Timer1
双击 Timer1 写入以下代码

open "c:\text.txt" for append as #1
print #1,Text1.text
close #1

然后把 Timer1 的 interval 属性 =1000
Timer1 的 Enabled 属性 =True
运行就可以了!

你如果想看文件，可以到 C 盘下打开 Text 这个文本文件

Private Sub Timer1_Timer()
'先事先设置Timer1控件的Interval属性为1000,Enabled 属性为True
Dim sPath as String
sPath=App.Path
sPath=sPath & IIf(Right(sPath,1)="\","","\")
sPath=sPath & "tmp.Txt" '更改成你的文件名,如果不与应用程序同目录,你也可以直接指定位置
Open sPath For Output as #1 'Output:改写方式,如果你是追加,改为Append
Print #1,Text1.Text
Close #1
End Sub

Private Sub Form_Load()
open "c:\1.txt" for append as #1
Timer1.interval=1000
Timer1.enabled=true
End Sub

Private