Strukturierte Textdatei als Datensatz einlesen

Computer: Software & Programmierung Microsoft Access
#1

Ich habe eine Textdatei, die wie im folgenden Beispiel strukturiert ist:

Vorname: Peter
Name: Mustermann
Beruf: Grafiker
Mitglied seit: 01.03.1999
…

Die Daten möchte ich an eine bestehende ACCESS-Tabelle anhängen, die ebenfalls die Felder Vorname, Name, Beruf, Mitglied seit, … enthält.

Einzelne Feldnamen können in der Textdatei auch fehlen, Beispiel:

Vorname: Peter
Name: Mustermann
Mitglied seit: 01.03.1999
…

Trotz des fehlenden Feldes „Beruf“, sollen die Daten korrekt zugeordnet und eingelesen werden. Die Daten müssen also an dem vorangestellten Feldnamen erkannt werden.

Wer kennt eine Lösung (Makro, integrierte ACCESS97-Funktion), mit der eine solche Datei per „Knopfdruck“ eingelesen werden kann?

Günther Bodesheim

#2

Da gibt es nichts Eingebautes…
du musst also den Import selber programmieren, etwa so:

Dim DB As DAO.database, RS as DAO.Recordset, Tmp, First as boolean
Dim Lin as String, FldName as String, FldWert as String
 
First = True
Set DB = Currentdb
Set RS = RS.openrecordset("MeineTabelle",dbOpendynaset)
Open "meineDatei.txt" for input as #1
Do while not eof(1)
 Line input #1, Lin
 Tmp = Split(Lin,":")
 If UBound(Tmp) \> 0 then
 FldName = Trim(Tmp(0))
 FldWert = Trim(Tmp(1))
 If FldName = "Vorname" then
 if not First then RS.Update
 RS.Addnew
 First = False
 end if
 RS(FldName) = FldWert
 end if
Loop
If Not First then RS.Update
RS.Close
Close #1

Wobei ich mal angenommen habe, dass der Datensatzwechsel durch das Feld „Vorname“ angezeigt wird - „Vorname“ also immer existiert…

Gruß aus dem Norden
Reinhard Kraasch

#3

Muss natürlich heissen:

Set RS = **DB**.Openrecordset (...