Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Komplette Textdatei einlesen

Der Import von Daten aus einer Textdaten erfolgt in der Regel zeilenweise. Der Vorteil dabei ist, dass die Daten direkt bearbeitet und in den entsprechenden Tabellen und Feldern gespeichert werden knnen. Wenn Sie aber einfach einmal eine Textdatei einlesen mchten, dauert das zu lange. Also warum nicht einfach direkt die komplette Datei einlesen und in ein Tabellenfeld schreiben?

Beispieldatenbank

Die Beispieldatenbank enthlt eine Tabelle zum Speichern von Texten sowie ein Modul mit der Funktion zum Einlesen eines Textes.

Textfile lesen mit Input$

Die nachfolgende Prozedur ffnet zunchst die per bergabeparameter angegebene Datei. Der Inhalt der Datei wird zunchst in der Variablen strText gespeichert und anschlieend in die Tabelle tblTexte geschrieben.

Wichtig ist, dass das Feld Textinhalt als Memofeld deklariert ist, um auch grere Texte speichern zu knnen.

Public Function TextToTable(strFilename As String)

    Dim db As DAO.database

    Dim strText As String

    Set db = CurrentDb

    Open strFilename For Input As #1

    strText = Input$(LOF(1), #1)

    Close #1

    db.Execute "INSERT INTO tblTexte(Textinhalt) VALUES('" _

        & strText & "')", dbFailOnError

    Set db = Nothing

End Function

© 2003-2015 André Minhorst Alle Rechte vorbehalten.