Forums Scripts & Popups Removing spaces in a text file

var %a 1
while (%a <= $lines(file.txt)) {
  .write $+(-l,%a) file.txt $gettok($read(file.txt,%a),1,32)
  inc %a 1
}

alias fixfile {
  if (!$isfile($1-)) { 
    echo $color(info) -bfilrt * /fixfile: The file does not exist. 
    return
  }
  var %line = 1
  while ($read($1-,n,%line) != $null) {
    write -l $+ %line $qt($1-) $gettok($v1,1- $+ $findtok($v1,$wildtok($v1,*.mp3,1,32),1,32),32)
    inc %line
  }
}