Question

VB里面，文本框里每更新一条数据就写入到指定的TXT里，请问这个代码如何实现的？（在线等

Dim FileNum As Integer
Private Sub Command1_Click()
Print #FileNum, Text1.Text
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print #FileNum, Text1.TextEnd Sub
Private Sub Form_Load()
FileNum = FreeFile
Open "d:\" & Date & ".txt" For Append As #FileNum
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Close #FileNumEnd Sub
这是我写的实时输入，但是这样TXT里满满的重复信息，这样不利于下一步信息提取，跪求高手帮忙。

Answer 1

应该用文本框改变事燃携件，而皮差伏不是鼠标移动事件，另外不庆差要用追加的方式写文本：
Private Sub Text1_Change()

FileNum = FreeFile
Open "d:\" & Date & ".txt" For OutPut As #FileNum
Print #FileNum, Text1.Text

Close #FileNum

End Sub

追问

我需要今天的内容每更新一条就自动输入到TXT内，然后到了12点会自动创建

Answer 2

你上面者亩的代码是没用你只需要：
Private Sub Text1_Change()
Open “c:\袜嫌拍123.txt”告羡 For Output As #1
Print #1, Text1.Text
Close #1
End Sub

追问

我需要的是文本框内更新一条数据，然后自动输入到TXT，您写的这一个不需要手动点击吗

追答

你的数据是指数据库里的数据么？如何更新的代码并没显示出来，你可以参考上面回复的代码修改一下，放到更新数据代码的后面
实际上你可以在数据库里记录最好操作这条记录的操作员的名字和操作时间，这样更容易检索

追问

我是从交换机获取数据，然后自动在文档内显示，再自动生成一个以当日日期为文件名的TXT进行数据输入更新