今日得分最低问题:FileStream的运用
2066 2003-12-30 08:33:30 以下是代码,请解释
Module Module1
Sub Main()
Dim FS As IO.FileStream
Dim FReader As IO.StreamReader
Dim FWriter As IO.StreamWriter
Dim LineContex As String = "a"
FS = New IO.FileStream("H:\test.txt", IO.FileMode.Create, IO.FileAccess.Write)
FWriter = New IO.StreamWriter(FS)
Console.WriteLine("输入文件内容:")
While LineContex.Length > 0
LineContex = Console.ReadLine
FWriter.WriteLine(LineContex)
End While
FWriter.Close()
FS = New IO.FileStream("H:\test.txt", IO.FileMode.Open, IO.FileAccess.Read)
FReader = New IO.StreamReader(FS)
LineContex = FReader.ReadToEnd()
Console.WriteLine(LineContex)
FS.Seek(0, IO.SeekOrigin.Begin)
While FReader.Peek > -1
LineContex = FReader.ReadLine
Console.WriteLine(LineContex)
End While
FReader.Close()
Console.Read()
End Sub
End Module