WCM Forum - Einzelnen Beitrag anzeigen - VB

renew · 24.03.2003, 20:57

Ich würd von einigen Dateien immer nur das Ende der Datei brauchen (letzten 128-bit einer MP3 Datei).
Ich hab mir das ganze jetzt nur mal Testweise angeschaut, und es einfach als Textdatei geöffnet, dann alles Zeilen durchgelesen und immer wieder abgespeichert.

Und dann von der letzten Zeile einfach die letzten 128 Zeichen genommen.

Nur is das von der Performance net unbedingt gerade das was ich mir vorstelle.

Gibts da eine Möglichkeit direkt das Ende einer Datei zu lesen?

aja, und hier noch schnell mein Beispielcode, wie ich das ganze nur mal kurz ausprobiert hab:

Code:

laenge = 0

Set filesys = CreateObject("scripting.filesystemobject")

Set file = filesys.getfile("c:\test.mp3")

Set textstream = file.openastextstream(1, -2)

While Not textstream.atendofstream

    test = textstream.readline
    laenge = Len(test)

Wend

MsgBox laenge
MsgBox Right(test, 128)

24.03.2003, 20:57	#1
renew Inventar Registriert seit: 22.10.2000 Alter: 41 Beiträge: 5.552	VB - das ENDE einer Datei lesen.... Ich würd von einigen Dateien immer nur das Ende der Datei brauchen (letzten 128-bit einer MP3 Datei). Ich hab mir das ganze jetzt nur mal Testweise angeschaut, und es einfach als Textdatei geöffnet, dann alles Zeilen durchgelesen und immer wieder abgespeichert. Und dann von der letzten Zeile einfach die letzten 128 Zeichen genommen. Nur is das von der Performance net unbedingt gerade das was ich mir vorstelle. Gibts da eine Möglichkeit direkt das Ende einer Datei zu lesen? aja, und hier noch schnell mein Beispielcode, wie ich das ganze nur mal kurz ausprobiert hab: Code: laenge = 0 Set filesys = CreateObject("scripting.filesystemobject") Set file = filesys.getfile("c:\test.mp3") Set textstream = file.openastextstream(1, -2) While Not textstream.atendofstream test = textstream.readline laenge = Len(test) Wend MsgBox laenge MsgBox Right(test, 128)