텍스트 파일을 읽고 특정 텍스트가있는 ONLY 줄을 작성하십시오.

Question

그래서 특정 텍스트가 포함 된 특정 줄에 대해서만 큰 텍스트 파일을 처리하려고합니다. 전체 줄을 새 텍스트 파일에 쓰고 싶습니다. 이것은 내가 생각해 낸 것이지만, taget 텍스트 파일을 완전히 비 웁니다. 그리고 "Input past of end of file"오류를줍니다.

Set objFS = CreateObject("Scripting.FileSystemObject") 
strFile = "C:\Users\Choti\Desktop\collect\collect.L" 
strTemp = "C:\Users\Choti\Desktop\collect\temp.txt" 
Set objFile = objFS.GetFile(strFile) 
Set objOutFile = objFS.CreateTextFile(strTemp,True) 
Set ts = objFile.OpenAsTextStream(1,-2) 
Do Until ts.AtEndOfStream = false 
    strLine = ts.ReadLine 
    ' do something with strLine 
    if strLine like "tagId" Then 
    objOutFile.Write(strLine) 
    end if 
    ts.AtEndOfStream = false 
Loop 
objOutFile.Close 
ts.Close 
objFS.DeleteFile(strFile) 
objFS.MoveFile strTemp,strFile 

미리 감사드립니다.

UPDATE : 작업 코드

Set objFS = CreateObject("Scripting.FileSystemObject") 

strFile = "C:\Users\Choti\Desktop\collect\collect.L" 
strTemp = "C:\Users\Choti\Desktop\collect\temp.txt" 

Set objFile = objFS.GetFile(strFile) 
Set objOutFile = objFS.CreateTextFile(strTemp,True) 
Set ts = objFile.OpenAsTextStream(1,-2) 

Do While Not ts.AtEndOfStream 
    strLine = ts.ReadLine 


    if Instr(1, strLine, "tagId") > 0 Then 
     objOutFile.WriteLine strLine 

    end if 


Loop 
objOutFile.Close 
ts.Close 

Answer 1

Set objFS = CreateObject("Scripting.FileSystemObject") 

strFile = "C:\Users\Choti\Desktop\collect\collect.L" 
strTemp = "C:\Users\Choti\Desktop\collect\temp.txt" 

Set objFile = objFS.GetFile(strFile) 
Set objOutFile = objFS.CreateTextFile(strTemp,True) 

Set ts = objFile.OpenAsTextStream(1,-2) 

Do While Not ts.AtEndOfStream 

    strLine = ts.ReadLine 
    ' do something with strLine 
    'if Instr(1, strLine, "tagId") > 0 'vbscript/VBA 
    if strLine Like "*tagId*" Then  'VBA 
     objOutFile.WriteLine strLine 
    end if 

Loop 

objOutFile.Close 
ts.Close 

objFS.DeleteFile strFile 
objFS.MoveFile strTemp,strFile