Tipp 1.22 - Textdatei auslesen

Wie kann ich eine Textdatei auslesen?

Mit dieser Funktion können Sie eine Textdatei auslesen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function ReadFromTextFile( _
                ByVal sFilePath As String, _
                ByRef sBuffer As String) _
                As Long
  '// -----------------------------------------------------
  '// Methode:   | Liest den gesamten Inhalt e. Textdatei
  '// -----------------------------------------------------
  '// Parameter: | sFilePath = gültiger Dateipfad
  '//            | sBuffer = Rückgabestring (!)
  '//            | mit dem Dateiinhalt
  '// -----------------------------------------------------
  '// Rückgabe:  | Fehlernummer (0=kein Fehler aufgetreten)
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  On Error GoTo Err_ReadFromTextFile
 
  Dim iFile As Integer
  sBuffer = vbNullString
  iFile = VBA.FreeFile
  Open sFilePath For Input As iFile
  sBuffer = Input(VBA.LOF(iFile), iFile)
  Close #iFile
 
Exit_ReadFromTextFile:
  ReadFromTextFile = Err.Number
  On Error GoTo 0
  Exit Function
 
Err_ReadFromTextFile:
  Resume Exit_ReadFromTextFile
 
End Function


Zurück Tipp 1.21 - TMP Datei erstellen | Inhalt | Tipp 1.23 - Textdatei erweitern Weiter