保存数据到文件中的问题！

[wxf0204]

我现在是用这一句来显示数据，现在我要将此数据保存到一个文件中怎么做啊？就保存在同一个TXT文档中就好了!主要是每次rvdata.m_data_buf都是不同的，但是要把变化的数据都保存到同一个文件中！

for i =1 to 10000
TextData+=1
text1.text="接收数据：" & StrConv(TextData, vbUnicode)
next i

我现在就是想将text1.text="接收数据：" & StrConv(TextData, vbUnicode) 这一句显示的，改成保存到D：\bba.txt 或者是保存到EXEL中，我改怎么做啊？

[tztz520]

Private Sub Command2_Click()
Open "D\bba.txt" For Output As #1
Print #1, ="接收数据：" & StrConv(TextData, vbUnicode) '写入内容
Close #1
End Sub

[wxf0204]

试了，不行，还是不能把每一次的数据都增加到里面去！

[fanzai]

Private Sub Command1_Click()
Open "D:\bba.txt" For Output As #1
For i = 1 To 100
Print #1, "接收数据：" & i '& StrConv(TextData, vbUnicode) '写入内容
Next i
Close #1
End Sub

[fanzai]

写错了。

Private Sub Command1_Click()
Open "D:\bba.txt" For Output As #1
For i = 1 To 100
TextData = TextData + 1
Print #1, "接收数据：" & StrConv(TextData, vbUnicode) '写入内容
Next i
Close #1
End Sub

[wxf0204]

这样还是不行啊，每次我查看bba.txt，前一次保存的数据都不在了啊！
我想得到的最终应该是1，2，3，4，5。。。。100啊，可是现在只有1，要不就是2，或者3。。。。。

[fanzai]

你机器有问题了吧？这是我的文件：

接收数据：1
接收数据：2
接收数据：3
接收数据：4
接收数据：5
接收数据：6
接收数据：7
接收数据：8
接收数据：9
接收数据：1 0
接收数据：1 1
接收数据：1 2
接收数据：1 3
接收数据：1 4
接收数据：1 5
接收数据：1 6
接收数据：1 7
接收数据：1 8
接收数据：1 9
接收数据：2 0
接收数据：2 1
接收数据：2 2
接收数据：2 3
接收数据：2 4
接收数据：2 5
接收数据：2 6
接收数据：2 7
接收数据：2 8
接收数据：2 9
接收数据：3 0
接收数据：3 1
接收数据：3 2
接收数据：3 3
接收数据：3 4
接收数据：3 5
接收数据：3 6
接收数据：3 7
接收数据：3 8
接收数据：3 9
接收数据：4 0
接收数据：4 1
接收数据：4 2
接收数据：4 3
接收数据：4 4
接收数据：4 5
接收数据：4 6
接收数据：4 7
接收数据：4 8
接收数据：4 9
接收数据：5 0
接收数据：5 1
接收数据：5 2
接收数据：5 3
接收数据：5 4
接收数据：5 5
接收数据：5 6
接收数据：5 7
接收数据：5 8
接收数据：5 9
接收数据：6 0
接收数据：6 1
接收数据：6 2
接收数据：6 3
接收数据：6 4
接收数据：6 5
接收数据：6 6
接收数据：6 7
接收数据：6 8
接收数据：6 9
接收数据：7 0
接收数据：7 1
接收数据：7 2
接收数据：7 3
接收数据：7 4
接收数据：7 5
接收数据：7 6
接收数据：7 7
接收数据：7 8
接收数据：7 9
接收数据：8 0
接收数据：8 1
接收数据：8 2
接收数据：8 3
接收数据：8 4
接收数据：8 5
接收数据：8 6
接收数据：8 7
接收数据：8 8
接收数据：8 9
接收数据：9 0
接收数据：9 1
接收数据：9 2
接收数据：9 3
接收数据：9 4
接收数据：9 5
接收数据：9 6
接收数据：9 7
接收数据：9 8
接收数据：9 9
接收数据：1 0 0

[fanzai]

另外，如果你改写成下面的，每次的记录就都在一起了。

Open "D:\bba.txt" For Append As #1

[wxf0204]

如果我是这样呢：
dim TextData as string
private timer1_timer()
command1.click
end sub

private sub command1_click()
TextData+=1
Open "d:/dda.txt" for Output as #1
Print #1 , StrConv(TextData, vbUnicode) '写入内容
close 1#
end sub

那我应该怎么做才能得到您上面的数据呢？
实在是感激啊！

[fanzai]

Open "d:/dda.txt" for Output as #1

改成：

Open "D:\bba.txt" For Append As #1

这样就是追加了，不是覆盖。

[wxf0204]

TextData=TextData+1

楼上的这样好象不行的哦！

[Yaka]

怎麼不行呀~沒可能啊!
text裏麵的數據都是有以前的數據吧!
用output就會覆蓋原來的bba.txt~按道理應該可以的!

[Yaka]

TextData+=1 這個是甚麼東西呀?
妳用這個看看
private sub command1_click()
Open "d:/dda.txt" for Output as #1
Print #1 , txet '接受數據文本框!
close #1
end sub

[wxf0204]

自己顶哦！

[wxf0204]

呵呵，谢谢大家了，我自己已经搞定了！

[wxf0204]

可是现在问题是我把数据都保存到了一个TXT文档c:\ssdata.txt中，现在设计了一个command1 ,click后就直接弹出这个txt文件！
请大家再帮帮忙啊，我很快就揭贴！

[Yaka]

是要直接弹出文件还是读取里面数据显示出来呀？

[fanzai]

Private Sub Command1_Click()
Shell "notepad c:\ssdata.txt", vbNormalFocus
End Sub

[wxf0204]

直接显示出来一个TXT文档，就像是我们自己直接点击打开一样！