Forums Scripts & Popups HELP WITH A $READ FILE

;assume $1- == in
on *:TEXT:*:#: {
  var %text = $1-

  ;using *text* will find whatever matches in a line 
  ;using text* would match from beginning of line
  ;using *text * would match ending of word or area and have a space after that word
  ;using * text * matchs that word surrounded by spaces

  ;below you type "in" and if you have "info" or any word with i+n next to each other would be found)
  ;var %findtext = $read(learnt.txt,w,* $+ %text $+ *)

  ;below would match only "in" on the first line it finds it on
  var %findtext = $read(learnt.txt,w, * %text *)

  if (%findtext) {
    msg $chan %text found on line $readn $+ : %findtext
  }
  if (!%findtext) {
    msg $chan not found
  }
}

on *:TEXT:*:#test: {
  if (($nick == bot) && (bot1 == $me)) {
    ;assuming what you type is: TV-XVID*boat
    var %text = $1-
    var %filename = tv-test.txt
    var %readfile = $read(%filename,w, * $+ %text $+ *)
    if (%readfile) { msg $chan found %text in %filename, on line $readn $+ : %readfile }
    if (!%readfile) { msg $chan not found }
  }
}

on *:text:*:#test: {
  if (($nick == bot) && (bot1 == $me)) {
    var %text = $1-
    var %filename = textfile.txt
    var %filelines = $lines(%filename)
    var %found = false, %foundline, %matched, %i = 1
    while (%i <= %filelines) {
      var %readfile = $read(%filename,%i)
      if (%readfile isin %text) { %found = true | %foundline = $readn | %matched = %readfile }
      inc %i
    }
    if (%found == true) { 
      msg $chan matched %text in %filename $+ , on line %foundline $+ : %matched
    }
    if (%found == false) { 
      msg $chan not found
    }
  }
}

Results:
<bot> TV-XVID 7th.Heaven.S10E18.Invitation.to.Disaster.PDTV.XviD-FQM. Fill the boat chump.
<bot1> matched TV-XVID 7th.Heaven.S10E18.Invitation.to.Disaster.PDTV.XviD-FQM. Fill the boat chump. in textfile.txt, on line 1: -FQM