removecomments Remove Comments dim in, nl, line as string dim i ,rc as integer in = gettext nl = getnewline rc = countfields(in,chr(13)) for i = 1 to rc line = nthfield(in,nl,i) if left(line,2)<>"//" then print line + nl end if next