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

Question

我现在是用这一句来显示数据，现在我要将此数据保存到一个文件中怎么做啊？就保存在同一个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中，我改怎么做啊？

Answer 1

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

Answer 2

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

Answer 3

写错了。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

Answer 4

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

Answer 5

另外，如果你改写成下面的，每次的记录就都在一起了。Open "D:\bba.txt" For Append As #1

Answer 6

如果我是这样呢：
 dim TextData as string
private timer1_timer()
command1.click
end subprivate sub command1_click()
TextData+=1
Open "d:/dda.txt" for Output as #1
Print #1 ,  StrConv(TextData, vbUnicode) '写入内容
close 1#
end sub那我应该怎么做才能得到您上面的数据呢？
实在是感激啊！

Answer 7

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

Answer 8

TextData=TextData+1楼上的这样好象不行的哦！

Answer 9

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

Answer 10

Open "d:/dda.txt" for Output as #1改成：Open "D:\bba.txt" For Append As #1这样就是追加了，不是覆盖。

Answer 11

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

Answer 12

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

Answer 13

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