using vb.net read unix style text file

Unix text file uses linefeed only to indicate end of line, the .net streamreader's readline function is not working with unix text file.

I made a small wrapper for StreamReader class to make it is working with unix format.

At first, I created a class

 
    
    Imports 
     System.IO

 
    Public 
      
    Class 
     StreamReaderUnix
     
    Inherits 
     streamreader
     
    Sub 
      
    New 
    ( 
    ByVal 
     filename  
    As 
      
    String 
    )
         
    MyBase 
    .New(filename)
     
    End Sub 
    

     
    Public 
      
    Function 
     ReadLine( 
    ByVal 
     unixStyle  
    As 
      
    String 
    )  
    As 
      
    String 
    
         
    Dim 
     intByte  
    As 
      
    Integer 
    
         
    Dim 
     bteRead()  
    As 
      
    Byte 
    

         
    Dim 
     mybuffer( 
    1 
    )  
    As 
      
    Char 
    
         
    Dim 
     lineFeedLocation  
    As 
      
    Integer 
    
         
    Dim 
     aLine  
    As 
      
    String 
      
    = 
      
    String 
    .Empty 

         
    If 
     unixStyle  
    = 
      
    "" 
      
    Then 
    
             
    MyBase 
    .ReadLine()
         
    Else 
     
             
    Do 
      
    While 
      
    Not 
     intByte  
    = 
      
    - 
    1 
    
                intByte  
    = 
      
    MyBase 
    .Read(mybuffer,  
    0 
    ,  
    1 
    )
                 
    If 
     intByte  
    <> 
      
    - 
    1 
      
    Then 
    
                    lineFeedLocation  
    = 
     Array.IndexOf(mybuffer,  
    CChar 
    (vbLf))
                     
    If 
     mybuffer( 
    0 
    )  
    = 
      
    CChar 
    (vbLf)  
    Then 
    
                         
    Return 
     aLine
                     
    ElseIf 
     mybuffer( 
    0 
    )  
    = 
      
    CChar 
    (vbCr)  
    Then 
    
                         
    ' 
    doing nothing 
    
 
                         
    Else 
    
                        aLine  
    = 
     aLine  
    & 
     mybuffer( 
    0 
    )
                     
    End 
      
    If 
    
                 
    End 
      
    If 
    
             
    Loop 
    
         
    End 
      
    If 
     
     
    End Function 
    
 
    End Class 
    
 
    
  

 

 

Below is the sample code to use this class

 

 
   Dim 
    oRead  
   As 
    StreamReaderUnix
oRead  
   = 
     
   New 
    StreamReaderUnix( 
   " 
   sample.txt 
   " 
   )
 
   Dim 
    lineIn  
   As 
     
   String 
   
 
   While 
    oRead.Peek  
   <> 
     
   - 
   1 
   
   lineIn  
   = 
    oRead.ReadLine( 
   " 
   unix 
   " 
   )
    
   MsgBox 
   (lineIn)
 
   End 
     
   While