ich versuche eine Textdatei zeilenweise zu lesen,
Line Input #1, Zeile
weist aber der variablen Zeile auf einmal die ganze Datei zu.
Hat jemand eine Idee warum, bzw. was man dagegen machen kann?
Ich bedanke mich in Voraus.
Freundliche Grüsse
Ioannis
Sub DatTest()
Open "D:\MyDatei.txt" For Binary As #1
MyString = Input(LOF(1), #1)
CLOSE #1
MyString = Replace(MyString, Chr$(10), Chr$(13)&CHR$(10))
Open "D:\MyDatei.txt" For Output As #1
Write #1, MyString
Close
End Sub
viele Grüße
Karl-Heinz Voltmann
Option Explicit
Sub Lese_TxT_Datei()
Dim strText As String
Dim lngFn As Long, AnZZ As Long, A As Long
Dim strPathAndFileName As String
Dim vntA As Variant
strPathAndFileName = "C:\TextTXT\50919.txt" 'Pfad zur Datei
lngFn = FreeFile
Open strPathAndFileName For Binary As lngFn 'öffne zum lesen
strText = Space(LOF(lngFn))
Get lngFn, 1, strText 'lese komplette Datei
Close lngFn
AnZZ = CountChar(strText, Chr(10)) 'Zähle Zeile Trennzeichen
vntA = Split(strText, Chr(10)) 'Text trennen
For A = 0 To AnZZ
Cells(A + 1, 1) = vntA(A) 'einzelne Zeilen schreiben
Next A
Erase vntA 'Speicher freigeben
End Sub
Function CountChar(ByVal SourceString As String, ByVal strChar As String) As Long
CountChar = Len(SourceString) - Len(Replace(SourceString, strChar, ""))
End Function
Gruß
Tino
Sub FileLesen()
Dim MeineTxtDatei As String
MeineTxtDatei = "C:\TextTXT\50919.txt" 'Pfad zur Datei
Application.ScreenUpdating = False
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & MeineTxtDatei _
, Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
End With
Application.ScreenUpdating = True
End Sub
Gruß
Tino