Forums Scripts & Popups Help with Splitting a Text File

alias hugefiltertest {
  var %i = 1, %ticks = $ticks
  if (!$isdir) { mkdir test }
  .fopen -no bigfile test\bigfile.txt
  while (%i <= 100000) { 
    .fwrite -n bigfile %i
    inc %i
  }
  .fclose bigfile
  filter -cffr 1-10000 test\bigfile.txt test\file1.txt
  filter -cffr 10001-20000 test\bigfile.txt test\file2.txt
  filter -cffr 20001-30000 test\bigfile.txt test\file3.txt
  filter -cffr 30001-40000 test\bigfile.txt test\file4.txt
  filter -cffr 40001-50000 test\bigfile.txt test\file5.txt
  filter -cffr 50001-60000 test\bigfile.txt test\file6.txt
  filter -cffr 60001-70000 test\bigfile.txt test\file7.txt
  filter -cffr 70001-80000 test\bigfile.txt test\file8.txt
  filter -cffr 80001-90000 test\bigfile.txt test\file9.txt
  filter -cffr 90001-100000 test\bigfile.txt test\file10.txt
  echo -a Finished in $calc(($ticks - %ticks) / 1000) seconds.
}

;
;usage $splitup(source,destination folder/file) * Do not add .txt!
;
alias Splitup {
  if (!$isfile($1))                    { return -1 } | ; invalid source file
  if (($nofile($2)) && (!$isdir($v1))) { return -2 } | ; invalid destination folder
  if (!$mkfn($nopath($2)))             { return -3 } | ; invalid destination file
  var %i = 1 | filter -cffr 1-5000 $+(",$1,") $+(",$nofile($2),$mkfn($nopath($2)),%i,.txt")
  while ($filtered) {
    inc %i | filter -cffr $+($calc(1 + %i * 5000),-,$calc(5000 + %i * 5000)) $+(",$1,") $+(",$nofile($2),$mkfn($nopath($2)),%i,.txt")
  }
  remove $+(",$nofile($2),$mkfn($nopath($2)),%i,.txt") | dec %i
  return %i
}

;usage $splitup(source,destination folder/file) * Do not add .txt!
;
alias Splitup {
  if (!$isfile($1))                    { return -1 } | ; invalid source file
  ;^ if $1 is not a file exit with a value -1 to indercate bad source filename
  ;
  if (($nofile($2)) && (!$isdir($v1))) { return -2 } | ; invalid destination folder
  ;^if $2 minus the filename exists (theres a DIR there) then check if the DIR is valid, and if its not then exit with a value -2 to tell you this.
  ;
  if (!$mkfn($nopath($2)))             { return -3 } | ; invalid destination file
  ;^ if after replaceing illegal file characters in the destination filename there turns out to be no filename then exit with a value -3 to tell you this
  ;
  ;* If we reach here we can proceed to make the files. *
  ;
  var %i = 1
  ;^set destination file # fileNNN.txt NNN being 1
  ;
  filter -cffr 1-5000 $+(",$1,") $+(",$nofile($2),$mkfn($nopath($2)),%i,.txt")
  ;^ do the first filter lines 1 to 5000
  ;^ I add " " around the source filename since /filter doesnt like the names if spaces are in it
  ;^ I also do the same to the destination file, but i also get the path $nofile(), 
  ; & then remove illegal filename characters from the filename $mkfn($nopath())
  ; & finally add the file number %i, and the .txt
  ;
  ;A while loop repeats untill the condition becomes false/zero, $filtered is a value saying howmany lines went through the filter
  ;on first encountering this below, unless the source was empty $filter well have some value (5000) on a 100,000 line file
  while ($filtered) {
    ;^ enter here if some or all of the 5000 lines of the last /filter were copied
    ;
    inc %i
    ;^ add 1 to the destination file number counter
    ;
    [color:blue]filter -cffr $+($calc(%i * 5000 - 4999),-,$calc(%i * 5000)) $+(",$1,") $+(",$nofile($2),$mkfn($nopath($2)),%i,.txt")
    ;^ do a filter just like the one above, but this time use (%i * 5000 -4999) for the start line and (%i * 5000) for the end line
    ;^ ie: if %i was 2 then its (2x5000-4999) to (2x5000) aka lines 5,001 to 10,000
    ;^ ie: if %i was 3 then its (3x5000-4999) to (3x5000) aka lines 10,001 to 15,000
    ;[/color]
  }
  remove $+(",$nofile($2),$mkfn($nopath($2)),%i,.txt")
  ;^ since the while loop exits only when the last filter had no lines copied (ie its line numbers are beyond the end of the file)
  ;^ I must delete this last file I created, as its empty anyway
  ;
  dec %i
  ;^ lastly reduce the destination file number counter to be the last file actually written
  ;
  return %i
  ;^ exit with this value, so u know how many files were made
  ;
}

;usage $splitup(source,destination folder/file) * Do not add .txt!
;
alias Splitup {
  if (!$isfile($1)) { return -1 }
  if (($nofile($2)) && (!$isdir($v1))) { return -2 }
  if (!$mkfn($nopath($2))) { return -3 }
  var %i = 1
  filter -cffr 1-5000 $+(",$1,") $+(",$nofile($2),$mkfn($nopath($2)),%i,.txt")
  while ($filtered) {
    inc %i
    filter -cffr $+($calc(%i * 5000 - 4999),-,$calc(%i * 5000)) $+(",$1,") $+(",$nofile($2),$mkfn($nopath($2)),%i,.txt")
  }
  .remove $+(",$nofile($2),$mkfn($nopath($2)),%i,.txt")
  dec %i
  return %i
}