Read Entire File to find a line

[ToeJamNEarl]

Hi Guys,

I want to do the following.

Open up a file using a FileSystemObject and look through the file and check to see if a specific string either ADD or CHG is in the file. If they are set a flag to true, otherwhise set the flag to false.

Thanks,

-Diran

 

[BiggerBrother]

Use the search box at the top of this page for instr, filesystemobject, boolean function to name a couple. These will show you exactly how to do it.

BB

 

[ToeJamNEarl]

Thanks BB

 

[camy123]

Diran Have u worked this out if not i can post u how to do it let me know.. cheers mate

 

[ToeJamNEarl]

Camy123,

I have worked this out, thank you. But as always,

feel free to paste some code? It may help others out if they do a keyword search having a similar question as I did.

Thanks all.


-Diran

 

[BiggerBrother]

Dim fso as new filesystemobject
dim ts as textstream
dim myTextString as string
dim found as string

set ts = fso.opentextfile("c:myfile.txt",forreading)

mytextstring = ts.readall

found = cbool(instr(1,mytextstring,stringtofind))

set ts=nothing
set fso = nothing

BB