7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
iwzw 2002-01-30
- 打赏
- 举报
ok
iwzw 2002-01-29
- 打赏
- 举报
看看再说
wjq 2002-01-29
- 打赏
- 举报
比如第三行不要。
Dim lineNum as long,a$,b$
close #1
open "文件名.txt" for input as #1
line input #1,b$
linenum=1
do while not eof(1)
line input #1,a$
linenum=linenum+1
if linenum<>3 then b=b & chr(13) & chr(10) & a
loop
close #1
open "文件名.txt" for output as #1
print #1,b
close #1
Dim lineNum as long,a$,b$
close #1
open "文件名.txt" for input as #1
line input #1,b$
linenum=1
do while not eof(1)
line input #1,a$
linenum=linenum+1
if linenum<>3 then b=b & chr(13) & chr(10) & a
loop
close #1
open "文件名.txt" for output as #1
print #1,b
close #1
zyl910 2002-01-29
- 打赏
- 举报
问问题之前，你最好去看看：http://www.csdn.net/expert/faq.shtm
zyl910 2002-01-29
- 打赏
- 举报
一边读、一边写临时文件。碰到不需要的那一行就不写。最后覆盖。
