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ę!