Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Textimport "*.log"





Frage

Hallo! Hat es jemand schon mal geschafft Textdateien mit der Erweiterung *.log also nicht *.txt, *.csv usw über TransferText zu importieren. Danke und Grüße Thomas

Antwort 1 von disco

moin

bennen sie doch einfach um....
ansonsten ist wohl eher der inhalt der datei wichtig, als ihre endung.

g,
disco

Antwort 2 von TextThomas

Hallo,
umbennen wollte ich sie eigentlich nicht, da die Dateien (>100) in relativ tiefer Verzeichnisstruktur stehen und wenn ich sie umbenenne kommen andere Leute damit vielleicht nicht mehr klar. Wenn es keinen Weg mit Access gibt werde ich wohl doch den Umweg über Excel VBA gehen müssen. Der Vorfilter für den Importfilter! :( Aber wat mut, dat mut!

Danke und Gruß

Thomas

Antwort 3 von disco

ich verstehe dein problem immer noch nicht. was geht den jetzt nicht?
es ist doch völlig egal, welche endung eine textdatei hat, solange der inhalt ein gültiges format hat.

Antwort 4 von TextThomas

die *.log werden von Robotern als Logfiles erstellt. Insgesamt greifen noch 2 nachgeschaltete Anwendungen auf die Logfiles automatisch zu, die auf *.log triggern. Das läßt sich nur mit gewissem Aufwand ändern
Und wenn ich einigen Leuten erklären muß, daß die Datei nicht mehr *.log sondern *.txt heißt, geht die Welt unter und ich sehe einige Weinkrämpfe kommen.
Ich glaube ich hab Dich falsch verstanden. Ich ging von manuellem Umbenennen aus. Ich hab jetzt:

private sub umb2()
dim er as integer
er = shell("c:\windows\system32\cmd.exe /c ren D:\Pfad\name.log name.txt")
end sub

Damit kann ich die Dateien vor dem Import umbennen und nach dem Import wieder in *.log verwandeln, ohne daß einer ins Heulen kommt.

Danke für den Schubs in die richtige Richtung.

Thomas

Antwort 5 von Marie

lol, ja, genauso war es wohl gemeint von disco :-)

Antwort 6 von textThomas

Nachtrag:
Ich hab doch noch was gefunden:

Dim fso as Scripting.FileSystemObject
Dim log As Scripting.TextStream
Dim s As String

Set fso = New Scripting.FilesystemObject
Set log = fso.Opentextfile ("Pfad\Dateiname.log", ForReading, False)

Do While log.AtEndOfTextStream <> True
s=log.ReadLine ´Eine Zeile einlesen
Loop

Hab ich aus "Access-VBA" von M&T. Das Buch ist gut aber UNVERSCHÄMT teuer.

Grüße

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: