浩华管理顾问公司:VB中建立和调用文本文件

必需存在保存文本的路径,用以下代码能实现按照X,Y这种格式储存在文本文件.可用EXCEL打开该文本文件方式查看.
Option Explicit
Dim i As Integer
Dim a As Integer
Dim x(100) As Single
Dim y(100) As Single
Private Sub Command1_Click()
a = 10
Open "c:\wenben\xy.txt" For Output As #1
For i = 0 To a
Print #1, x(i) & "," & y(i)
Next i
Close
End Sub

Private Sub cmdReadTxt_Click()
Dim arrBytes() As Byte
Dim startbyte As Long
Open FilePath For Binary As #1
ReDim arrBytes(0 To 3) As Byte
Get #1, 1, arrBytes
Close #1

Dim i As Integer
Dim sChapterName As String
For i = 0 To 2
sChapterName = sChapterName & Chr$(arrBytes(i))
Next
Debug.Print sChapterName '结果为001
End Sub

在窗体上添加一个按扭控件，名字为Command1。代码如下：
Private Sub Command1_Click()
Open "c:\VB.TXT" For Output As #1
Print #1, "这就是我在文件里写的内容！"
Print #1, "这就是我在文件里写的内容！"
Print #1, "这就是我在文件里写的内容！"
Print #1, "这就是我在文件里写的内容！"
Close #1
End Sub

上面是创建VB.TXT文件，并向其写入了4行文字，读取操作操作见参考资料。