Textdatei letzte 10 Zeilen auslesen?

Forumthread: Textdatei letzte 10 Zeilen auslesen?

02.08.2005 01:58:46

Leo

Hi,
hab mit Textdateien keine Erfahrung und im Archiv auch nichts Passendes
gefunden.
Wie kann ich immer nur die letzten 10 Zeilen auslesen?
mfg Leo

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textdatei letzte 10 Zeilen auslesen?

02.08.2005 02:41:48

K.Rola
AW: Textdatei letzte 10 Zeilen auslesen?

02.08.2005 03:02:59

Leo
Ich schrei mich weg....

05.08.2005 19:15:40

Boris
Kurs

04.08.2005 10:29:42

Rolf Beißner
AW: Kurs

05.08.2005 19:30:26

K.Rola
AW: Kurs

05.08.2005 22:38:23

Rolf Beißner
AW: Textdatei letzte 10 Zeilen auslesen?

02.08.2005 03:02:19

MichaV
Funktionieren beide, danke! oT

02.08.2005 03:08:06

Leo
Danke für Deine Rückmeldung! owT

02.08.2005 03:13:58

MichaV
Halt!

02.08.2005 03:21:12

Leo
AW: Halt!

02.08.2005 03:33:01

Ramses
Halt?

02.08.2005 03:33:13

MichaV
AW: Halt!

02.08.2005 03:58:17

MichaV
Danke an alle oT

02.08.2005 17:07:50

Leo

AW: Textdatei letzte 10 Zeilen auslesen?

02.08.2005 02:41:48

K.Rola

Hallo,
was soll passieren, wenn die Datei weniger als 10 Zeilen enthält? Sollen die dann
ausgelesen werden? Wohin soll die Ausgabe erfolgen?
Gruß K.Rola
PS: Bist du aus Berlin? Falls ja, kann es sein, dass du in einem Kurs bei mir warst?
(Stromstraße ca. September 2004)

AW: Textdatei letzte 10 Zeilen auslesen?

02.08.2005 03:02:59

Leo

Hi,
wenn es weniger als 10 sind, dann eben die vorhandene Anzahl. Ausgabe über Msgbox
würde reichen, den Rest bekomme ich selbst hin.
mfg Leo
PS Stimmt, da hatte ich einen Kurs, aber da hießt du nicht K.Rola und ich musste
"Sie" sagen.

Ich schrei mich weg....

05.08.2005 19:15:40

Boris

Hi Leo,
PS Stimmt, da hatte ich einen Kurs, aber da hießt du nicht K.Rola und ich musste
"Sie" sagen.
Herrlich!!!
Grüße Boris

Kurs

04.08.2005 10:29:42

Rolf Beißner

Hallo K.Rola,
wo kann man denn deinen Veranstaltungskalender einsehen?
Ist da auch Hessen vorgesehen?
HG
Rolf

AW: Kurs

05.08.2005 19:30:26

K.Rola

Hallo,
Kurse gebe ich so gut wie gar nicht mehr und wenn dann nur Berlin und Umgebung und
wenn das Honorar reizvoll ist(was in diesen Zeiten aber selten der Fall ist).
Konzentriere mich wieder mehr auf meinen eigentlichen Beruf, der mit Excel/Office
VBA/VB nun gar nichts zu tun hat.
Außerdem denke ich, dass ich dir eh nicht viel beibringen könnte.
Gruß K.Rola

AW: Kurs

05.08.2005 22:38:23

Rolf Beißner

Hallo K.Rola,
vielen Dank für die Info + deine wohlwollende Einschätzung -
aber ich wäre froh, hätte ich nur die Hälfte deines hier gefragten Wissens.
Herzliche Grüße
Rolf

AW: Textdatei letzte 10 Zeilen auslesen?

02.08.2005 03:02:19

MichaV

Hallo Leo,
normalerweise wird die Datei eingelesen um zu ermitteln, wieviele Zeilen sie enthält. Dann wird sie nochmal eingelesen und die letzten 10 Zeilen werden ausgewertet.
Hier mal 2 andere Varianten:

Option Explicit
Sub TxtAuslesenVar1()
Dim Pfad As String
Dim Inhalt As String
Dim Zeilen() As String
Dim XLetzte As Integer
Dim i As Integer
Dim DatNr As Integer
Pfad = "d:\micha\excel\daten.txt"
XLetzte = 10
DatNr = FreeFile
Open Pfad For Binary As #DatNr
  Inhalt = Space(LOF(DatNr))
  Get #DatNr, , Inhalt
Close #DatNr

Zeilen = Split(Inhalt, vbCrLf)
'Datei liegt 1:1 im Feld Zeilen
'Zeilen(1)= 2. Zeile der Datei
'Zeilen(Ubound(Zeilen))=Letzte Zeile der Datei
If XLetzte > UBound(Zeilen) Then XLetzte = UBound(Zeilen)
For i = 0 To XLetzte - 1
  Debug.Print "Zeile " & i + 1 & ": " & Zeilen(UBound(Zeilen) - i)
Next i
End Sub

Sub TxtAuslesenVar2()
Dim Pfad As String
Dim Inhalt As String
Dim Zeilen() As String
Dim XLetzte As Integer
Dim i As Integer
Dim DatNr As Integer
Pfad = "d:\micha\excel\daten.txt"
XLetzte = 10
ReDim Zeilen(1 To XLetzte)
DatNr = FreeFile
Open Pfad For Input As #DatNr
Do While Not EOF(DatNr)
  Line Input #1, Inhalt
  For i = XLetzte - 1 To 1 Step -1
    Zeilen(i + 1) = Zeilen(i)
  Next i
  Zeilen(1) = Inhalt
Loop
Close #1
'Die letzten X Zeilen liegen im Feld XLetzte
'XLetzte(1)=Die letzte Zeile
'XLetzte(Ubound(Xletzte))=die X-Letzte Zeile
For i = 1 To XLetzte
  Debug.Print "Zeile " & i & ": " & Zeilen(i)
Next i
End Sub

Code eingefügt mit Syntaxhighlighter 3.0

Gruß- Micha
PS: Rückmeldung wäre nett.

Hallo
na dann kann ich dir ja noch meine Variante zeigen :-)
Option Explicit
Option Base 1
'Start CodeSequenz

Sub TestOpen()
LastTenRows "C:\TextTest.txt", 10
End Sub

Sub LastTenRows(myFile As String, txtLines As Integer)
'by Ramses
'Öffnet ein Textfile und liest die jeweils letzten 10 Zeilen ein
'und schreibt diese untereinander in das aktuelle Blatt
Dim i As Integer, n As Integer
Dim helpVar As String
Dim arrBuff() As String, tmpBuff As String
If Right(myFile, 3) <> "txt" Then
    MsgBox "Keine Textfile übergeben"
    Exit Sub
End If
n = 1
'********************
'Für alle Versionen
ReDim arrBuff(10000)
Open myFile For Input As #1
Do While Not EOF(1)
    Line Input #1, arrBuff(n)
    n = n + 1
Loop
Close #1
ReDim Preserve arrBuff(n - 1)
'*******************
'----------------------
'*******************
'Oder
'ab EXCEL 2000
'Open myFile For Binary As #1
'tmpBuff = Space(LOF(1))
'Get #1, , tmpBuff
'Close #1
'arrBuff = Split(tmpBuff, vbCrLf)
'****************
If UBound(arrBuff) <= txtLines Then
    For i = 1 To UBound(arrBuff)
        Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = arrBuff(i)
    Next i
    MsgBox "Nur " & i & " Datensätze in " & myFile
Else
    For i = UBound(arrBuff) - txtLines To UBound(arrBuff)
        Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = arrBuff(i)
    Next i
End If
End Sub

'Ende CodeSequenz

Gruss Rainer

Textdatei letzte 10 Zeilen auslesen?

Forumthread: Textdatei letzte 10 Zeilen auslesen?

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread