Office: Artikelnummer aus Textdatei importieren

Hallo!

ich habe folgendes Problem und keine Lösung gefunden.

Ich versuche eine Textdatei mit Artikeldaten in Access zu importieren.
Die Textdatei hat dummerweise kein eindeutiges Trennzeichen auser einer vier stelligen Artikelnummer.

z.B.

1004 Computer
Toller Computer mit vielen Extras

Ich möchte Sie jetzt in Access importieren jedoch im Format

Artikel-nr |Produkt |Beschreibung
1004 | Computer |Toller Computer

Auch hinzufügen von einem Trennzeichen in Excel/Word funktioniert über die Erstezen funktion nicht. Ich kann nur die Komplette Zahlenkette ersetzen, aber kein Zeichen davor hinzufügen, dass dann als Trennzeichen dienen kann.

Vielen Dank für eure Hilfe.

lg
fabian

 

Kannst Du nicht mit fester Breite importieren? wenn es immer vier stellen sind?

 

Danke für den Tipp, aber das funktioniert auch nicht.

Die Textdatei sieht so aus:

1004 Computer
AMD Athlon3GhZ

Wenn ich jetzt nur die ersten vier Zeichen als Trennung benutze sieht die Access Datentabelle so aus:

Feld1 |Feld2
1004 Computer
AMD Athlon3Ghz

Habe es schon mit einem Mischmasch aus Word und Excel versucht.
Mit Makros funktionieren paar einige Sachen.

Gibt es vielleicht ein Aufzeichnungstool das ich auch in Access verwenden kann. Oder kann man die Codes mischen??

z.b.
Suche die Zahlenkette bestehende aus 4 Zeichen. Schneide den Rest weg und schreibe es in Feld2. Gehe zum nächsten usw.

 

kann man prinzipiell sagen, dass die Artikel aus zwei Zeilen bestehen, wobei die Nr. und die Bezeichnung in der ersten Zeile und die Beschreibung in der zweiten Zeile steht?

Liegt die Datei im Format *.txt vor?

Dann liesse sich da auch etwas per VBA machen.
Es gibt immer noch die Möglichkeit eine Datei sequentiell zu öffnen und Zeilenweise einzulesen.

etwa so:

Code:

dim Zeile1 as String, Zeile2 as String
dim rs as dao.recordset
set rs=CurrentDB.OpenRecordset("DeineTabelle")

Open "Pfad/Datei.txt" for Input as #1
do while not EOF(1)
Line Input #1, Zeile1
Line Input #1, Zeile2
rs.AddNew
rs!ArtNr=Val(Left(Zeile1,4))
rs!Produkt=right(Zeile1,(len(Zeile1)-5))
rs!Beschreibung=Zeile2
rs.Update
Loop
Close #1
rs.close
set rs=Nothing

In dem Beispiel gehe ich davon aus, dass in der Acc-Tabelle das Feld ArtNr als Zahlenfeld definiert wurde, der Rest jedoch Text ist.
Das Ganze könnte aus einem Modul oder aus einem Formular heraus ausgeführt werden.
(Der Code ist nicht überprüft, sondern aus dem Bauch heraus. Daher keine Garantie, dass auch Fehlerlos!)