高手指教：怎么在文本文件中写入一行后再接着前一行往下写？

Question

就是我要达到的要求是在打开的文本文档中不断的写入数据，一行4个数据（比如a,b,c,d,每个数据以一定格式，比如每个数据间隔4格空格）。但我不知道写完第一行后以后的数据怎么接着第一行后面往下写？请高手指点详细点

Answer 1

Open "C:\1.txt" For OutPut As #1
For i=0 to 100
    Print #1,Int(Rnd()*100)
Next
Close(1)

Answer 2

例子：
text1.text="这是一个换行事例！" & vbcrlf输入一个回车符号就可以换行啦

Answer 3

怎么不对呢，我在timer里面的程序是这样的：（interval设为1000）
Open "c:\天线.txt" For Output As #12
Print #12, Text1.Text; vbCrLf
Close #12
执行完后，打开天线文本里面就只有一行，我预期要好几行的？！能详细点告诉我问题出在哪？还是你们说的vbcrlf不管用？

Answer 4

怎么不对呢，我在timer里面的程序是这样的：（interval设为1000）
Open "c:\天线.txt" For Output As #12
Print #12, Text1.Text; vbCrLf
Close #12
执行完后，打开天线文本里面就只有一行，我预期要好几行的？！能详细点告诉我问题出在哪？还是你们说的vbcrlf不管用？
//晕。你是在Timer控件里写的啊。
参数错了。。要用Append。用OutPut每次只是一行

Answer 5

Print #12, Text1.Text & vbCrLf

Answer 6

'引用ms scripting runtime
Dim FSO As FileSystemObject
Dim File
Set FSO = New FileSystemObject
Set File = FSO.CreateTextFile("c:\1.txt", ForAppending, TristateFalse)
File.WriteLine ("写入内容")
File.Close
Set File = Nothing
Set FSO = Nothing