REXX Jak usunac zawartosc pliku?

Autor: Grzegorz Szyszlo (znik_at_avalon.wbc.lublin.pl)
Data: Mon 20 Dec 1999 - 22:22:35 MET

• Następna wiadomość: Jan Stożek: "PAP"
• Poprzednia wiadomość: Przemysław Pawełczyk: "COFAM PROGRAM!"
• Wiadomości sortowane wg: [ datay ] [ wątku ] [ tematu ] [ autora ] [ załącznik ]

No tak. jak mozna zasmarowac plik samymi zerami?
Bardzo prosto :) oto sposob:

/* REXX zasmarowywanie pliku zerami */

Plik='tojestnasz.plik' /* lub co sobie tam wpiszesz */
Wartosc=0 /* Jakas wartosc od 0 do 255 ktora zapcha plik
*/

/* Wlasciwy procedurejszyn :) */

Nazwa=STREAM(Plik,'c','query exist')
IF Nazwa='' THEN
DO
  SAY 'Pudlo !!!!!! Pliku' Plik 'tutaj nie ma!'
  EXIT
END

Dlugosc=STREAM(Plik,'c','query size')

CALL STREAM Plik, 'c', 'open')
CALL STREAM Plik, 'c', 'seek =1') /* nie wiem czy potrzebnie */

Znak=D2C(Wartosc)
Wypeln=COPIES(Znak,1024)

Bloki=TRUNC(Dlugosc/1024) /* zeby szybciej bylo */
DO i=1 TO Bloki
  CALL CHAROUT Plik, Wypeln
END

Reszta=Dlugosc-Bloki*1024
DO i=1 TO Reszta
  CALL CHAROUT Plik, Znak
END

nie sprawdzalem czy to dziala. pomecz sie :))))))))
aha. w REXX jest inaczej niz w C, poczatek pliku ma pozycje 1 a nie 0.

-- 
 /===================================\    oOOo    (C) Publikacja tego
 | http://avalon.wbc.lublin.pl/~znik/ \===\__/==\ artykulu lub jego
 | Grzegorz Szyszlo   mailto:znik_at_wbc.lublin.pl | fragmentow w Gaz.Wyb.
 \==============================================/ surowo wzbroniona.

• Następna wiadomość: Jan Stożek: "PAP"
• Poprzednia wiadomość: Przemysław Pawełczyk: "COFAM PROGRAM!"
• Wiadomości sortowane wg: [ datay ] [ wątku ] [ tematu ] [ autora ] [ załącznik ]

To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:24:46 MET DST