Включение текстового файла в список или массив с помощью streamreader

Question

У меня есть текстовый файл, который имеет данные по строкам. Я пытаюсь помещать строки данных в массив или список.

Dim req As WebRequest = WebRequest.Create("http://www.blahblah.com/data/ListFull.csv") 
    Dim res As WebResponse = req.GetResponse() 
    Dim stream As Stream = res.GetResponseStream() 
    Dim sr As StreamReader = New StreamReader(stream, Encoding.ASCII) 
    Dim streamString As String = sr.ReadToEnd 

    '#1 
    Dim lines1 As String() 
    If streamString.Length > 0 Then 
     lines1 = streamString.Split(vbLf) 
    End If 

    '#2 
    Dim lines2 As New List(Of String) 
    Using r As StreamReader = New StreamReader(stream, Encoding.ASCII) 
     Dim line As String 
     line = r.ReadLine 
     Do Until String.IsNullOrEmpty(line) 
      lines2.Add(line) 
      'counter += 1 
      'line = r.ReadLine 
     Loop 
    End Using 

У меня есть опция, работающая нормально, и все данные файла входят в мой массив lines1.

Вариант 2, однако, не работает. Когда я перехожу через код: line = r.ReadLine имеет значение null/nothing. Почему не читается поток и что я делаю неправильно?

Answer 1

После этой линии:

Dim streamString As String = sr.ReadToEnd 

Ваш объект поток пуст, все его содержимое было скопировано в строку и теперь «поток» не содержит ничего. Некоторые классы потоков поддержки:

Stream.Seek(0, SeekOrigin.Begin) 

Чтобы вернуться к началу, но поток, возвращаемый GetResponseStream() не поддерживает его.

Вы можете либо дублировать поток (я бы не рекомендовал), либо вы можете просто обработать streamString, который вы уже получили.