removecomments2 Remove Comments 2 parametercount1 tspboolean inline Remove also in the middle of the line valuetrue dim in,out,line,nl as string dim i,rc,start as integer dim inline as boolean inline = (getparameter("inline")="true") in = gettext nl = getnewline rc = countfields(in,nl) for i = 1 to rc line = nthfield(in,nl,i) start = instr(line,"//") if start = 0 then print line + nl elseif start = 1 then // do nothing elseif start > 1 then if inline then print left(line,start-1) + nl else print line + nl end if end if next