Forums Scripts & Popups count # of extensions in a txt file

alias ext {
  var %x = 1, %f = $$1
  while (%x <= $lines%f)) {
    if ($gettok($read(%f,%x),2,46)) inc $+(%,$v1)
    inc %x
  }
}