Rubrik: Dateisystem · Dateien lesen/schreiben | VB-Versionen: VB6 | 22.02.07 |
Bestimmte Zeile einer Textdatei schnell auslesen Mit dieser Funktion lässt sich eine bestimmte Zeile einer Textdatei sehr schnell auslesen. | ||
Autor: Dieter Otter | Bewertung: | Views: 16.331 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
In unserem vorigen Tipp haben wir gezeigt, wie sich die Anzahl der Zeilen einer Textdatei schnell ermitteln lässt. Hin und wieder soll es jetzt auch vorkommen, dass man eine ganz bestimmte Zeile aus einer Textdatei auslesen möchte. Mit Hilfe des Split-Befehls und der Variante 1 aus dem Tipp Anzahl der Zeilen einer Textdatei schnell ermitteln lässt sich das einfach und schnell bewerkstelligen.
' Bestimmte Zeile einer Textdatei auslesen Public Function FileReadLine(ByVal sFile As String, ByVal nLineNumber As Long) As String Dim F As Integer Dim sBuffer As String Dim nLines As Long ' Datei zum Lesen öffnen F = FreeFile Open sFile For Binary Access Read Shared As #F ' gesamten Inhalt temporär auslesen sBuffer = Space$(LOF(F)) Get #F, , sBuffer Close #F ' gewünschte Zeile auslesen On Error Resume Next FileReadLine = Split(sBuffer, vbCrLf)(nLineNumber - 1) End Function