标题: [已解决]VBS从a文件筛选指定内容的行输出 [打印本页]

---

作者: waynebeat     时间: 2010-8-28 13:37    标题: [已解决]VBS从a文件筛选指定内容的行输出

a.txt内容如下                              想从a.txt中选出所有含有b.txt内容的行，并输出到c.txt中，代码如下，出现的问题是：输出的c.txt中只有（1，2，3），也就是当遇到b.txt中的"56"时，
1
2                                                  因在a.txt中没有找到相应行，脚本就自动退出了，想请问一下是什么原因，应该如何解决？（不用findstr是因为就想学习一下VBS）请指教，谢谢
3
4
5
6
7

b.txt内容如下
1
2
3
56
4
5

a.vbs内容如下

Set fso = CreateObject("Scripting.FileSystemObject")

Set f1 = fso.GetFile("b.txt")

Set f2 = fso.GetFile("a.txt")

Set ts1 = f1.OpenAsTextStream(1,-2)

Set ts2 = f2.OpenAsTextStream(1,-2)

Set f3 = fso.OpenTextFile("c.txt",2,True)

Do Until ts1.AtEndOfStream

    RL1 = ts1.ReadLine

    Do While ts2.AtEndOfStream <> True

         RL2 = ts2.ReadLine

         If InStr(RL2,RL1) Then

         f3.WriteLine RL2
   
         Exit Do
  
         End If

    Loop

    Set ts2 = f2.OpenAsTextStream(1,-2)

Loop

[ Last edited by waynebeat on 2010-8-28 at 22:59 ]

---

作者: qinchun36     时间: 2010-8-28 18:21
将 Set ts2 = f2.OpenAsTextStream(1,-2) 移到内部循环体之外，即最后两行 Loop 之间，因为不管是否找到，都要重置 ts2 。

---

作者: waynebeat     时间: 2010-8-28 22:28
多谢指教！其实刚接触VBS不久，重置ts2还是好不容易想出来的，结果忽略了位置