Import von Daten eines txt-Files via Access-VBA

Computer: Software & Programmierung Visual Basic
#1

Hi!

Ich benötige Quellcode für folgendes Problem:
Ich habe eine txt-Datei, aus der ich Daten auslesen und in einer Access-Tabelle speichern möchte. Die Speicherung stellt kein Problem für mich dar, wohl aber das Auslesen der Daten. Da die Datei nämlich leider nicht sehr gut strukturiert ist, würde ich sie gerne durchlaufen lassen und sobald zwei Leerzeichen hintereinanderfolgen zum nächsten Zeichen springen. Das würde ich unter Umständen auch noch hinbekommen. Wichtig für mich ist, mit welcher Methode unter VBA ich ein txt-File zeilenweise durchlaufen kann und auf einzelnen Zeichen zugreifen kann.

Danke für Eure Hilfe!

Gruss,
A. Runow

#2

Hallo!

Open „dateiname“ for input as Nummer
Line Input #Nummer ,Variable"
zeilenbreite=len(Variable)
For i = 1 to Zeilenbreite
Zeichen = Mid(Variable,Position,Laenge)"
If zeichen= " " then

Else

End if
Next i
Weiter Verarbeitung…
Close 1

Das war mal ganz kurz der Code fuer sowas,ich hoffe das hilft dir etwas weiter.

MfG

Merias

#3

Ich finde es noch angenehm, mit der Scripting-Runtime zu arbeiten (Verweis auf Microsoft Scripting Runtime setzen).

Hier dann ein Code-Beispiel

Dim m_fso As Scripting.FileSystemObject
Dim m_txt As Scripting.TextStream
Dim m_fl As Scripting.File
Dim m_str As String
Set m_fso = New Scripting.FileSystemObject

Set m_fl = m_fso.GetFile(„D:\Test.txt“) ’ oder sonstiger pfad :smile:

Set m_txt = m_fl.OpenAsTextStream(ForReading)

Do
m_str = m_txt.ReadLine
’ m_str bearbeiten…
Loop Until m_txt.AtEndOfStream

Gruss, H.