Talalos kerdes megfejtes

Sziasztok !

Ha jol tudom, (de ha megsem, akkor irja meg valaki pontosan,) a VMS
egy file torlesenel a kovetkezoket csinalja:
A direktori file-ban a kitorolni kivant file utan kovetkezoket
elorehozza a kitorolni kivant file helyere. Vagyis teljesen ujrairja
a direktori file-t. Utana az indexf.sys-be jegyzi be a torlest.
Namost, ha csinalok egy atmeneti file-t, amit sorbarendezek, de csokkeno
sorrandben
es ebben a sorrendben kezdem el torolni, akkor csak a vegen a file vege
jelet teszi mashova. Vagyis nem kell az egesz file-t ujrairni.
Mar csak azt nem tudom, hogy ezt miert nem irtak bele a delete.exe file-ba ?

A kiserlet alatt a file-ok nagyreszenek 17 karakter hosszu neve es 3 hosszu
kiterjesztese
volt. Vagyis viszonylag hosszu nevuek voltak.
Az, hogy 1001 file-t irt ki a program, az annak tulajdonithato, hogy a
direktori valaszanak "Total of " kezdetu sorat is megszamolta.

Most pedig itt a file, hogy hasznalhassa az akinek szuksege van ra.
Kicsit atirtam a kiserlet ota, hogy hasznalhatobb legyen.

$ f := "''p1'"
$ dire/output=tmp.tmp/nohead 'f'
$ length = f$length(f)
$ sort/stat/key=(pos:1,siz=80,desc) tmp.tmp tmp.tmp
$ db = 0
$ dire/size/since tmp.tmp
$ open/read ifil tmp.tmp
$ read/end=VEGE ifil df
$U:
$ read/end=VEGE ifil df
$ if df .eqs. "" then goto VEGE
$ del 'df'
$ db = db+1
$ goto U
$VEGE:
$ w "  Összesen: ''db' file"
$ del tmp.tmp;*

Szivesen olvasnam masok talalos kerdeseit !
Hiszen tanulnek belole.

Udv. Tibi