title image


Smiley Open-Problem
Hallo, ich glaube das es für mein Problem keine Lösung gibt, aber...

kann man eine Textdatei vom Unten zum Oben auslesen, also zuerst die letze Zeile dann die vorletze...

Ich habe Text-Datei die sehr groß werden kann, wovon ich aber nur die untersten Zeilen benötige.

Das durchlaufen der Zeilen kann darum sehr lange dauern.

Mein bisheriger Code

Function gps()

Dim xLine As String, logdatei As String, datei1 As String

On Error GoTo Fehler:

logdatei = DLookup("[logdatei]", "tbl_Optionen")

datei1 = Dir(logdatei)

If Nz(datei1) = "" Then

MsgBox "!!GPS-Log-Datei (NMEA) fehlt!!" & Chr(13) & Chr(13) & "'" & logdatei & "'" & Chr(13) & _

Chr(13) & "Bitte überprüfen Sie den Log-Datei-Pfad" & Chr(13) & _

"'Einstellungen>>GPS'", vbCritical, "FEHLER"

Exit Function

End If

Open logdatei For Input As #1

Do While Not EOF(1)

Line Input #1, xLine

If Left(xLine, 6) = "$GPRMC" Then

Debug.Print xLine 'Diese Zeile ist nur ein Dummy

End If

Loop

Close #1

Exit Function

Fehler:

MsgBox "!! Es sind Fehler aufgetreten !!" & Chr(13) & Chr(13) & _

"Fehler #" & Str(Err.Number) & ":" & Chr(13) & _

Err.Description, vbCritical, "FEHLER", Err.HelpFile, Err.HelpContext

End Function




Ch. Bielmeier
aus Ludwigsburg
-MSAccess97/2000
-HTML/CSS
-C++
-PHP
-MySQL
-JS (Anfänger)
-VB6.0
-Visual Studio Express 2005 (Anfänger)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: