Jaki jest superszybki sposób na odczyt dużych plików wiersz po wierszu w VBA?

Wierzę, że wymyśliłem bardzo skuteczny sposób czytania bardzo, bardzo dużych plików po linii. Poinformuj mnie, jeśli znasz lepszy / szybszy sposób lub widzisz pole do poprawy. Staram się poprawić kodowanie, więc każda rada, którą masz, byłaby miła. Mam nadzieję, że jest to także coś, co inni ludzie mogą uznać za przydatne.

Wydaje się, że jest to około 8 razy szybsze niż użycie wejścia liniowego z moich testów.

'This function reads a file into a string.                        '
'I found this in the book Programming Excel with VBA and .NET.    '
Public Function QuickRead(FName As String) As String
    Dim I As Integer
    Dim res As String
    Dim l As Long

    I = FreeFile
    l = FileLen(FName)
    res = Space(l)
    Open FName For Binary Access Read As #I
    Get #I, , res
    Close I
    QuickRead = res
End Function

'This function works like the Line Input statement'
Public Sub QRLineInput( _
    ByRef strFileData As String, _
    ByRef lngFilePosition As Long, _
    ByRef strOutputString, _
    ByRef blnEOF As Boolean _
    )
    On Error GoTo LastLine
    strOutputString = Mid$(strFileData, lngFilePosition, _
        InStr(lngFilePosition, strFileData, vbNewLine) - lngFilePosition)
    lngFilePosition = InStr(lngFilePosition, strFileData, vbNewLine) + 2
    Exit Sub
LastLine:
    blnEOF = True
End Sub

Sub Test()
    Dim strFilePathName As String: strFilePathName = "C:\Fld\File.txt"
    Dim strFile As String
    Dim lngPos As Long
    Dim blnEOF As Boolean
    Dim strFileLine As String

    strFile = QuickRead(strFilePathName) & vbNewLine
    lngPos = 1

    Do Until blnEOF
        Call QRLineInput(strFile, lngPos, strFileLine, blnEOF)
    Loop
End Sub

Dzięki za radę!

questionAnswers(9)

yourAnswerToTheQuestion