Thema: VB Öffnen
Einzelnen Beitrag anzeigen
Alt 15.11.2001, 21:26   #8
Sesa_Mina
Schwarzfußfrettchen
 
Registriert seit: 28.01.2001
Beiträge: 2.071


Standard

a=filesize ( filename)
s = space$(1024)
nr=freefile ' ned unbedingt notwendig...
' Datei Blockweise einlesen ...
open filename for binary as nr Len=1024
for X=0 to a\1024+1
get nr,x,s
list1.additem s,list1.listcount
s=reverse(s) ' Hier ne pseudofunktion aufrufen (selberschreiben wennst sowas machen willst
put nr,x,s ' und gleich wieder schreiben.
next
close nr


Mit dieser methode kannst ein File Blockweise einlesen.

Len=x gibt an wie groß die zu lesenden bzw zu schreibenden Blöcke sind.

Du kannst hier einen Block einlesen, direkt manipulieren und sofort wieder zurückschreiben wenns sein muss

reverse() ist hier nur als beispiel für eine selbstgeschriebene Funktion welche die daten manipuliert.
____________________________________
Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\"
http://www.dream.at/gizmo/bunny.gif
Image is © 2001 Merle
Sterndalsäg.. ähh... jäger
Sesa_Mina ist offline   Mit Zitat antworten