Forums Scripts & Popups Folder searching...

alias TextSearch {
  var %dir = $sdir($mircdir,Select A Search Directory)
  var %stext = $input(Text to Find,1)
  !.echo -q junk $findfile(%dir,*.txt,0,0,SearchFile %stext $+ $chr(1) $+ $1-)
}

alias SearchFile {
  tokenize 1 $1-
  var %n = 1
  var %line = $read($2,nw,$+(*,$1,*),%n)
  while ($readn) {
    echo 5 -st $+([,$nopath($2),:,$readn,]) %line 
    %n = $readn + 1
    var %line = $read($2,nw,$+(*,$1,*),%n) 
  }
}

alias SearchFile {
  tokenize 1 $1-
  if ($read($2,nw,$+(*,$1,*)) != $null) { echo 5 -st $+([,$nopath($2),:,$readn,]) $ifmatch }
}

alias scan {
  set -u %dir $$?="which folder?"
  set -u %find $$?="wildcard text to find?"
  set -u %date $?="how many days ago?"
  window -h @scan
  !.echo -q $findfile(%dir,*.txt,0,1,check_file $1-)
  window -c @scan
}
alias -l check_file {
  if %date isnum {
    var %a
    if !$regsub($nopath($1-),^(\d{2})(\d{2})(\d{2})\..+$,\3/\2/\1,%a) {
      return
    }
    if $calc($ctime($date) - $ctime(%a)) > $calc(60 * 60 * 24 * %date) {
      return
    }
  }
  filter -fwc $+(",$1-,") @scan %find
  if $filtered {
    echo -a Found $ifmatch lines matching %find in $1-
  }
}