Ich habe mal für Dich gegoogelt!
15.02.2010 12:29:44
Backowe
Hi Andre,
das ist dabei herausgekommen:
Sub test()
Dim strText As String
strText = Right(ReadLastLine("D:\68010.txt", _
True, 4), Len(ReadLastLine("D:\68010.txt", _
True, 4)) - 6)
MsgBox strText
End Sub
' Bestimmte Zeile einer Textdatei auslesen
' (vom Dateiende beginnend)
Public Function ReadLastLine(sFileName As String, _
ByVal bTrimNullString As Boolean, _
Optional ByVal XteLastLine As Long = 0) As String
On Error Resume Next
Dim F As Integer
Dim nFileLen As Long
Dim sTempCR As String * 1
Dim sTempLF As String * 1
' Datei öffnen
F = FreeFile
Open sFileName For Binary Access Read As #F
' Dateigröße
nFileLen = LOF(F)
' x. letzte Zeile lesen
Do Until XteLastLine 0 Then
' im Fehlerfalle Prozedur verlassen
Close #F
ReadLastLine = ""
Exit Function
End If
' Wenn es sich um CR handelt...
If sTempCR = vbCr Then
' Prüfen, ob Zeichen davor = LF
Get #F, nFileLen + 1, sTempLF
If sTempLF = vbLf Then
' innere Schleife beenden
Exit Do
End If
End If
If sTempCR vbCr And sTempCR vbLf Then
' Zeichen in Rückgabewert speichern
ReadLastLine = sTempCR & ReadLastLine
End If
Loop
If Not bTrimNullString Or Len(Trim$(ReadLastLine)) > 0 Then Exit Do
Loop
XteLastLine = XteLastLine - 1
Loop
' Datei schließen
Close #F
End Function
Gruss Jürgen