VB里FSO读取顺序文件指针,求助!

Question

Private Sub Form_Click()
Dim fso As New FileSystemObject, fr As TextStream
Set fr = fso.OpenTextFile("g:\my.txt", ForReading)
Do While fr.AtEndOfStream <> True
Do While fr.AtEndOfLine <> True
Print fr.Read(1);
Loop
fr.SkipLine
Loop
fr.Close
End Sub
这是我的代码,按教程上写的.
代码的意思是,读取文本数据,读取完一行就换到下一行继续读取
用到了这个属性 fr.SkipLine
但我这个运行的时候都显示到一行里去了,望高手能给解答错在哪里了.
感激不尽!

Answer 1

'这样改就行了
'====代码部分====
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
Print
fr.SkipLine
Loop
fr.Close
End Sub

Answer 2

我不会VB，但我会vbs。也差不多能看明白。
因为你的程序每次读到一行的结尾时就不读了，所以打印出来的没有换行符。

你可以在fr.SkipLine 前加一句打印换行符语句。
Print "\n"（不会VB，所以不知道语法对不对，呵呵）

Answer 3

读行不包括读取换行符，加个换行符就O了

Private Sub Form_Click()
Dim fso As New FileSystemObject, fr As TextStream
Set fr = fso.OpenTextFile("g:\my.txt", ForReading)
Do While fr.AtEndOfStream <> True
Do While fr.AtEndOfLine <> True
Print fr.Read(1);
Loop
fr.SkipLine
Print Chr(13) '这里加个打印换行符的操作
Loop
fr.Close
End Sub