有a.txt和b.txt
a.txt内容
FAI1
FAI2
FAI3
FAI4
FAI5
FAI6
b.txt内容
FAI4   15.01  0.01  0.02
FAI5   20.1  0.01  0.05
FAI6   18    0.05  0.07
以a来查找b的内容
如果没有相同内容则清除b.txt里的内容

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
用这种方法不行呢，求各位多多指教！！！

[此贴子已经被作者于2019-12-10 20:06编辑过]

我试试