急急急急！~~vb中如何用txt生成测试后的结果并写入txt中

Question

vb编写的程序  程序运行后的结果  如何是这个结果生成txt文档  并且传输到这个txt文档中保存。请给详细方法及代码！~   感谢好心人！~~   急急急急

Answer 1

Open App.Path & "\somefile.txt" For Append As #1
Print #1, ""
Print #1, Format(Now, "yyyy-mm-dd HH:nn:ss") & " Test Result"
Print #1, strYourData
Close #1

Answer 2

Type Record   ' 定义用户自定义数据类型。
   ID As Integer
   Name As String * 20
End Type如果以随机方式打开文件，Seek 将读写位置设置到下一个记录。Dim MyRecord As Record, MaxSize, RecordNumber   ' 声明变量。
' 以随机文件方式打开文件。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
MaxSize = LOF(1) \ Len(MyRecord)   ' 取得文件中的记录的数。
' 用循环读入所有记录，但是从最后的记录开始往前读。
For RecordNumber = MaxSize To 1 Step - 1
   Seek #1, RecordNumber   ' 设置读写位置。
   Get #1, , MyRecord   ' 读入一个记录。
Next RecordNumber
Close #1   ' 关闭文件。如果不以 Random 打开文件，则 Seek 设置下一个操作发生的位置。假设 TESTFILE 文件内含有文本数据。Dim MaxSize, NextChar, MyChar
Open "TESTFILE" For Input As #1   ' 打开输入文件。
MaxSize = LOF(1)   ' 取得文件的总字符数。
' 用循环读入所有记录，但是从最后的记录开始往前读。
For NextChar = MaxSize To 1 Step -1   
   Seek #1, NextChar   ' 设置读写位置。
   MyChar = Input(1, #1)   ' 读入一字符。
Next NextChar
Close #1   ' 关闭文件。

Answer 3

打开文件并读取文件：Open File for input as #1
创建文件并写文件：Open File for output as #1
往后追加信息：Open File for append as #1