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 
