Sub ErmittelnLetzteZeileInTextDatei()
Const csFile As String = "C:\Daten\TEMP\TextFiles\test.txt"
Dim sTxt As String, _
i As Long
On Error GoTo errHandler
Open csFile For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, sTxt
Loop
Close #1
MsgBox "Die Datei hat " & i & " Zeile(n) !"
Exit Sub
errHandler:
MsgBox "Fehler: " & Err.Number & vbCrLf & Err.Description
End Sub
Sub letzte_Textzeile()
Dim i As Long
Dim zeile As String
Open "c:\temp\bla.txt" For Input As #1
i = 0
Do While Not EOF(1)
Line Input #1, zeile
i = i + 1
Loop
MsgBox "letzte Zeile " & i
End Sub
Dim i As Long
Dim Zeilen() As String 'speichert die x zuletzt eingelesenen Zeilen
Const x = 5 'x.-te Zeile von unten wird gesucht
ReDim Zeilen(1 To x)
Open "e:\privat\tmp.txt" For Input As #1
i = 0
Do While Not EOF(1)
For i = 2 To x
Zeilen(i - 1) = Zeilen(i)
Next i
Line Input #1, Zeilen(x)
Loop
Close #1
MsgBox x & "-te Zeile von unten:" & Zeilen(1)
Die Datei https://www.herber.de/bbs/user/21874.txt wurde aus Datenschutzgründen gelöscht
wie der code genau funkt ist mir noch nicht klar drum kann das auch nicht erweitern ((
For i = 1 To x
MsgBox i & "-te Zeile von unten:" & Zeilen(i)
Next i
Die Datei https://www.herber.de/bbs/user/21914.txt wurde aus Datenschutzgründen gelöscht
Die Datei https://www.herber.de/bbs/user/21915.txt wurde aus Datenschutzgründen gelöscht
nun hab ich wirklich ein problem: