home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
UTILITY
/
ZERODLS.ZIP
/
ZERODLS.BAS
< prev
Wrap
BASIC Source File
|
1997-03-04
|
2KB
|
40 lines
Crossfire #1 @8854
Sat Mar 01 20:21:43 1997
Regarding: Im looking for
By : The Pirate #1 @2908
4-->0 Im looking for a program that will zero out all users upload and downloadin
4-->0 info. If there is a program out there please let me know
If you have QBASIC, you can use this short program that I slapped together
in response to your question...
----------[ cut here ]----------
DEFINT A-Z
OPEN "R", #1, "\WWIV\DATA\USER.LST", 1024
' NOTE: Change the filename above if your USER.LST is in a different path
Recs = LOF(1) / 1024 ' Count the number of users
Temp$ = SPACE$(1024) ' Set up a buffer, size of userrec
FOR R = 2 TO Recs ' Start loop at record #2 [sysop]
GET #1, R, Temp$ ' Read user record into buffer
MID$(Temp$, 715, 2) = MKI$(0) ' Files uploaded = 0
MID$(Temp$, 717, 2) = MKI$(0) ' Files downloaded = 0
MID$(Temp$, 789, 4) = MKL$(0) ' Kilobytes uploaded = 0
MID$(Temp$, 793, 4) = MKL$(0) ' Kilobytes downloaded = 0
MID$(Temp$, 809, 4) = MKL$(0) ' File points = 0
PUT #1, R, Temp$ ' Write changed data to file
NEXT R ' Continue for all users
CLOSE #1 ' Close the file
----------[ cut here ]----------
If you don't want to zero out YOUR info, change the sixth line to start
the loop at record 3:
FOR R = 3 TO Recs
The very first record in USER.LST is a null record. The sysop's record is
at #2. This program *SHOULD* work, but I would advise you to back up your
USER.LST before you try it, just in case. The program assumes you have a stock
WWIV 4.22+ userrec. Change the filename in the second line if your USER.LST is
not in \WWIV\DATA.