例58:使用数据文件写入数据

1. 建立一个控制台文件，输入代码：

Const filename As String = "file.txt"

Dim filenum As Integer = FreeFile()

If 0 <> Open(filename, For Output, As filenum) Then

    Print "打开错误" & filename & "用于输出。"

    End -1

End If

Dim i As Integer = 10

Dim d As Double = 123.456

Dim s As String = "文本"

For j As Integer= 1 To 10

 i=i+j

 d=d+j

 s = "文本"+ Str(i)

 Write #filenum, i, s, d

 'Write #filenum,

Next

GetKey    '在工程的release文件夹下可以找到file.txt

内容如下：

11,"文本11",124.456

13,"文本13",126.456

16,"文本16",129.456

20,"文本20",133.456

25,"文本25",138.456

31,"文本31",144.456

38,"文本38",151.456

46,"文本46",159.456

55,"文本55",168.456

65,"文本65",178.456