TextFieldParserでストリームからCSVを解析すると、常にEndOfDataに到達します

Question

Azure BLOBからのストリームとしてCSVファイルを解析するとき、TextFieldParserは常にデータを読み込まずにEndOfDataにただちに到達します。同じコードですが、ストリームの代わりに同じ物理ファイルへのパスがあります。

Dim storageAccount As CloudStorageAccount = CloudStorageAccount.Parse(AzureStorageConnection) 
    Dim blobClient As CloudBlobClient = storageAccount.CreateCloudBlobClient() 
    Dim BlobList As IEnumerable(Of CloudBlockBlob) = blobClient.GetContainerReference("containername").ListBlobs().OfType(Of CloudBlockBlob) 

    For Each blb In BlobList 
     Dim myList As New List(Of MyBusinessObject) 

     Using memoryStream = New MemoryStream() 
      blb.DownloadToStream(memoryStream) 

      Using Reader As New FileIO.TextFieldParser(memoryStream) 
       Reader.TextFieldType = FileIO.FieldType.FixedWidth 
       Reader.SetFieldWidths(2, 9, 10) 
       Dim currentRow As String() 
       While Not Reader.EndOfData 
        Try 
         currentRow = Reader.ReadFields() 
         myList.Add(New GsmXFileRow() With { 
         ' code to read currentRow and add elements to myList 
         }) 
        Catch ex As FileIO.MalformedLineException 
        End Try 
       End While 
      End Using 
     End Using 
    Next 

は、私はまた、 TextFieldParserに myTextReaderを渡し、その後 TextReader

Dim myTextReader As TextReader = New StreamReader(memoryStream) 

とにMemoryStreamを変換しようとしたが、これはどちらか動作しません。

Lengthプロパティの値が等しいファイルサイズ

と、この：

Using Reader As New FileIO.TextFieldParser(myTextReader)

Answer 1

私はこの参照

「Position`プロパティが同じ値を持っている

これは、ループの開始時に、すでにMemoryStreamがストリームの最後に進んでいることを意味します。 Positionを0に戻すだけで、より良い場所にいるはずです。

ただし、こちらにも別の問題がある可能性があります。そのストリームデータは、未知のエンコーディングでバイナリです。 TextFieldParserはTextと連携したいと考えています。 TextFieldParserに、使用されているエンコーディングに関する情報を与える方法が必要です。

この場合、私はStreamReaderをお勧めします。あなたはTextFieldParserでそれを使用することができますので、このタイプは、TextReaderから継承：

Dim storageAccount As CloudStorageAccount = CloudStorageAccount.Parse(AzureStorageConnection) 
Dim blobClient As CloudBlobClient = storageAccount.CreateCloudBlobClient() 
Dim BlobList As IEnumerable(Of CloudBlockBlob) = blobClient.GetContainerReference("containername").ListBlobs().OfType(Of CloudBlockBlob) 

Dim myList As New List(Of MyBusinessObject) 
For Each blb In BlobList 

    'Several constructor overloads allow you to specify the encoding here 
    Using blobData As New StreamReader(New MemoryStream()) 
     blb.DownloadToStream(blobData.Stream) 

     'Fix the position problem 
     blobData.Stream.Position = 0 

     Using Reader As New FileIO.TextFieldParser(blogData) 
      Reader.TextFieldType = FileIO.FieldType.FixedWidth 
      Reader.SetFieldWidths(2, 9, 10) 
      Dim currentRow As String() = Reader.ReadFields() 
      While Not Reader.EndOfData 
       Try 
        myList.Add(New GsmXFileRow() With { 
         ' code to read currentRow and add elements to myList 
        }) 
        currentRow = Reader.ReadFields() 
       Catch ex As FileIO.MalformedLineException 
       End Try 
      End While 
     End Using 
    End Using 
Next