主题:帮我改一下,谢谢!
有一帖中题目为: 如何在文本中删除最后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行?
以下是代码:
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行?