Dim s als Schnur, blOK, wie Boolesch
Schwache rs als DAO.Recordset
Rs = CurrentDb.OpenRecordset („Kontakte“) einstellen
„C:\text.txt“ für Eingang als #1 öffnen
rs.AddNew
Bis EOF tun (1)
Eingang #1, s zeichnen
Wenn blOK = falsch dann
Tun
Eingang #1, s zeichnen
blOK = InStr (s, „FirstName“) > 0
Bis InStr (s, „FirstName“) > 0 schlingen
Beenden wenn
Wenn blOK dann
rs (Ordnung (aufspalten (s, „=") (0))) = Ordnung (aufspalten (s, „=") (1))
Beenden wenn
Schleife
rs. Update
Nahes #1
rs. Abschluss
|