Office: ASCII-Datei einlesen

Hallo zusammen,

ich möchte eine ASCII Datei zeilenweise einlesen, das Problem ist, die Zeilen werden nicht mit CR+LF Chr(13)+Chr(10) getrennt sondern nur mit Chr(10).
Darum wird mit "Line Input" das ganze File in eine Variable eingelesen und nicht nur eine Zeile.

Dieses Problem ist erst nach dem Update des Gerätes aus dem ich die Daten auslese aufgetreten, d.h. die kommplette Datenverarbeitung ist schon vorhanden.

Wie kann ich die Datei konvertieren damit ich "Line Input" weiter verwenden kann?

:)

 

HAllo

KAnnst du uns mal eine oder 2 von diesen ASCII-Dateien zum Testen zur Verfügung stellen ?

ransi

 

Hallo ransi!

ich hoffe es funktioniert, die Datei müßte an diesem Posting hängen.

Gruß Shoogar

 

Hallo Shoogar,

versuch statt LineInput Readline anzuwenden.Etwa so:
Code:
Sub r()
Set fso = CreateObject("Scripting.FileSystemObject")
Set MeineDatei = fspenTextFile("d:\test.txt", 1, True) 'Pfad anpassen
Do While MeineDatei.AtEndOfStream <> True
Debug.Print MeineDatei.ReadLine
Loop
MeineDatei.Close
End Sub


mfg Anton

 

Hallo Anton,

danke für die Anregung, ich werde mich mal mit "fso" beschäftigen, das kannte ich als Neuling bisher noch nicht.
Läßt sich das auch ohne festgelegten Pfad und Dateinamen verwenden?

Ich habe das mit "Application.GetOpenFilename" gelöst da sich Dateiname (enthält Datum) und der Laufwerksbuchstabe ändern.

Bei der Suche im Netz bin ich noch auf einen anderen Lösungsansatz gestoßen. Das File einlesen, dann mit "Replace" ändern und wieder speichern.
Code:

Aber da habe ich genau das gleiche Problem mit den festen Pfad/Dateinamen.




Gruß Shoogar

 

Hallo Shoogar,

probier's so:
Code:
Sub b()
Dim quelle, fso As Object, MeineDatei As Object, zeile As Long
quelle = Application.GetOpenFilename("Text Dateien (*.txt), *.txt")
If quelle <> False Then
zeile = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set MeineDatei = fspenTextFile(quelle, 1, True)
Do While MeineDatei.AtEndOfStream <> True
Cells(zeile, 1) = "'" & MeineDatei.ReadLine
zeile = zeile + 1
Loop
MeineDatei.Close
Set fso = Nothing
End If
End Sub


mfg Anton

 

Hallo Anton,

Danke, so funktioniert es.

Gruß Shoogar