Something

alias search {
  var %file $qt($+($mircdir,logs\,$gettok($active,2,45),.txt))
  var %search $+(/,$1,/Sig)
  var %f 0
  if (!$exists(%file)) { echo -ea File Does Not Exist | halt }
  echo -ea Results for $qt($remove(%search,$right(%search,4),$left(%search,1))) $+ :
  while (%f < $lines(%file)) {
    inc %f 1
    var %lineresults = $regex($read(%file,%f),%search)
    var %results = $calc(%lineresults + %results)
    if ($regex($read(%file,%f),%search)) {
      .play -el $+ %f $active %file 500
    }
  }
  echo -ea Results found for $qt($remove(%search,$right(%search,4),$left(%search,1))) $+ : %results
}