[投票]：StreamReader问题

ericeden

Dim myStream As FileStream
        Dim fso As New FileSystemObject
        Dim ts As TextStream    ’要写入的文件
        Dim tso As TextStream  ’要读取的文件
        Dim sr As StreamReader = New StreamReader(TextBox1.Text) ’'读'个文件
        ts = fso.CreateTextFile(TextBox2.Text)   ’要写入的文件
        tso = fso.OpenTextFile(TextBox1.Text) ‘要读取的文件
        Dim iStr, jStr, kStr As String  ‘临时交换的变量
        'Dim Len As Long
        Dim i, j, k As Long

                    For i = 40 To 66 Step 13
                     sr.ReadToEnd()
                    If (sr.Peek() = i) Then
                        iStr = tso.ReadLine()
                        ts.WriteLine(iStr)
                    End If
  ts.close
想用sr.ReadtoEnd读这个文件，当peek()行数＝i的时候，就把这一行内容写到ts文件中，结果不行，文件是空白的，请高手指出错误