Read large text File and write out 5000 records

I have a 1 Gig file with ~ 17 million lines called truex.txt.  I need to read or stream in the file ,and look for a string of "000000000000".  When the line contains that string, write that line out to a file c:\temp\sample.txt.   I need to stop after writing out 5000 lines.

I have not done VB in years, so a code snippet would be appreciated.

Thank you,
ddpleasantAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Robberbaron (robr)Commented:
vb6.

also can be done using VBS & FSO.
see authot comment at end of http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_23768664.html?cid=238#a22746111


Sub GetTest()
 
dim sFileIn as string, sFileOut as string, sDataLine as string
dim lFi as long, lFo as long, lCount as long
 
sFileIn= "truex.txt"
sFileOut = "c:\temp\sample.txt"
 
lFi=freefile
open sFileIn for input as lfi
 
lFo = FreeFile
open sFileOut for Output as lFo
 
do while not eof(lfi) and lCount < 5000
 
    line input #lFi, sDataLine
    if instr(sDataLine,"000000000000") > 0 then
         'found desired line
         print #lFo,sDataLine
         lCount = lCount+1
    end if
loop
 
close lFo
close lFi
 
end sub

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.