FileToArray – Reading all lines from a text file into a String array

' Read all lines from a text file into a String array'' Example:'   Dim lines As String() = FileToArray("D:	est.txt")'   Dim line As String'   For Each line In lines'       Debug.WriteLine(line)'   NextFunction FileToArray(ByVal filePath As String) As String()    Dim content As String    Dim lines As New ArrayList    Dim sr As System.IO.StreamReader    ' read the file's lines into an ArrayList    Try        sr = New System.IO.StreamReader(filePath)        Do While sr.Peek() >= 0            lines.Add(sr.ReadLine())        Loop    Finally        If Not sr Is Nothing Then sr.Close()    End Try    ' convert from ArrayList to a String array    Return CType(lines.ToArray(GetType(String)), String())End Function' If the input file is relatively small, 2-5 MB, you can use this simpler and ' faster version:Function FileToArray(ByVal filePath As String) As String()    Dim sr As System.IO.StreamReader    Try        sr = New System.IO.StreamReader(filePath)        Return System.Text.RegularExpressions.Regex.Split(sr.ReadToEnd, "
")    Finally        If Not sr Is Nothing Then sr.Close()    End TryEnd Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: