J
Joan Reddy
Can anyone tell me why this code doesn't work for setting the pointer to the
begining of a file stream?
This is driving me crazy.
At the end of Main1, sString2 is the second line of the file, as if the Seek
never worked.
Shouldn't sString1 and sString2 each contain the first line of the file?
To fix this (as in Main2), I need to create a new reader. Is this
documented behavior, or is this a bug??
Imports System
Imports System.IO
Imports Microsoft.VisualBasic
Sub Main1()
Dim oFileStream As FileStream
oFileStream = New FileStream("c:myfile.txt",
FileMode.Open,FileAccess.Read)
Dim oReader As StreamReader
oReader = New StreamReader(oFileStream)
Dim sString1 As String
sString 1 = oReader.ReadLine()
oFileStream .Seek(0, SeekOrigin.Begin)
Dim sString2 = oReader.ReadLine()
MsgBox(sString1, sString2)
End Sub
Imports System
Imports System.IO
Imports Microsoft.VisualBasic
Sub Main1()
Dim oFileStream As FileStream
oFileStream = New FileStream("c:myfile.txt",
FileMode.Open,FileAccess.Read)
Dim oReader As StreamReader
oReader = New StreamReader(oFileStream)
Dim sString1 As String
sString 1 = oReader.ReadLine()
oFileStream .Seek(0, SeekOrigin.Begin)
oReader = New StreamReader(oFileStream)
Dim sString2 = oReader.ReadLine()
MsgBox(sString1, sString2)
End Sub
begining of a file stream?
This is driving me crazy.
At the end of Main1, sString2 is the second line of the file, as if the Seek
never worked.
Shouldn't sString1 and sString2 each contain the first line of the file?
To fix this (as in Main2), I need to create a new reader. Is this
documented behavior, or is this a bug??
Imports System
Imports System.IO
Imports Microsoft.VisualBasic
Sub Main1()
Dim oFileStream As FileStream
oFileStream = New FileStream("c:myfile.txt",
FileMode.Open,FileAccess.Read)
Dim oReader As StreamReader
oReader = New StreamReader(oFileStream)
Dim sString1 As String
sString 1 = oReader.ReadLine()
oFileStream .Seek(0, SeekOrigin.Begin)
Dim sString2 = oReader.ReadLine()
MsgBox(sString1, sString2)
End Sub
Imports System
Imports System.IO
Imports Microsoft.VisualBasic
Sub Main1()
Dim oFileStream As FileStream
oFileStream = New FileStream("c:myfile.txt",
FileMode.Open,FileAccess.Read)
Dim oReader As StreamReader
oReader = New StreamReader(oFileStream)
Dim sString1 As String
sString 1 = oReader.ReadLine()
oFileStream .Seek(0, SeekOrigin.Begin)
oReader = New StreamReader(oFileStream)
Dim sString2 = oReader.ReadLine()
MsgBox(sString1, sString2)
End Sub