Question

vb中如何删除顺序文件中的部分记录

Answer 1

Open "c\1.txt" For Input As #1
Open "c\2.txt" For output As #2
'同时打开两个文件，文本一用于读入，文本二用于输出
Do While Not EOF(1) ‘对文件1进行循环逐行读入
Line Input #1, rrrr ’读入一行到rrrr
if rrrr>0 then '设置判断条件
Print #2, rrrr '把符合条件的写到文本2里
'也可以用文本型 的变量保存，a=a & rrrr & VBCRLF ,后面加回车换行符。
else ‘不符合条件的就什么也不做，相当于删除了
end if
Loop
Close #1 ’关闭两个文件，结束处理
Close #2

文本二就是你要的删除部份记录后的文本

Answer 2

操作顺序文件必须按顺序读取或写入。
读取文件，把需要保留的内容赋值到变量，最后再把变量的值重新写入文件，替换原有的内容

Answer 3

顺序读取不需要删除的记录并写在新的文件上