Open "c:\a.txt" For Input As #1
Do While Not EOF(1)
n = n + 1
ReDim Preserve MyStr1(n)
Line Input #1, MyStr1(n)
Loop
Close #1
Open "c:\b.txt" For Input As #1
open "c:\~c.txt" For output As #2
Do While Not EOF(1)
line input #1,TmpS
'读一行
if len(tmps)>3 then
'如果超过3字符则继续处理。用于容错,如果3改成0,那就只判断空行。
isyn = false
'默认不存在
tmps1=left(tmps,4)
'固定长度用这个
'tmps1=left(tmps,instr(1,tmps," "))
'不固定长度用这个
for i=1 to ubound(mystr1())
'查找循环
if tmps1=mystr1(i) then
'找到
isyn=true
exit for
end if
next i
if isyn then
'是否找到,找到则将写入,否则忽略,就会丢弃该行。
print #2,tmps
end if
else
'空行,及小于3字符的内容原样写入,自己决定。
print #2,tmps
end if
Loop
close #2
Close #1
kill "c:\b.txt"
'删原文件,
name
"c:\~c.txt","c:\b.txt"
'改名。调试时,不要用这二行。会破坏原文件,导致调试无法进行。
-------------------------------