回 帖 发 新 帖 刷新版面

主题:帮我改一下,谢谢!

有一帖中题目为: 如何在文本中删除最后4行?
以下是代码:

open "文件.TXT" for binary as #1
l&=lof(1)
do until k>4 or l&<2
  l&=l&-1
  seek #1,l&
  if input$(2,1)=chr$(13)+chr$(10) then k=k+1
loop
w$=space$(lof(1)-l&+1)
put #1,l&,w$
close
--------------------------------------------------
能不能改成:在一个*.TXT文本中删除开头7行?

回复列表 (共3个回复)

沙发

怎么没人帮我呢?

板凳

上面那个程序是不是我写的?
如果是我写的,
为什么不叫我改而要叫别人来改?
经过我的同意吗?

f$="file.txt"
fbak$="1~"+f$
open fbak$ for output as #1
close #1
kill fbak$
name f$ as fbak$

open fbak$ for input as #1
open f$ for output as #2
for i=1 to 7
   if not eof(1) then line input #1,a$
next
do until eof(1)
   line input #1,a$
   print #2,a$
loop
close

3 楼

谢谢!
我等了几天了,都没人忙我.最终还是你最好,最热心!
上次有好几个问题,也是您给解决的.下次有问题我一定找您!

我来回复

您尚未登录,请登录后再回复。点此登录或注册