TextReader 类
https://docs.microsoft.com/zh-cn/dotnet/api/system.io.textreader?view=netframework-4.8
命名空间:System.IO
程序集:mscorlib.dll
表示可读取有序字符系列的读取器。
TextReader 类是抽象类。 因此不要在代码中对其进行实例化。 StreamReader 类派生自 TextReader，并提供成员的实现以从流中读取。
TextReader类用于读取文本文件，StreamReader类由TextReader类继承得到。StreamReader类的方法主要包括：
- Read 从文件流中读取下一个字符；
- ReadLine 从文件流中读取一行字符;
- ReadToEnd 从文件流的当前位置读到流末尾；
- Peek，返回文件流中的下一个字符，但是并不读这个字符。
可通过两种方法束创建StreamReader对象，一种是通过文件路径名来创建， 一种则是通过已经创建好的文件流对象来创建TextReader类。
TextWriter类用于改写文本文件的内容，StreamWriter类由TextWriter类继承得到。
StreamWriter类的方法包括：
- Write 将数据写入到文本文件；
- WriteLine 写入一行；
- Close，关闭文件流并释放资源。
StreamWriter类也可通过两种方法来构造对象，一种是通过文件路径名来创建，一种则是通过已经创建好的文件流对象来创建。
Module Module1
Sub Main()
testTextFile()
Console.Read()
End Sub
Private Sub testTextFile()
Dim TextLine As String = ""
Dim Fs As IO.FileStream
Dim Sw As IO.StreamWriter
Dim Sr As IO.StreamReader
Fs = New IO.FileStream("j:\test\TextReader.txt", IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
Sw = New IO.StreamWriter(Fs)
Dim flag As Boolean = True
While flag
Console.WriteLine("输入一行字,回车键退出。")
TextLine = Console.ReadLine()
If TextLine = "" Then
flag = False
Else
Sw.WriteLine(TextLine)
End If
End While
Sw.Close()
Fs = New IO.FileStream("j:\test\TextReader.txt", IO.FileMode.Open, IO.FileAccess.Read)
Sr = New IO.StreamReader(Fs)
flag = True
While flag
If Sr.Peek = -1 Then
flag = False
Else
TextLine = Sr.ReadLine
Console.WriteLine(TextLine)
End If
End While
Sr.Close()
End Sub
End Module
