rendered paste body;du.mrc 1.1 - With record statistic.
;You will need the program DU-Meter installed for this to work
;Alot of bugs in this script also, you have been warned ;)
alias du {
if (!%du.file) {
if ($exists(C:\Documents and Settings\All Users\Programdata\Hagel Technologies\DU Meter\log.csv)) { set %du.file C:\Documents and Settings\All Users\Application Data\Hagel Technologies\DU Meter\log.csv }
if (!$exists(C:\Documents and Settings\All Users\Programdata\Hagel Technologies\DU Meter\log.csv)) { echo 4 -s Couldn't find your log.csv file, Make sure you have DU-Meter installed. | halt }
}
var %i = 2, %lines = $lines(%du.file), %du.upload = 0, %du.download = 0
while (%i <= %lines) {
inc %du.upload $gettok($read(%du.file,%i),3,44)
inc %du.download $gettok($read(%du.file,%i),2,44)
set %du.downyest $gettok($read(%du.file,%lines),2,44)
set %du.upyest $gettok($read(%du.file,%lines),3,44)
inc %i
}
return $conv(%du.download) $conv(%du.upload) $conv($calc(%du.upload + %du.download)) $gettok($read(%du.file,1),1,44) $conv(%du.downyest) $conv(%du.upyest)
}
alias conv {
if ( $1 isnum ) {
if ( $1 < 1024 ) return $replace($1,.,$chr(44)) Byte
elseif ( $1 < 1048576 ) return $replace($round($replace($bytes($1,k),$chr(44),),$iif($2 != $null,$2,0)),.,$chr(44)) $+ KB
elseif ( $1 < 1073741824 ) return $replace($round($replace($bytes($1,m),$chr(44),),$iif($2 != $null,$2,0)),.,$chr(44)) $+ MB
elseif ( $1 < 1099511627776 ) return $replace($round($replace($bytes($1,g),$chr(44),),$iif($2 != $null,$2,1)),.,$chr(44)) $+ GB
else return $replace($round($replace($bytes($1,t),$chr(44),),$iif($2 != $null,$2,2)),.,$chr(44)) $+ TB
}
}
alias rec {
if (!%du.file) {
if ($exists(C:\Documents and Settings\All Users\Programdata\Hagel Technologies\DU Meter\log.csv)) { set %du.file C:\Documents and Settings\All Users\Application Data\Hagel Technologies\DU Meter\log.csv }
if (!$exists(C:\Documents and Settings\All Users\Programdata\Hagel Technologies\DU Meter\log.csv)) { echo 4 -s Couldn't find your log.csv file, Make sure you have DU-Meter installed. | halt }
}
var %i = 3, %lines = $lines(%du.file), %du.recordup = $gettok($read(%du.file,2),3,44), %du.recorddown = $gettok($read(%du.file,2),2,44)
while (%i <= %lines) {
if (%du.recordup < $gettok($read(%du.file,%i),3,44)) { set %du.recordup $gettok($read(%du.file,%i),3,44) | set %du.recordupdate $gettok($read(%du.file,%i),1,44) }
if (%du.recorddown < $gettok($read(%du.file,%i),2,44)) { set %du.recorddown $gettok($read(%du.file,%i),2,44) | set %du.recorddowndate $gettok($read(%du.file,%i),1,44) }
inc %i
}
return $conv(%du.recordup) %du.recordupdate $conv(%du.recorddown) %du.recorddowndate
unset %du.recordupdate %du.recordup %du.recorddown %du.recorddowndate
}