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
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
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 
Set m_txt = m_fl.OpenAsTextStream(ForReading)
Do
m_str = m_txt.ReadLine
’ m_str bearbeiten…
Loop Until m_txt.AtEndOfStream
Gruss, H.