on $*:TEXT:/^[!](add?swat)/Si:*:{
  if ($nick isop #) {
    if (!$2) { msg $iif($chan,$chan,$nick) Enter A S.W.A.T Name To Add! }
    else {
      write addswat.txt $2-
      msg $iif($chan,$chan,$nick) 14Added07 $2- 14To S.W.A.T ID07 $lines(addswat.txt) $+ 14.
    }
  }
  else {
    msg $chan $nick has failed to use this command!
  } 
}
on $*:TEXT:/^[!](del?swat)/Si:*:{
  if ($nick isop #) {
    if (!$2) { msg $iif($chan,$chan,$nick) Enter A S.W.A.T ID Number To Delete! }
    else {
      if ($2 isnum) {
        msg $iif($chan,$chan,$nick) Deleted S.W.A.T ID $2 From The Database.
        write -dl $+ $2 addswat.txt
      }
      else { msg $nick $2 Is Not A Valid S.W.A.T ID }
    }
  }
}
else {
  msg $chan $nick has failed to use this command!
}
on $*:TEXT:/^[!](swat?)/Si:#lvcnr.swats:{
  if ($2) {
    if ($2 !isnum) { msg $chan 07 $+ $2 14Isn't A S.W.A.T ID | halt }
    if ($2 isnum) {
      if ($read(addswat.txt,$2)) {
        msg $chan 10Swat ID0: 10 $+ $2 $+ 4/10 $+ $lines(addswat.txt) 0- $read(addswat.txt,$2)
      }
      else {
        msg $chan 14Invalid S.W.A.T ID On Line07 $2 $+ 14.
      }
    }
  }
}

Edit:

I managed to do a simpler way and it works perfectly!