问题一个

Question

问两遍啊？
总之看一下回车：chr(13)，换行chr(10),删掉就可以

Answer 1

open "oldtxt" for input as #1
open "newtxt" for input as #2
do while not eof(1)
    line input #1,x
    if trim(x)<>"" then
        write #2,x
    endif
loop
close
kill "oldtxt"
name "newtxt" as "oldtxt"
end
程序没调试，但思路您应该能明白吧？
能对您有所帮助是我最大的乐趣！！！