Your question is not very clear, but from what I understand, you might want something like this:

on *:TEXT:*something*:#channel:{
  mode # +b $+($nick,!*@*)
  kick # $nick Add reason here...
  write scripts\bans.txt $replace($address($nick,5),!,$chr(32),@,$chr(32))
}
on *:JOIN:#channel:{
  var %ident $remove($gettok($address($nick,5),1,64),$nick $+ !)
  var %host $gettok($address($nick,5),2,64)
  var %c 1, %l $lines(scripts\bans.txt)
  while (%c <= %l) {
    var %line $read(scripts\bans.txt,%c)
    if ($findtok(%line,$nick,0,32) || $findtok(%line,%ident,0,32) || $findtok(%line,%host,0,32)) {
      mode # +b $+($nick,!*@*)
      kick # $nick Add reason here...
    }
    inc %c 1
  }
}

NOTE: It is just a concept. It may or may not work as you want it. Feel free to modify the code to suit your needs.
UPDATE (04.07.2020): script is rewritten