Import eines Textfiles

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

ich habe ein Textfile als einspaltige Tabelle in Access 2000 verknüpft.
Diese sieht wie folgt aus:

[Gruppe1]
Name1
Name2
Name4

[Gruppe2]
Name2
Name3

[Gruppe3]
Name1
Name3
Name4
Name5
…

Die Namen unter den Gruppen gehören jeweils zu diesen Gruppen.
Ich möchte nun eine Abfrage generieren, deren Ergebnis wie folgt aussieht:

Feld1 Feld2

Name1 Gruppe1
Name2 Gruppe1
Name4 Gruppe1
Name2 Gruppe2
Name3 Gruppe2
Name1 Gruppe3
Name3 Gruppe3
Name4 Gruppe3
Name5 Gruppe3

Da ich die Tabelle nicht sortieren kann und nicht weiß, wie ich eine zusätzliche
Spalte als (Zeilen)-Zähler generieren kann, bin ich momentan ziemlich ratlos…

Vielen Dank für alle Ideen, die mich irgendwie weiterbringen.

MfG
Stefan Schuh

#2

Am besten liest du die Textdatei selber gleich vernünftig strukturiert in eine Tabelle ein:

Dim Tmp as string, Gruppe as String, \_
 RS as DAO.Recordset, DB as DAO.database
Set DB = CurrentDB
Set RS = DB.Openrecordset("MeineTabelle",dbopendynaset)
Open "Myfile.txt" for input as #1
Do while not eof(1)
 line Input #1, Tmp
 If Left(Tmp,1) = "[" then
 Gruppe = Mid(Tmp,2,Len(Tmp)-2)
 elseif Trim(Tmp)"" then
 RS.Addnew
 RS!Feld1 = Tmp
 RS!Feld2 = Gruppe
 RS.Update
 end if
Loop
Close #1

Das Beispiel ist in DAO - also entweder Verweis auf die DAO-Bibliothek setzen, oder in ADO umschreiben…

Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)