举个简单例子:就好比你新创建了一个文本文件[.txt]或Word文档[.doc],当你刚打开文件时,文件指针就在这些文件的首位,你可以直接从首位输入信息,也可以调整位置输入信息。
'这样改就行了'====代码部分====
Private Sub Form_Click()
Dim fso As New FileSystemObject, fr As TextStream
Set fr = fso.OpenTextFile(App.Path &"\add.dat", ForReading)
Do While fr.AtEndOfStream <>True
Do While fr.AtEndOfLine <>True
Print fr.Read(1)
Loop
fr.SkipLine
Loop
fr.Close
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)